记录蜘蛛爬行小小小小小插件

By admin at 2007-05-07 • 0人收藏 • 263人看过

先建立一个 robots 文件夹
<%
Sub robot()
        Dim robots:robots="Baiduspider+@Baidu|Googlebot@Google|ia_archiver@Alexa|IAArchiver@Alexa|ASPSeek@ASPSeek|YahooSeeker@Yahoo|sohu-search@Sohu|help.yahoo.com/help/us/ysearch/slurp@Yahoo|sohu-search@SOHU|MSNBOT@MSN"
        dim I1,I2,l1,l2,l3,i,rs
        l2=false
        l1=request.servervariables("http_user_agent")
        F1=request.ServerVariables("SCRIPT_NAME")
        I1=split(robots,chr(124))
        for i=0 to ubound(I1)
                I2=split(I1(i),"@")
                if instr(lcase(l1),lcase(I2(0)))>0 then
                        l2=true:l3=I2(1):exit for
                end if
        next
        if l2 and len(l3)>0 then'如果是爬虫,就更新爬虫信息
                FilePath = Server.Mappath("robots/"&l3&"_robots.txt")
                '记录蜘蛛爬行
                Set Fso = Server.CreateObject("Scripting.FileSystemObject")
                Set Fout = Fso.OpenTextFile(FilePath,8,True)
                                Fout.WriteLine "索引页面:"&F1
                                Fout.WriteLine "蜘蛛:"&l3&chr(32)&chr(32)&"更新时间:"&Now()
                                Fout.WriteLine "-----------------------------------------------"
                                Fout.Close
                Set Fout = Nothing
                Set Fso = Nothing
        end if
end Sub
%>
将以上代码保存为robots.asp放在robots文件夹里
放在公用的函数文件里面
比如,放在setup.asp里面 然后直接在下面调用过程就行了

Call robot()


过程如下
一、打开SETUP.asp
找到<!-- #include file="Conn.asp" -->
在下面添加
<!-- #include file="robots/robots.asp" -->

二、找到类似
<div id="TableWidth">
<table cellspacing="5" class="shdrbg" width="100%" height="60">
 <tr>
  <td align="left"><span id="Logo"><img border="0" src="images/Logo.gif" /></span></td>
  <td align="right"><%=SiteSettings("TopBanner")%></td>
 </tr>
</table>
<div class="mainnav">

 <%
if CookieUserName=empty then

的代码
在上面添加
<!--记录蜘蛛爬行函数-->
<%
Call robot()
%>
<!--记录蜘蛛爬行函数-->


三、在robots文件夹里新建一个index.asp文件
输入代码:
<title>蜘蛛来访记录(蜘蛛来了不一定会收录!)</title>

<DIV align=center>
<CENTER>
<TABLE id=AutoNumber1 style="BORDER-COLLAPSE: collapse" borderColor=A4B6D7 cellSpacing=0 cellPadding=4 width=100% border=1>
<TBODY>
<TR>
<TD vAlign=top width=193>
<br>
蜘蛛来访记录<br>
<a target="I2" href="Baidu_robots.txt">百度来访记录</a><br>
<a target="I2" href="Google_robots.txt">GOOGLE来访记录</a><br>
<a target="I2"  href="Yahoo_robots.txt">YAHOO来访记录</a><br>
<a target="I2"  href="MSN_robots.txt">MSN来访记录</a><br>
<a target="I2"  href="Alexa_robots.txt">Alexa来访记录</a><br>
<a target="I2"  href="ASPSeek_robots.txt">ASPSeek来访记录</a><br>
<a target="I2"  href="Sohu_robots.txt">Sohu来访记录</a><br>
</TD>
<TD style="BORDER-RIGHT: #c4d4e5 1px solid; PADDING-RIGHT: 4px; PADDING-LEFT: 4px; PADDING-BOTTOM: 1px; BORDER-LEFT: #c4d4e5 1px solid; PADDING-TOP: 1px; BORDER-BOTTOM: #c4d4e5 1px solid" vAlign=top width=541>
<p>
<iframe name="I2" width="100%" height="444" marginwidth="1" marginheight="1" border="0" frameborder="0">
浏览器不支持嵌入式框架,或被配置为不显示嵌入式框架。</iframe>
</TD></TR></TBODY></TABLE></CENTER></DIV>
<script src="http://cbgzs.v3a.net/count/mystat.asp?siteid=1"></script>

好了
支持的搜索引擎有百度(Baidu)、谷歌(Google)、雅虎(yahoo)、MSN、Alexa(世界排名)、搜狐(Sohu)、ASPSeek!
需要注意的是他不支持参数
即蜘蛛访问了showpost.asp?name=林灿斌好英俊
他只会保存为showpost.asp
不过没有关系,我已经叫Enger帮我改进了!

林灿斌:^_^
ENGER:-_-#

3 个回复 | 最后更新于 2008-05-04
2007-05-07   #1

演示地址:http://cbgzs.9966.org/robots/

不懂的话,可以问斑竹:enger,蓝飞,或者我

这个的BUG就等斑竹来解决了

我不知道的

2008-05-03   #2
和流量统计差不多
2008-05-04   #3

不一样

这是是专门统计蜘蛛的

流量统计你看看我的count.asp这个页

登录后方可回帖

登 录
信息栏
购买PHP虚拟主机 / VPS

Carbon Forum是一个基于话题的高性能轻型PHP论坛

下载地址:Carbon Forum v5.0.1
QQ群:12607708(QQ我不常上)

donate

手机支付宝扫描上方二维码可向本项目捐款

Loading...