Обратите внимание, что следующий код предназначен для отображения подходящего контента для поисковых систем, но это вредно для SEO. Не рекомендуется. В качестве учебного справочника.
Скопируйте код следующим образом:<%
function GetBot()
'Query Spider
dim s_agent
GetBot=
s_agent=Request.ServerVariables(HTTP_USER_AGENT) 'Ключевое утверждение
if instr(1,s_agent,googlebot,1) >0 then
GetBot=google
end if
если instr(1,s_agent,msnbot,1) >0, то
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, то
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
'Содержимое, настроенное для Baidu
elseif GetBot=google then
'Содержимое, настроенное для Google
end if
%>
Следующее более полное Друзья кому нужен код, также может обратиться к нему. Он также включает некоторую информацию о клиенте.
Скопируйте код следующим образом:
Class SystemInfo_Cls
Public Browser, версия, платформа, IsSearch, AlexaToolbar
Private Sub Class_Initialize()
Dim Agent, Tmpstr
IsSearch = False
Если не IsEmpty(Session(SystemInfo_Cls)) Тогда
Tmpstr = Split(Session(SystemInfo_Cls), | |)
Браузер = Версия Tmpstr(0)
=Платформа
Tmpstr(1)
= |Tmpstr(2)
AlexaToolbar = Tmpstr(4)
Если Tmpstr(3) = 1 Тогда
IsSearch = True
End Если
Выход Sub
End Если
Браузер = неизвестная
версия = неизвестная
платформа = неизвестный
Агент = Request.ServerVariables(HTTP_USER_AGENT)
Если InStr(Agent, Alexa) Toolbar) > 0 Тогда
AlexaToolbar = ДА
Иначе
AlexaToolbar = НЕТ
Конец Если
Если Осталось (Агент, 7) = Mozilla then 'Этот идентификатор браузера
Agent = Split(Agent, ;)
If InStr(Agent(1), MSIE) > 0 Тогда
Browser = версия Internet Explorer
= Trim(Left(Replace(Agent(1), MSIE, ) , 6))
ElseIf InStr(Agent(4), Netscape) > 0 Тогда
Browser = Netscape
Tmpstr = Split(Agent(4), /)
version = Tmpstr(UBound(Tmpstr))
ElseIf InStr(Agent(4), rv:) > 0 Тогда
Browser = Mozilla
Tmpstr = Split(Agent(4), :)
version = Tmpstr(UBound(Tmpstr))
Если InStr(version, ) ) > 0 Тогда
Tmpstr = Split(version, ))
version = Tmpstr(0)
End If
End If
If InStr(Agent(2), NT 5.2) > 0 Тогда
платформа = Windows 2003
ElseIf InStr(Agent(2), Windows CE) > 0 Тогда
платформа = Windows CE
ElseIf InStr(Agent(2), NT 5.1) > 0 Тогда
платформа = Windows XP
ElseIf InStr(Agent( 2), NT 4.0) > 0 Тогда
платформа = Windows NT
ElseIf InStr(Agent(2), NT 5.0) > 0 Тогда
платформа = Windows 2000
ElseIf InStr(Agent(2), NT) > 0 Тогда
платформа = Windows NT
ElseIf InStr(Agent(2), 9x) > 0 Тогда
платформа = Windows ME
ElseIf InStr(Agent(2), 98) > 0 Тогда
платформа = Windows 98
ElseIf InStr(Агент(2), 95) > 0 Тогда
платформа = Windows 95
ElseIf InStr(Agent(2), Win32) > 0 Тогда
платформа = Win32
ElseIf InStr(Agent(2), Linux) > 0 Тогда
платформа = Linux
ElseIf InStr(Agent(2), SunOS) > 0 Тогда
платформа = SunOS
ElseIf InStr( Агент(2), Mac) > 0 Тогда
платформа = Mac
ИначеЕсли UBound(Агент) > 2 Тогда
Если InStr(Агент(3), NT 5.1) > 0 Тогда
платформа = Windows XP
Конец Если
Если InStr(Агент(3), Linux) > 0 Тогда
платформа = Linux
Конец Если
Конец Если
Если InStr(Агент(2), Windows) > 0 И платформа = неизвестна Тогда
платформа =Конец
Windows
If
ElseIf Left(Agent, 5) = Opera then 'Этот идентификатор браузера
Agent = Split(Agent, /)
Browser = Mozilla
Tmpstr = Split(Agent(1), )
version = Tmpstr(0)
Если InStr(Agent(1), NT 5.2) > 0 Тогда
платформа = Windows 2003
ElseIf InStr(Agent(1), Windows CE) > 0 Тогда
платформа = Windows CE
ElseIf InStr(Agent(1), NT 5.1 ) > 0 Тогда
платформа = Windows XP
ElseIf InStr(Agent(1), NT 4.0) > 0 Тогда
платформа = Windows NT
ElseIf InStr(Agent(1), NT 5.0) > 0 Тогда
платформа = Windows 2000
ElseIf InStr(Agent(1), NT) > 0 Тогда
платформа = Windows NT
ElseIf InStr(Agent(1), 9x) > 0 Тогда
платформа = Windows ME
ElseIf InStr(Agent(1), 98) > 0 Тогда
платформа = Windows 98
ElseIf InStr(Agent(1), 95) > 0 Тогда
платформа = Windows 95
ElseIf InStr(Agent(1), Win32) > 0 Тогда
платформа = Win32
ElseIf InStr(Agent(1), Linux) > 0 Тогда
платформа = Linux
ElseIf InStr(Agent(1), SunOS) > 0 Тогда
платформа = SunOS
ElseIf InStr(Агент(1), Mac) > 0 Тогда
платформа = Mac
ElseIf UBound(Агент) > 2 Тогда
Если InStr(Agent(3), NT 5.1) > 0 Тогда
платформа = Windows XP
Конец Если
InStr(Агент(3), Linux) > 0 Тогда
платформа = Linux
Конец Если
Конец Если
Иначе
'Определить поисковую систему
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)
Если InStr(Agent, botlist(i)) > 0 Тогда
платформа = 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) ) = Браузер & ||| & версия & ||| & платформа & |||0||| & AlexaToolbar
End If
End Sub
End Class