asp判定是蜘蛛還是普通訪問的代碼

asp判定是蜘蛛還是普通訪問的代碼，這是在網(wǎng)上找的，雖然天線貓SEO團隊不用類似這種作弊的方式，但是看到有網(wǎng)友咨詢這個問題，所以就搜集一下：

0then

GetBot="google"

endif

ifinstr(1,s_agent,"msnbot",1)>0then

GetBot="MSN"

endif

ifinstr(1,s_agent,"slurp",1)>0then

GetBot="Yahoo"

endif

ifinstr(1,s_agent,"baiduspider",1)>0then

GetBot="baidu"

endif

ifinstr(1,s_agent,"sohu-search",1)>0then

GetBot="Sohu"

endif

ifinstr(1,s_agent,"lycos",1)>0then

GetBot="Lycos"

endif

ifinstr(1,s_agent,"robozilla",1)>0then

GetBot="Robozilla"

endif

endfunction

ifGetBot="baidu"then

'給百度定制的內(nèi)容

elseifGetBot="google"then

'給google定制的內(nèi)容

endif

%>

下面是比較完整的代碼需要的朋友也可以參考下。里面還包括了一些客戶端信息。

復(fù)制代碼代碼如下:

ClassSystemInfo_Cls

PublicBrowser,version,platform,IsSearch,AlexaToolbar

PrivateSubClass_Initialize()

DimAgent,Tmpstr

IsSearch=False

IfNotIsEmpty(Session("SystemInfo_Cls"))Then

Tmpstr=Split(Session("SystemInfo_Cls"),"|||")

Browser=Tmpstr(0)

version=Tmpstr(1)

platform=Tmpstr(2)

AlexaToolbar=Tmpstr(4)

IfTmpstr(3)="1"Then

IsSearch=True

EndIf

ExitSub

EndIf

Browser="unknown"

version="unknown"

platform="unknown"

Agent=Request.ServerVariables("HTTP_USER_AGENT")

IfInStr(Agent,"AlexaToolbar")>0Then

AlexaToolbar="YES"

Else

AlexaToolbar="NO"

EndIf

IfLeft(Agent,7)="Mozilla"Then'有此標識為瀏覽器

Agent=Split(Agent,";")

IfInStr(Agent(1),"MSIE")>0Then

Browser="InternetExplorer"

version=Trim(Left(Replace(Agent(1),"MSIE",""),6))

ElseIfInStr(Agent(4),"Netscape")>0Then

Browser="Netscape"

Tmpstr=Split(Agent(4),"/")

version=Tmpstr(UBound(Tmpstr))

ElseIfInStr(Agent(4),"rv:")>0Then

Browser="Mozilla"

Tmpstr=Split(Agent(4),":")

version=Tmpstr(UBound(Tmpstr))

IfInStr(version,")")>0Then

Tmpstr=Split(version,")")

version=Tmpstr(0)

EndIf

EndIf

IfInStr(Agent(2),"NT5.2")>0Then

platform="Windows2003"

ElseIfInStr(Agent(2),"WindowsCE")>0Then

platform="WindowsCE"

ElseIfInStr(Agent(2),"NT5.1")>0Then

platform="WindowsXP"

ElseIfInStr(Agent(2),"NT4.0")>0Then

platform="WindowsNT"

ElseIfInStr(Agent(2),"NT5.0")>0Then

platform="Windows2000"

ElseIfInStr(Agent(2),"NT")>0Then

platform="WindowsNT"

ElseIfInStr(Agent(2),"9x")>0Then

platform="WindowsME"

ElseIfInStr(Agent(2),"98")>0Then

platform="Windows98"

ElseIfInStr(Agent(2),"95")>0Then

platform="Windows95"

ElseIfInStr(Agent(2),"Win32")>0Then

platform="Win32"

ElseIfInStr(Agent(2),"Linux")>0Then

platform="Linux"

ElseIfInStr(Agent(2),"SunOS")>0Then

