Notez que le code suivant est destiné à afficher du contenu approprié pour les moteurs de recherche, mais ce n'est pas bon pour le référencement. Non recommandé. Comme référence d'apprentissage.
Copiez le code comme suit :<%
function GetBot()
'Query spider
dim s_agent
GetBot=
s_agent=Request.ServerVariables(HTTP_USER_AGENT) 'Déclaration de jugement clé
if instr(1,s_agent,googlebot,1) >0 then
GetBot=google
end if
si instr(1,s_agent,msnbot,1) >0 alors
GetBot=MSN
fin si
si instr(1,s_agent,slurp,1) >0 alors
GetBot=Yahoo
fin si
si instr(1,s_agent,baiduspider,1) >0 alors
GetBot=baidu
fin si
si instr(1,s_agent,sohu-search,1) >0 alors
GetBot=Sohu
fin si
si instr(1,s_agent,lycos,1) >0 alors
GetBot=Lycos
fin si
si instr(1,s_agent,robozilla,1) >0 then
GetBot=Robozilla
end if
end function
if GetBot=baidu then
'Contenu personnalisé pour Baidu
elseif GetBot=google then
'Contenu personnalisé pour Google
end if
%>
Ce qui suit est plus complet Amis qui a besoin du code peut également s'y référer. Il comprend également certaines informations sur les clients.
Copiez le code comme suit :
Class SystemInfo_Cls
Public Browser, version, platform, IsSearch, AlexaToolbar
Private Sub Class_Initialize()
Dim Agent, Tmpstr
IsSearch = False
If Not IsEmpty(Session(SystemInfo_Cls)) Then
Tmpstr = Split(Session(SystemInfo_Cls), | |)
Navigateur = Version Tmpstr(0)
=Plateforme
Tmpstr(1)
=Tmpstr(2)
AlexaToolbar = Tmpstr(4)
Si Tmpstr(3) = 1 Then
IsSearch = True
End Si
Exit Sub
End Si
Navigateur =
version inconnue =
plate-forme inconnue = inconnue
Agent = Request.ServerVariables (HTTP_USER_AGENT)
Si InStr (Agent, Alexa Barre d'outils) > 0 Alors
AlexaToolbar = OUI
Sinon
AlexaToolbar = NON
Fin si
si gauche (Agent, 7) = Mozilla Then 'Il y a cet identifiant pour le navigateur
Agent = Split(Agent, ;)
If InStr(Agent(1), MSIE) > 0 Then
Browser = Internet Explorer
version = Trim(Left(Replace(Agent(1), MSIE, ) , 6))
ElseIf InStr(Agent(4), Netscape) > 0 Then
Browser = Netscape
Tmpstr = Split(Agent(4), /)
version = Tmpstr(UBound(Tmpstr))
ElseIf InStr(Agent(4), rv:) > 0 Then
Browser = Mozilla
Tmpstr = Split(Agent(4), :)
version = Tmpstr(UBound(Tmpstr))
If InStr(version, ) ) > 0 Alors
Tmpstr = Split(version, ))
version = Tmpstr(0)
End If
End If
If InStr(Agent(2), NT 5.2) > 0 Puis
plateforme = Windows 2003
ElseIf InStr(Agent(2), Windows CE) > 0 Puis
plateforme = Windows CE
ElseIf InStr(Agent(2), NT 5.1) > 0 Puis
plateforme = Windows XP
ElseIf InStr(Agent( 2), NT 4.0) > 0 Puis
plateforme = Windows NT
ElseIf InStr(Agent(2), NT 5.0) > 0 Puis
plateforme = Windows 2000
ElseIf InStr(Agent(2), NT) > 0 Puis
plateforme = Windows NT
ElseIf InStr(Agent(2), 9x) > 0 Puis
plateforme = Windows ME
ElseIf InStr(Agent(2), 98) > 0 Puis
plateforme = Windows 98
ElseIf InStr(Agent(2), 95) > 0 Puis
plateforme = Windows 95
ElseIf InStr(Agent(2), Win32) > 0 Puis
plateforme = Win32
ElseIf InStr(Agent(2), Linux) > 0 Puis
plateforme = Linux
ElseIf InStr(Agent(2), SunOS) > 0 Puis
plateforme = SunOS
ElseIf InStr( Agent(2), Mac) > 0 Alors
plateforme = Mac
SinonSi UBound(Agent) > 2 Alors
Si InStr(Agent(3), NT 5.1) > 0 Puis
plateforme = Windows XP
Fin Si
Si InStr(Agent(3), Linux) > 0 Puis
plateforme = Linux
Fin Si
Fin Si
Si InStr(Agent(2), Windows) > 0 Et plateforme = inconnu Alors
plateforme = Windows
Fin If
ElseIf Left(Agent, 5) = Opera Then 'Il existe cet identifiant pour le navigateur
Agent = Split(Agent, /)
Browser = Mozilla
Tmpstr = Split(Agent(1), )
version = Tmpstr(0)
Si InStr(Agent(1), NT 5.2) > 0 Alors
plateforme = Windows 2003
ElseIf InStr(Agent(1), Windows CE) > 0 Alors
plateforme = Windows CE
ElseIf InStr(Agent(1), NT 5.1 ) > 0 Puis
plateforme = Windows XP
ElseIf InStr(Agent(1), NT 4.0) > 0 Puis
plateforme = Windows NT
ElseIf InStr(Agent(1), NT 5.0) > 0 Puis
plateforme = Windows 2000
Sinon Si InStr(Agent(1), NT) > 0 Puis
plateforme = Windows NT
Sinon Si InStr(Agent(1), 9x) > 0 Alors
plateforme = Windows ME
ElseIf InStr(Agent(1), 98) > 0 Alors
plateforme = Windows 98
ElseIf InStr(Agent(1), 95) > 0 Puis
plateforme = Windows 95
ElseIf InStr(Agent(1), Win32) > 0 Puis
plateforme = Win32
ElseIf InStr(Agent(1), Linux) > 0 Puis
plateforme = Linux
ElseIf InStr(Agent(1), SunOS) > 0 Alors
plateforme = SunOS
ElseIf InStr(Agent(1), Mac) > 0 Puis
plateforme = Mac
ElseIf UBound(Agent) > 2 Alors
Si InStr(Agent(3), NT 5.1) > 0 Then
platform = Windows XP
End If
If InStr(Agent(3), Linux) > 0 Then
platform = Linux
End If
End If
Else
'Identifier le moteur de recherche
Dim botlist, i
botlist = Google, Isaac, Webdup, SurveyBot, Baiduspider, ia_archiver, P.Arthur, FAST-WebCrawler, Java, Microsoft-ATL-Native, TurnitinBot, WebGather, Sleipnir
botlist = Split (botlist, ,)
Pour i = 0 Vers UBound (botlist)
Si InStr(Agent, botlist(i)) > 0 Alors
plateforme = botlist(i) & SearcherIsSearch
= True
Exit For
End If
Next
End If
If IsSearch Then
Browser =
version =
Session (SystemInfo_Cls) = Browser & ||| & version & ||| & platform & |||1||| & AlexaToolbar
Else
Session (SystemInfo_Cls ) = Navigateur & ||| & version & ||| & plateforme & |||0||| & AlexaToolbar
End If
End Sub
End Class