Perhatikan bahwa kode berikut ini dimaksudkan untuk menampilkan beberapa konten yang sesuai untuk mesin pencari, namun ini tidak baik untuk SEO. Tidak direkomendasikan. Sebagai referensi pembelajaran.
Salin kode sebagai berikut:<%
function GetBot()
'Query spider
dim s_agent
GetBot=
s_agent=Request.ServerVariables(HTTP_USER_AGENT) 'Pernyataan penilaian kunci
if instr(1,s_agent,googlebot,1) >0 maka
GetBot=google
end if
jika instr(1,s_agent,msnbot,1) >0 maka
GetBot=MSN
berakhir jika
jika instr(1,s_agent,slurp,1) >0 lalu
GetBot=Yahoo
berakhir jika
jika instr(1,s_agent,baiduspider,1) >0 maka
GetBot=baidu
berakhir jika
jika instr(1,s_agent,sohu-search,1) >0 maka
GetBot=Sohu
berakhir jika
if instr(1,s_agent,lycos,1) >0 maka
GetBot=Lycos
berakhir jika
if instr(1,s_agent,robozilla,1) >0 lalu
GetBot=Robozilla
end if
end function
if GetBot=baidu lalu
'Konten dikustomisasi untuk Baidu
elseif GetBot=google lalu
'Konten dikustomisasi untuk Google
end if
%>
Berikut ini lebih lengkapnya Sobat yang membutuhkan kode juga dapat merujuknya. Ini juga mencakup beberapa informasi klien.
Copy kode sebagai berikut:
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), | |.|)
Peramban = Tmpstr(0)
versi = Tmpstr(1)
platform = Tmpstr(2)
AlexaToolbar = Tmpstr(4)
Jika Tmpstr(3) = 1 Maka
IsSearch = True
End Jika
Keluar Sub
Akhir Jika
Browser =
versi tidak diketahui =
platform tidak diketahui =
Agen tidak diketahui = Permintaan.ServerVariables(HTTP_USER_AGENT)
Jika InStr(Agen, Alexa Toolbar) > 0 Maka
AlexaToolbar = YA
Lain
AlexaToolbar = TIDAK
Berakhir Jika
Jika Kiri(Agen, 7) = Mozilla Lalu 'Ada pengenal ini untuk browser
Agent = Split(Agent, ;)
If InStr(Agent(1), MSIE) > 0 Kemudian
Browser = Internet Explorer
version = Trim(Left(Replace(Agent(1), MSIE, ) , 6))
ElseIf InStr(Agent(4), Netscape) > 0 Maka
Browser = Netscape
Tmpstr = Split(Agent(4), /)
version = Tmpstr(UBound(Tmpstr))
ElseIf InStr(Agent(4), rv:) > 0 Kemudian
Browser = Mozilla
Tmpstr = Split(Agent(4), :)
version = Tmpstr(UBound(Tmpstr))
If InStr(version, ) ) > 0 Maka
Tmpstr = Split(versi, ))
version = Tmpstr(0)
Akhir Jika
Berakhir Jika
Jika InStr(Agen(2), NT 5.2) > 0 Kemudian
platform = Windows 2003
ElseIf InStr(Agent(2), Windows CE) > 0 Kemudian
platform = Windows CE
ElseIf InStr(Agent(2), NT 5.1) > 0 Kemudian
platform = Windows XP
ElseIf InStr(Agent( 2), NT 4.0) > 0 Kemudian
platform = Windows NT
ElseIf InStr(Agent(2), NT 5.0) > 0 Kemudian
platform = Windows 2000
ElseIf InStr(Agent(2), NT) > 0 Kemudian
platform = Windows NT
ElseIf InStr(Agent(2), 9x) > 0 Kemudian
platform = Windows ME
ElseIf InStr(Agent(2), 98) > 0 Kemudian
platform = Windows 98
ElseIf InStr(Agent(2), 95) > 0 Kemudian
platform = Windows 95
ElseIf InStr(Agent(2), Win32) > 0 Kemudian
platform = Win32
ElseIf InStr(Agent(2), Linux) > 0 Kemudian
platform = Linux
ElseIf InStr(Agent(2), SunOS) > 0 Kemudian
platform = SunOS
ElseIf InStr( Agen(2), Mac) > 0 Maka
platform = Mac
ElseIf UBound(Agent) > 2 Kemudian
If InStr(Agent(3), NT 5.1) > 0 Maka
platform = Windows XP
End If
If InStr(Agent(3), Linux) > 0 Kemudian
platform = Linux
End If
End If
If InStr(Agent(2), Windows) > 0 Dan platform = unknown Maka
platform = Windows
End Jika
ElseIf Left(Agent, 5) = Opera Lalu 'Ada pengenal ini untuk browser
Agent = Split(Agent, /)
Browser = Mozilla
Tmpstr = Split(Agent(1), )
version = Tmpstr(0)
If InStr(Agent(1), NT 5.2) > 0 Maka
platform = Windows 2003
ElseIf InStr(Agent(1), Windows CE) > 0 Maka
platform = Windows CE
ElseIf InStr(Agent(1), NT 5.1 ) > 0 Kemudian
platform = Windows XP
ElseIf InStr(Agent(1), NT 4.0) > 0 Kemudian
platform = Windows NT
ElseIf InStr(Agent(1), NT 5.0) > 0 Kemudian
platform = Windows 2000
ElseIf InStr(Agent(1), NT) > 0 Kemudian
platform = Windows NT
ElseIf InStr(Agent(1), 9x) > 0 Kemudian
platform = Windows SAYA
ElseIf InStr(Agent(1), 98) > 0 Maka
platform = Windows 98
ElseIf InStr(Agent(1), 95) > 0 Kemudian
platform = Windows 95
ElseIf InStr(Agent(1), Win32) > 0 Kemudian
platform = Win32
ElseIf InStr(Agent(1), Linux) > 0 Kemudian
platform = Linux
ElseIf InStr(Agent(1), SunOS) > 0 Lalu
platform = SunOS
ElseIf InStr(Agent(1), Mac) > 0 Lalu
platform = Mac
ElseIf UBound(Agent) > 2 Lalu
If InStr(Agent(3), NT 5.1) > 0 Kemudian
platform = Windows XP
End If
If InStr(Agent(3), Linux) > 0 Kemudian
platform = Linux
End If
End If
Else
'Identifikasi mesin pencari
Redupkan daftar bot, i
botlist = Google,Isaac,Webdup,SurveyBot,Baiduspider,ia_archiver,P.Arthur,FAST-WebCrawler,Java,Microsoft-ATL-Native,TurnitinBot,WebGather,Sleipnir
botlist = Split(botlist, ,)
Untuk i = 0 Ke UBound(botlist)
Jika InStr(Agen, daftar bot(i)) > 0 Maka
platform = daftar bot(i) & SearcherIsSearch
=Keluar
Benar
UntukAkhir Jika
Berikutnya
Berakhir Jika
Jika IsSearch Lalu
Browser =
versi =
Sesi(SystemInfo_Cls) = Browser & ||| & versi & ||| & platform & |||
1
|||
) = Browser & ||| & versi & ||| & platform & |||0|||. & AlexaToolbar
Berakhir Jika
Kelas
Sub Akhir