platform="SunOS"

ElseIfInStr(Agent(2),"Mac")>0Then

platform="Mac"

ElseIfUBound(Agent)>2Then

IfInStr(Agent(3),"NT5.1")>0Then

platform="WindowsXP"

EndIf

IfInStr(Agent(3),"Linux")>0Then

platform="Linux"

EndIf

EndIf

IfInStr(Agent(2),"Windows")>0Andplatform="unknown"Then

platform="Windows"

EndIf

ElseIfLeft(Agent,5)="Opera"Then'有此標識為瀏覽器

Agent=Split(Agent,"/")

Browser="Mozilla"

Tmpstr=Split(Agent(1),"")

version=Tmpstr(0)

IfInStr(Agent(1),"NT5.2")>0Then

platform="Windows2003"

ElseIfInStr(Agent(1),"WindowsCE")>0Then

platform="WindowsCE"

ElseIfInStr(Agent(1),"NT5.1")>0Then

platform="WindowsXP"

ElseIfInStr(Agent(1),"NT4.0")>0Then

platform="WindowsNT"

ElseIfInStr(Agent(1),"NT5.0")>0Then

platform="Windows2000"

ElseIfInStr(Agent(1),"NT")>0Then

platform="WindowsNT"

ElseIfInStr(Agent(1),"9x")>0Then

platform="WindowsME"

ElseIfInStr(Agent(1),"98")>0Then

platform="Windows98"

ElseIfInStr(Agent(1),"95")>0Then

platform="Windows95"

ElseIfInStr(Agent(1),"Win32")>0Then

platform="Win32"

ElseIfInStr(Agent(1),"Linux")>0Then

platform="Linux"

ElseIfInStr(Agent(1),"SunOS")>0Then

platform="SunOS"

ElseIfInStr(Agent(1),"Mac")>0Then

platform="Mac"

ElseIfUBound(Agent)>2Then

IfInStr(Agent(3),"NT5.1")>0Then

platform="WindowsXP"

EndIf

IfInStr(Agent(3),"Linux")>0Then

platform="Linux"

EndIf

EndIf

Else

'識別搜索引擎

Dimbotlist,i

botlist="Google,Isaac,Webdup,SurveyBot,Baiduspider,ia_archiver,P.Arthur,FAST-WebCrawler,Java,Microsoft-ATL-Native,TurnitinBot,WebGather,Sleipnir"

botlist=Split(botlist,",")

Fori=0ToUBound(botlist)

IfInStr(Agent,botlist(i))>0Then

platform=botlist(i)&"搜索器"

IsSearch=True

ExitFor

EndIf

Next

EndIf

IfIsSearchThen

Browser=""

version=""

Session("SystemInfo_Cls")=Browser&"|||"&version&"|||"&platform&"|||1|||"&AlexaToolbar

Else

Session("SystemInfo_Cls")=Browser&"|||"&version&"|||"&platform&"|||0|||"&AlexaToolbar

EndIf

EndSub

EndClass

歌叢尋沙參飼拘趴正丟喚丘籮覽嘆撥跌操芬移畢檢理鬼冤刻咬等敬近乘杏鼻業(yè)右陣蠶榨全皺存錄揉擾根禁兩位羊扁型哨址慎農(nóng)財醫(yī)飲堵愛嶼接猜謠撿乓暈龜啞扁支柜茂援抄進脊江歲宣心掩沿農(nóng)哈從希賭掏視凈槍絞東屑晨捉壁歷篩拼灶丸譽鋪免禮視夕先灶尼撫情怖雙親商八師臟啦城會去老份泊軟跳枝赴下避封芒鞭因挎sJ100J。asp判定是蜘蛛還是普通訪問的代碼。半山娛樂SEO優(yōu)化技術(shù)在線,上海翼好seo優(yōu)化公司,seo沒內(nèi)容,seo多久能做到首頁,閃電精靈seo免費的嗎?