Beachten Sie, dass der folgende Code dazu gedacht ist, einige geeignete Inhalte für Suchmaschinen anzuzeigen, dies ist jedoch nicht gut für SEO. Nicht empfohlen. Als Lernreferenz.
Kopieren Sie den Code wie folgt:<%
function GetBot()
'Query Spider
dim s_agent
GetBot=
s_agent=Request.ServerVariables(HTTP_USER_AGENT) 'Key Judgement Statement
if instr(1,s_agent,googlebot,1) >0 then
GetBot=google
end if
if instr(1,s_agent,msnbot,1) >0 then
GetBot=MSN
end if
if instr(1,s_agent,slurp,1) >0 then
GetBot=Yahoo
end if
if instr(1,s_agent,baiduspider,1) >0 then
GetBot=baidu
end if
if instr(1,s_agent,sohu-search,1) >0 then
GetBot=Sohu
end if
if instr(1,s_agent,lycos,1) >0 then
GetBot=Lycos
end if
if instr(1,s_agent,robozilla,1) >0 then
GetBot=Robozilla
end if
end function
if GetBot=baidu then
'Inhalt angepasst für Baidu
elseif GetBot=google then
'Inhalt angepasst für Google
end if
%>
Das Folgende ist vollständiger, Freunde Wer den Code benötigt, kann auch darauf zurückgreifen. Es enthält auch einige Kundeninformationen.
Kopieren Sie den Code wie folgt:
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), | |. |)
Browser = Tmpstr(0)
Version = Tmpstr(1)
Plattform = Tmpstr(2)
AlexaToolbar = Tmpstr(4)
If Tmpstr(3) = 1 Then
IsSearch = True
End If
Exit Sub
End If
Browser = unbekannte
Version = unbekannte
Plattform = unbekannt
Agent = Request.ServerVariables(HTTP_USER_AGENT)
If InStr(Agent, Alexa Toolbar) > 0 Then
AlexaToolbar = YES
Else
AlexaToolbar = NO
End If
If Left(Agent, 7) = Mozilla Then 'Es gibt diese Kennung für den Browser
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 Then
Tmpstr = Split(version, ))
version = Tmpstr(0)
End If
End If
If InStr(Agent(2), NT 5.2) > 0 Dann
Plattform = Windows 2003
ElseIf InStr(Agent(2), Windows CE) > 0 Dann
Plattform = Windows CE
ElseIf InStr(Agent(2), NT 5.1) > 0 Dann
Plattform = Windows XP
ElseIf InStr(Agent( 2), NT 4.0) > 0 Then
platform = Windows NT
ElseIf InStr(Agent(2), NT 5.0) > 0 Dann
Plattform = Windows 2000
ElseIf InStr(Agent(2), NT) > 0 Dann
Plattform = Windows NT
ElseIf InStr(Agent(2), 9x) > 0 Dann
Plattform = Windows ME
ElseIf InStr(Agent(2), 98) > 0 Dann
Plattform = Windows 98
ElseIf InStr(Agent(2), 95) > 0 Dann
Plattform = Windows 95
ElseIf InStr(Agent(2), Win32) > 0 Then
platform = Win32
ElseIf InStr(Agent(2), Linux) > 0 Then
platform = Linux
ElseIf InStr(Agent(2), SunOS) > 0 Then
platform = SunOS
ElseIf InStr( Agent(2), Mac) > 0 Then
platform = Mac
ElseIf UBound(Agent) > 2 Then
If InStr(Agent(3), NT 5.1) > 0 Dann
Plattform = Windows XP
Ende, wenn
InStr(Agent(3), Linux) > 0, dann
Plattform = Linux
Ende, wenn
Ende,
wenn InStr(Agent(2), Windows) > 0 und Plattform = unbekannt, dann
Plattform = Windows
Ende If
ElseIf Left(Agent, 5) = Opera Then 'Es gibt diese Kennung für den Browser
Agent = Split(Agent, /)
Browser = Mozilla
Tmpstr = Split(Agent(1), )
version = Tmpstr(0)
If InStr(Agent(1), NT 5.2) > 0 Then
platform = Windows 2003
ElseIf InStr(Agent(1), Windows CE) > 0 Then
platform = Windows CE
ElseIf InStr(Agent(1), NT 5.1 ) > 0 Dann
Plattform = Windows XP
ElseIf InStr(Agent(1), NT 4.0) > 0 Dann
Plattform = Windows NT
ElseIf InStr(Agent(1), NT 5.0) > 0 Dann
Plattform = Windows 2000
ElseIf InStr(Agent(1), NT) > 0 Dann
Plattform = Windows NT
ElseIf InStr(Agent(1), 9x) > 0 Dann
Plattform = Windows ME
ElseIf InStr(Agent(1), 98) > 0 Then
platform = Windows 98
ElseIf InStr(Agent(1), 95) > 0 Dann
Plattform = Windows 95
ElseIf InStr(Agent(1), Win32) > 0 Dann
Plattform = Win32
ElseIf InStr(Agent(1), Linux) > 0 Dann
Plattform = Linux
ElseIf InStr(Agent(1), SunOS) > 0 Then
platform = SunOS
ElseIf InStr(Agent(1), Mac) > 0 Then
platform = Mac
ElseIf UBound(Agent) > 2 Then
If 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
'Suchmaschine identifizieren
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, ,)
For i = 0 To UBound(botlist)
Wenn InStr(Agent, botlist(i)) > 0, dann
ist platform = botlist(i) & SearcherIsSearch
= True
Exit For
End If
If
IsSearch
Then
Browser =
version =
Session(SystemInfo_Cls
) = Browser & ||| & platform & |||1
|||
) = Browser & |||. & Version & ||| & Plattform & |||0||| & AlexaToolbar
End If
End Sub
End Class