โปรดทราบว่าโค้ดต่อไปนี้มีจุดมุ่งหมายเพื่อแสดงเนื้อหาที่เหมาะสมสำหรับเครื่องมือค้นหา แต่ไม่เป็นผลดีต่อ SEO ไม่แนะนำ. เพื่อเป็นข้อมูลอ้างอิงการเรียนรู้
คัดลอกโค้ดดังต่อไปนี้:<%
function GetBot()
'Query Spider
dim s_agent
GetBot=
s_agent=Request.ServerVariables(HTTP_USER_AGENT) ' คำชี้แจงการตัดสินใจที่สำคัญ
if 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
if GetBot=baidu แล้วก็
'เนื้อหาที่ปรับแต่งสำหรับ Baidu
elseif GetBot=google แล้วก็
'เนื้อหาที่ปรับแต่งสำหรับ Google
end ถ้า
%>
ต่อไปนี้จะสมบูรณ์ยิ่งขึ้น เพื่อน ที่ต้องการรหัสก็สามารถอ้างอิงได้ รวมถึงข้อมูลลูกค้าบางส่วนด้วย
คัดลอกโค้ดดังต่อไปนี้:
Class SystemInfo_Cls
Public Browser, เวอร์ชัน, แพลตฟอร์ม, 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 ถ้า
ออกจาก Sub
End ถ้า
Browser =
เวอร์ชันที่ไม่รู้จัก =
แพลตฟอร์มที่ไม่รู้จัก = ไม่รู้จัก
Agent = Request.ServerVariables (HTTP_USER_AGENT)
ถ้า InStr (Agent, Alexa แถบเครื่องมือ) > 0 จากนั้น
AlexaToolbar = ใช่ มิ
ฉะนั้น
AlexaToolbar = ไม่
สิ้นสุดหาก
ปล่อย (ตัวแทน 7) = Mozilla จากนั้น 'มีตัวระบุนี้สำหรับเบราว์เซอร์
Agent = Split(Agent, ;)
ถ้า InStr(Agent(1), MSIE) > 0 ดังนั้น
Browser = Internet Explorer
version = 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 (ตัวแทน (2), NT 5.0) > 0 จากนั้น
แพลตฟอร์ม = Windows 2000
ElseIf InStr (ตัวแทน (2), NT) > 0 จากนั้น
แพลตฟอร์ม = Windows NT
ElseIf InStr (ตัวแทน (2), 9x) > 0 จากนั้น
แพลตฟอร์ม = Windows ME
ElseIf InStr (ตัวแทน (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( ตัวแทน (2), Mac) > 0 จากนั้น
แพลตฟอร์ม = Mac
ElseIf UBound(ตัวแทน) > 2 จากนั้น
ถ้า InStr(ตัวแทน(3), NT 5.1) > 0 จากนั้น
แพลตฟอร์ม = Windows XP
สิ้นสุด ถ้า
ถ้า InStr (Agent (3), Linux) > 0 ดังนั้น
แพลตฟอร์ม = Linux
สิ้นสุด ถ้า
สิ้นสุด ถ้า
InStr (Agent (2), Windows) > 0 และแพลตฟอร์ม = ไม่ทราบ จากนั้น
แพลตฟอร์ม = Windows
End ถ้า
ElseIf Left(Agent, 5) = Opera ดังนั้น 'มีตัวระบุนี้สำหรับเบราว์เซอร์
Agent = Split(Agent, /)
Browser = Mozilla
Tmpstr = Split(Agent(1), )
version = Tmpstr(0)
ถ้า InStr (ตัวแทน (1), NT 5.2) > 0 จากนั้น
แพลตฟอร์ม = Windows 2003
ElseIf InStr (ตัวแทน (1), Windows CE) > 0 จากนั้น
แพลตฟอร์ม = Windows CE
ElseIf InStr (ตัวแทน (1), NT 5.1 ) > 0 จากนั้น
แพลตฟอร์ม = Windows XP
ElseIf InStr(Agent(1), NT 4.0) > 0 จากนั้น
แพลตฟอร์ม = Windows NT
ElseIf InStr (ตัวแทน (1), NT 5.0) > 0 จากนั้น
แพลตฟอร์ม = Windows 2000
ElseIf InStr (ตัวแทน (1), NT) > 0 จากนั้น
แพลตฟอร์ม = Windows NT
ElseIf InStr (ตัวแทน (1), 9x) > 0 จากนั้น
แพลตฟอร์ม = Windows ME
ElseIf InStr (ตัวแทน (1), 98) > 0 จากนั้น
แพลตฟอร์ม = Windows 98
ElseIf InStr (ตัวแทน (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 แล้ว
ถ้า InStr(Agent(3), NT 5.1) > 0 จากนั้น
Platform = Windows XP
End If
ถ้า InStr(Agent(3), Linux) > 0 จากนั้น
Platform = 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 = แยก (botlist, ,)
สำหรับ i = 0 ถึง UBound(botlist)
ถ้า InStr(ตัวแทน, botlist(i)) > 0 ดังนั้น
แพลตฟอร์ม = botlist(i) & SearcherIsSearch
= True
Exit For
End ถ้า
Next
End ถ้า
IsSearch แล้ว
Browser =
version =
Session(SystemInfo_Cls) = Browser & ||| & version & ||| & Platform & |||1||| & AlexaToolbar
Else
Session (SystemInfo_Cls ) = เบราว์เซอร์ & |||. & เวอร์ชัน & |||. & แพลตฟอร์ม & |||0||| & AlexaToolbar
สิ้นสุดหาก
สิ้นสุดคลาส
ย่อย