蜘蛛機(jī)器人代碼asp版.doc
《蜘蛛機(jī)器人代碼asp版.doc》由會(huì)員分享，可在線閱讀，更多相關(guān)《蜘蛛機(jī)器人代碼asp版.doc（3頁珍藏版）》請(qǐng)?jiān)谘b配圖網(wǎng)上搜索。
<% 蜘蛛機(jī)器人 function spiderbot() Dim Url,GetLocationURL Dim ServerPort,ServerName,ScriptName,QueryString ServerName = Request.ServerVariables("SERVER_NAME") ServerPort = Request.ServerVariables("SERVER_PORT") ScriptName = Request.ServerVariables("SCRIPT_NAME") QueryString = Request.ServerVariables("QUERY_STRING") Url="http://"&ServerName If ServerPort <> "80" Then Url = Url & ":" & ServerPort Url=Url&ScriptName If QueryString <>"" Then Url=Url&"?"& QueryString GetLocationURL=Url dim agent: agent = lcase(request.servervariables("http_user_agent")) dim Bot: Bot = "" if instr(agent, "googlebot") > 0 then Bot = "Google" if instr(agent, "mediapartners-google") > 0 then Bot = "Google Adsense" if instr(agent, "baiduspider") > 0 then Bot = "Baidu" if instr(agent, "sogou spider") > 0 then Bot = "Sogou" if instr(agent, "yahoo") > 0 then Bot = "Yahoo!" if instr(agent, "msn") > 0 then Bot = "MSN" if instr(agent, "ia_archiver") > 0 then Bot = "Alexa" if instr(agent, "iaarchiver") > 0 then Bot = "Alexa" if instr(agent, "sohu") > 0 then Bot = "Sohu" if instr(agent, "sqworm") > 0 then Bot = "AOL" if instr(agent, "yodaobot") > 0 then Bot = "Yodao" if instr(agent, "iaskspider") > 0 then Bot = "Iask" if len(Bot) > 0 then Dim oConn, dbPath, adOpenDynamic, adLockPessimistic,sqll set oConn=server.createobject("ADODB.connection") oConn.Open "DBQ="+server.mappath("./zhizhu/bot.mdb")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};" Dim oRS set oRS=Server.Createobject("ADODB.Recordset") sqll="select * from bot" oRS.open sqll, oConn,2,2 oRS.AddNew oRS("bot") = bot oRS("shijian") = now() oRS("url") = GetLocationURL oRS.Update oRS.Close oConn.close end if end function %> <%call spiderbot()%> 這個(gè)用來記錄搜索站的蜘蛛，從而寫入到名為 bot.mdb的數(shù)據(jù)庫里 <% dim conn,rs,connstr connstr="DBQ="+server.mappath("bot.mdb")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};" set conn=server.createobject("ADODB.CONNECTION") conn.open connstr set rs=server.createobject("adodb.recordset") sql="select * from bot order by id desc" rs.open sql,conn,1,1 %>| ID | 蜘蛛 | 來訪時(shí)間 | 頁面URL |
| <%=rs("id")%> | <%=rs("bot")%> | <%=rs("shijian")%> | <%=rs("url")%> |
下載提示(請(qǐng)認(rèn)真閱讀)
- 1.請(qǐng)仔細(xì)閱讀文檔，確保文檔完整性，對(duì)于不預(yù)覽、不比對(duì)內(nèi)容而直接下載帶來的問題本站不予受理。
- 2.下載的文檔，不會(huì)出現(xiàn)我們的網(wǎng)址水印。
- 3、該文檔所得收入（下載+內(nèi)容+預(yù)覽）歸上傳者、原創(chuàng)作者；如果您是本文檔原作者，請(qǐng)點(diǎn)此認(rèn)領(lǐng)！既往收益都?xì)w您。
文檔包含非法信息？點(diǎn)此舉報(bào)后獲取現(xiàn)金獎(jiǎng)勵(lì)！
下載文檔到電腦，查找使用更方便
9.9 積分
| 下載 |
還剩頁未讀，繼續(xù)閱讀
- 配套講稿：
如PPT文件的首頁顯示word圖標(biāo)，表示該P(yáng)PT已包含配套word講稿。雙擊word圖標(biāo)可打開word文檔。
- 特殊限制：
部分文檔作品中含有的國旗、國徽等圖片，僅作為作品整體效果示例展示，禁止商用。設(shè)計(jì)者僅對(duì)作品中獨(dú)創(chuàng)性部分享有著作權(quán)。
- 關(guān) 鍵 詞：
- 蜘蛛 機(jī)器人 代碼 asp
裝配圖網(wǎng)所有資源均是用戶自行上傳分享，僅供網(wǎng)友學(xué)習(xí)交流，未經(jīng)上傳用戶書面授權(quán)，請(qǐng)勿作他用。
鏈接地址：http://www.820124.com/p-7964301.html