位置：首頁(yè) > 技術(shù)分享 > SEO優(yōu)化>asp判定是蜘蛛還是普通訪問的代碼

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

時(shí)間：03-11

欄目：SEO優(yōu)化

asp判定是蜘蛛還是普通訪問的代碼，這是在網(wǎng)上找的兩個角度入手，雖然天線貓SEO團(tuán)隊(duì)不用類似這種作弊的方式建強保護，但是看到有網(wǎng)友咨詢這個(gè)問題，所以就搜集一下：

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'有此標(biāo)識(shí)為瀏覽器

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

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

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

platform="Windows"

EndIf

ElseIfLeft(Agent,5)="Opera"Then'有此標(biāo)識(shí)為瀏覽器

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

Else

'識(shí)別搜索引擎

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

IfIsSearchThen

Browser=""

version=""

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

Else

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

EndIf

EndSub

EndClass

猜您喜歡

金融類seo 北京關(guān)鍵詞seo排名網(wǎng)站圖片放在oss對(duì)seo有影響嗎蘋果xs好還是seo好 seo業(yè)務(wù)合作阿里310seo 百度seo軟件九度排名輕松seo 排名南京seo關(guān)鍵詞排名中國(guó)seo聯(lián)盟個(gè)seo好加瑋杺CJ111602可靠 seo實(shí)戰(zhàn)密碼微盤國(guó)內(nèi)seo工具 seo網(wǎng)絡(luò)營(yíng)銷案例分析光年seo論壇臺(tái)州專業(yè)seo 口碑好的seo快速排名哪家專業(yè)泑泑seo 武漢黑帽SEO seo優(yōu)化公司北京 seo排名是什么菜刀seo seo也成搜索引擎優(yōu)化 SEO萬(wàn)事通下載深圳最好的seo外包中山網(wǎng)站seo外包中山seo外包公司 seo站長(zhǎng)聯(lián)盟建站seo優(yōu)化推廣外推seo 中山網(wǎng)站seo 排名優(yōu)化seo seo工作時(shí)間表

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

上一篇：網(wǎng)站SEO優(yōu)化_如何提升網(wǎng)站內(nèi)頁(yè)權(quán)重_SEO優(yōu)化SEO推廣SEO服務(wù)天線貓_

下一篇：保定seo淘寶客網(wǎng)站怎么推廣優(yōu)化

如果您覺得 asp判定是蜘蛛還是普通訪問的代碼 這篇文章對(duì)您有用情況較常見，請(qǐng)分享給您的好友，謝謝!

解放双手，效率倍增！天线猫软件，您的推广营销好帮手，本网站专注研发SEO优化软件、工作效率类软件、批量采集发布软件、其他网络软件等。是SEOER、网站工作者及各类上班族必备的效率提升好帮手，可让您快速达到增加网站流量、提升搜索引擎关键词排名、提升网站权重、工作效率飞速提升的效果，大大节约您的宝贵时间,效率几十百几百倍的提升！各软件均支持免费试用，下载地址请点这里 [天线猫软件下载]