لاحظ أن الكود التالي يهدف إلى عرض بعض المحتوى المناسب لمحركات البحث، ولكن هذا ليس جيدًا لتحسين محركات البحث. غير مستحسن. كمرجع للتعلم.
انسخ الكود كما يلي:<%
function GetBot()
'Query Spider
dim s_agent
GetBot=
s_agent=Request.ServerVariables(HTTP_USER_AGENT) 'بيان الحكم الرئيسي
إذا instr(1,s_agent,googlebot,1) >0 ثم
GetBot=google
end if
إذا instr(1,s_agent,msnbot,1) >0 ثم
GetBot=MSN
ينتهي إذا
إذا instr(1,s_agent,slurp,1) >0 ثم
GetBot=Yahoo
ينتهي إذا
كان instr(1,s_agent,baiduspider,1) >0 ثم
GetBot=baidu
ينتهي إذا
كان instr(1,s_agent,sohu-search,1) >0 ثم
GetBot=Sohu
ينتهي إذا
كان instr(1,s_agent,lycos,1) >0 ثم
GetBot=Lycos
ينتهي إذا
إذا instr(1,s_agent,robozilla,1) >0 ثم
GetBot=Robozilla
end if
end function
إذا GetBot=baidu ثم
'محتوى مخصص لـ Baidu
elseif GetBot=google ثم
'محتوى مخصص لـ Google
النهاية إذا
%>
ما يلي أكثر اكتمالا يا أصدقاء ومن يحتاج إلى الكود يمكنه أيضًا الرجوع إليه. ويتضمن أيضًا بعض معلومات العميل.
انسخ الكود كما يلي:
Class SystemInfo_Cls
Public Browser، version، Platform، IsSearch، AlexaToolbar
Private Sub Class_Initialize()
Dim Agent, Tmpstr
IsSearch = False
If Not IsEmpty(Session(SystemInfo_Cls)) ثم
Tmpstr = Split(Session(SystemInfo_Cls), | |. |)
المتصفح =إصدار
Tmpstr(0)
=منصة Tmpstr(1) = Tmpstr(2)
AlexaToolbar = Tmpstr(4)
إذا Tmpstr(3) = 1 ثم
IsSearch = True
End إذا
تم الخروج من النهاية الفرعية
إذا كان
المتصفح =
إصدار غير معروف =
نظام أساسي غير معروف =
وكيل غير معروف = Request.ServerVariables(HTTP_USER_AGENT)
إذا InStr(Agent, Alexa شريط الأدوات) > 0 ثم
AlexaToolbar = نعم،
وإلا
AlexaToolbar = NO
End If
If Left(Agent, 7) = Mozilla ثم 'يوجد هذا المعرف للمتصفح
Agent = Split(Agent, ;)
إذا كان InStr(Agent(1), MSIE) > 0 ثم
Browser = إصدار Internet Explorer
= Trim(Left(Replace(Agent(1), MSIE, ) , 6))
ElseIf InStr(Agent(4), Netscape) > 0 ثم
المتصفح = Netscape
Tmpstr = Split(Agent(4), /)
الإصدار = Tmpstr(UBound(Tmpstr))
ElseIf InStr(Agent(4), rv:) > 0 ثم
المتصفح = 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(Agent(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( Agent(2)، Mac) > 0 ثم
النظام الأساسي = Mac
ElseIf UBound(Agent) > 2 ثم
If InStr(Agent(3)، NT 5.1) > 0 ثم
النظام الأساسي = Windows XP
End If
If InStr(Agent(3), Linux) > 0 ثم
النظام الأساسي = Linux
End If
End If
If InStr(Agent(2), Windows) > 0 والنظام الأساسي = غير معروف ثم
النظام الأساسي = Windows
End إذا كان
ElseIf Left(Agent, 5) = Opera إذن 'يوجد هذا المعرف للمتصفح
Agent = Split(Agent, /)
Browser = Mozilla
Tmpstr = Split(Agent(1), )
version = Tmpstr(0)
If 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(Agent(1), Mac) > 0 ثم
النظام الأساسي = Mac
ElseIf UBound(Agent) > 2 ثم
If InStr(Agent(3), NT 5.1) > 0 ثم
النظام الأساسي = Windows XP
End If
If InStr(Agent(3), Linux) > 0 ثم
النظام الأساسي = Linux
End If
End If
Else
'حدد محرك البحث
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 إلى UBound(botlist)
إذا كان InStr(Agent, botlist(i))> 0 ثم
النظام الأساسي = botlist(i) & SearcherIsSearch
=خروج
حقيقي
للنهاية إذا كانت
النهاية
التالية
إذاكان IsSearch ثم
المتصفح =
الإصدار =
جلسة (SystemInfo_Cls) = المتصفح & ||| & الإصدار & ||| & النظام الأساسي & |||1||| وجلسة AlexaToolbar
الأخرى
(SystemInfo_Cls ) = المتصفح & |||. & الإصدار & |||. & النظام الأساسي & |||0|||. & AlexaToolbar
End If
Sub
End Class