利用Asp统计各搜索系统的蜘蛛在你网站上面的爬行

  • 内容
  • 评论
  • 相关
 <%
'网页立即超时,防止漏统计
Response.Expires = 0

'客户端软件使用情况
Bot="no"
thesoft=Request.ServerVariables("HTTP_USER_AGENT")
thesoft2=lcase(thesoft)
if instr(thesoft2,"bot") then Bot="其它蜘蛛"
if instr(thesoft2,"googlebot") then
        Bot="Google蜘蛛B"
        if instr(thesoft2,"mozilla") then Bot="Google蜘蛛A"
end if
if instr(thesoft2,"baidu spider") then Bot="百度蜘蛛"
if instr(thesoft2,"msnbot") then Bot="微软蜘蛛"
if instr(thesoft2,"inktomi") then Bot="inktomi蜘蛛"
if instr(thesoft2,"openbot") then Bot="openbot蜘蛛"
if instr(thesoft2,"alexa robot") then Bot="Alexa蜘蛛"
if instr(thesoft2,"yahoo-mmcrawler") then Bot="yahoo蜘蛛"
if instr(thesoft2,"survey") then Bot="Survey蜘蛛"
vyear=year(now())
vmonth=right("0" & month(now()),2)
vday=right("0" & day(now()),2)
MyDay=vyear&vmonth&vday

now2=now()-1
vyear2=year(now2)
vmonth2=right("0" & month(now2),2)
vday2=right("0" & day(now2),2)
MyDay2=vyear2&vmonth2&vday2

if Bot<>"no" then
        dim vip
        '****************** 记录相关数据 ******************
        '被访问页面
        vpage="http://"&Request.ServerVariables("HTTP_HOST")&Request.ServerVariables("URL")

        'IP
        vip=Request.ServerVariables("HTTP_X_FORWARDED_FOR")
        If vip="" Then vip = Request.ServerVariables("REMOTE_ADDR")
        '****************** 写主数据 ******************
        Dim fso,f1,cnrs
        MyFilePath=server.MapPath("log/data/log"&MyDay&".htm")

        Set fso = Server.CreateObject("Scripting.FileSystemObject")

        if not fso.FileExists(MyFilePath) then
                Set f1 = fso.CreateTextFile(MyFilePath , True)
                f1.close
                Set fso = Server.CreateObject("Scripting.FileSystemObject")
                NewFile="yes"
        end if

        set cnrs=fso.OpenTextFile(MyFilePath,8,True)
                if NewFile="yes" then

TmpStr="<style>a {text-decoration: none};p {font-size:9pt};td {font-size:9pt};select {font-size:9pt};</style>"
TmpStr20=TmpStr
cnrs.WriteLine(TmpStr)

TmpStr="<p align=center><font color=#008000><b><a href=http://Log.GoogleDmoz.com target=_blank>"
TmpStr=TmpStr&"蜘蛛来访统计</a> <a href=log"&MyDay2&".htm>[昨日"&MyDay2&"]</a> <a href=log"&MyDay&".htm>[今日"&MyDay&"]</a></font></p>"
TmpStr21=TmpStr
cnrs.WriteLine(TmpStr)
'www.downcodes.com

TmpStr="<table width=957 border=1> <tr><td width=72>来访时间</td>"
TmpStr=TmpStr&"<td width=158>蜘蛛类型</td>"
TmpStr=TmpStr&"<td width=95>来路IP</td>"
TmpStr=TmpStr&"<td width=594>被访页面</td></tr>"
TmpStr22=TmpStr
cnrs.WriteLine(TmpStr)
                end if

                if len(vip)<1 then vip="未知"

                dot=""
                if len(vpage)>80 then dot="..."
                if len(vpage)<1 then dot="未知"
                dot2=""
                if len(vcome)>80 then dot2="..."
                if len(vcome)<1 then dot2="无"

TmpStr="<tr><td width=72>"&now&"</td>"
TmpStr=TmpStr&"<td width=158>"&Bot&"</td>"
TmpStr=TmpStr&"<td width=95>----</td>"
TmpStr=TmpStr&"<td width=594><a href="&vpage&" target=_blank>"&vpage&dot&"</a></td></tr>"
cnrs.WriteLine(TmpStr)

        cnrs.Close
        '****************** 写主数据2 ******************
        NewFile=""
        Dim fso2,f12,cnrs2
        MyFilePath2=server.MapPath("log/datame/log"&MyDay&".htm")

        Set fso2 = Server.CreateObject("Scripting.FileSystemObject")

        if not fso2.FileExists(MyFilePath2) then
                Set f12 = fso2.CreateTextFile(MyFilePath2 , True)
                f12.close
                Set fso2 = Server.CreateObject("Scripting.FileSystemObject")
                NewFile="yes"
        end if

        set cnrs2=fso2.OpenTextFile(MyFilePath2,8,True)
                if NewFile="yes" then
cnrs2.WriteLine(TmpStr20)

cnrs2.WriteLine(TmpStr21)

cnrs2.WriteLine(TmpStr22)
                end if
TmpStr="<tr><td width=72>"&now&"</td>"
TmpStr=TmpStr&"<td width=158>"&thesoft&"</td>"
TmpStr=TmpStr&"<td width=95>"&vip&"</td>"
TmpStr=TmpStr&"<td width=594><a href="&vpage&" target=_blank>"&vpage&dot&"</a></td></tr>"
cnrs2.WriteLine(TmpStr)

        cnrs2.Close
end if
%>

 

评论

0条评论

    发表评论

    电子邮件地址不会被公开。 必填项已用*标注

    click to change 看不清?点击换一张!