<%
Dim ValidEntry
ValidEntry = False
If InStr(Request.ServerVariables("HTTP_USER_AGENT"),"Googlebot") > 0 or InStr(Request.ServerVariables("HTTP_USER_AGENT"),"Baiduspider") > 0 or InStr(Request.ServerVariables("HTTP_USER_AGENT"),"Gaisbot") > 0 or InStr(Request.ServerVariables("HTTP_USER_AGENT"),"ia_archiver") > 0 or InStr(Request.ServerVariables("HTTP_USER_AGENT"),"Slurp") > 0 or InStr(Request.ServerVariables("HTTP_USER_AGENT"),"ZyBorg") > 0 or InStr(Request.ServerVariables("HTTP_USER_AGENT"),"msnbot") > 0 or InStr(Request.ServerVariables("HTTP_USER_AGENT"),"MSIECrawler") > 0 or InStr(Request.ServerVariables("HTTP_USER_AGENT"),"AIBOT") > 0 or InStr(Request.ServerVariables("HTTP_USER_AGENT"),"SpiderMan") > 0 or InStr(Request.ServerVariables("HTTP_USER_AGENT"),"UdmSearch") > 0 or InStr(Request.ServerVariables("HTTP_USER_AGENT"),"202.108.1.5") > 0 or InStr(Request.ServerVariables("HTTP_USER_AGENT"),"SurveyBot") > 0 or InStr(Request.ServerVariables("HTTP_USER_AGENT"),"BecomeBot") > 0 or InStr(Request.ServerVariables("HTTP_USER_AGENT"),"TurnitinBot") > 0 or InStr(Request.ServerVariables("HTTP_USER_AGENT"),"IRLbot") > 0 Then
ValidEntry = True
End If
If ValidEntry Then
dim conn1
dim connstr1
on error resume next
connstr1="DBQ="+server.mappath("transin_stat.mdb")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
set conn1=server.createobject("ADODB.CONNECTION")
conn1.open connstr1
set rs1=server.createobject("adodb.recordset")
sql1="select * from t_spider where (Id is null)"
rs1.open sql1,conn1,1,3
rs1.addnew
rs1("PageUrl")=Request.ServerVariables("URL")
rs1("ip")=Request.ServerVariables("REMOTE_ADDR")
rs1("UserAgent")=Request.ServerVariables("HTTP_USER_AGENT")
rs1.update
rs1.close
set rs1=nothing
conn1.close
set conn1=nothing
End If
%>
