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

先建立一个 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:-_-#