捉蜘蛛的ASP代碼

捉蜘蛛的ASP代碼，昨天很多人問，現在我放出了，不過其實落伍早就有了，只不會沒說清楚用法。壓縮文件裡有使用說明，希望對大家有用。
PS：你捉到蜘蛛，但它不一定從你（不一定會收錄），還有，蜘蛛爬過後，robots文件夾下會生成對蜘蛛名的文本文件

1. <%
   
2. Sub robot()
   
3.         Dim robots:robots="Baiduspider+@Baidu|Googlebot@Google|ia_archiver@Alexa|IAArchiver@Alexa|ASPSeek@ASPSeek|YahooSeeker@Yahoo|SogouBot@sogou|help.yahoo.com/help/us/ysearch/slurp@Yahoo|sohu-search@SOHU|MSNBOT@MSN"
   1 O7 f) G! W2 P  n# }/ ^
4.         dim I1,I2,l1,l2,l3,i,rs
   & S% r! m" G; b/ u7 f2 A
5.         l2=false
   
6.         l1=request.servervariables("http_user_agent")
   
7.         F1=request.ServerVariables("SCRIPT_NAME")
   5 u) \9 ^, o9 G. [+ B
8.         I1=split(robots,chr(124))
   
9.         for i=0 to ubound(I1)
   % F$ ?, J3 y7 h* d7 Y3 b& n
10.                 I2=split(I1(i),"@")
    
11.                 if instr(lcase(l1),lcase(I2(0)))>0 then
    : X6 b0 V( ]: ?
12.                         l2=true:l3=I2(1):exit for
    / \9 }" @3 I( L& T
13.                 end if
    6 ~# @- p3 R% w1 R- I1 k% ]
14.         next
      \! T& R' O% ^* i9 O
15.         if l2 and len(l3)>0 then'如果是爬蟲,就更新爬蟲信息
    
16.                 FilePath = Server.Mappath("robots/"&l3&"_robots.txt")
    
17.                 '記錄蜘蛛爬行
    ! ]8 z9 \6 j5 u  i
18.                 Set Fso = Server.CreateObject("Scripting.FileSystemObject")
    
19.                 Set Fout = Fso.OpenTextFile(FilePath,8,True)
    
20.                                 Fout.WriteLine "索引頁面："&F1
    
21.                                 Fout.WriteLine "蜘蛛："&l3&chr(32)&chr(32)&"更新時間："&Now()
    : k& C; E, g+ v
22.                                 Fout.WriteLine "-----------------------------------------------"
    
23.                                 Fout.Close
      {8 k4 H  z  V, l- h& o
24.                 Set Fout = Nothing
    
25.                 Set Fso = Nothing
    3 M& |6 D- L$ i( h
26.         end if
    4 V" ?4 E9 ^" T  B5 M& ?) }
27. end Sub
    
28. %>0 then
    & G" v1 F0 V7 G0 J
29.                         l2=true:l3=I2(1):exit for
    
30.                 end if
    
31.         next
    
32.         if l2 and len(l3)>0 then'如果是爬蟲,就更新爬蟲信息
    
33.                 FilePath = Server.Mappath("robots/"&l3&"_robots.txt")
    
34.                 '記錄蜘蛛爬行
    : v) }* y" D9 O1 B4 u  K$ ?
35.                 Set Fso = Server.CreateObject("Scripting.FileSystemObject")
    
36.                 Set Fout = Fso.OpenTextFile(FilePath,8,True)
    7 S0 ~6 |  j. O3 [# J2 R; f% q
37.                                 Fout.WriteLine "索引頁面："&F1
    
38.                                 Fout.WriteLine "蜘蛛："&l3&chr(32)&chr(32)&"更新時間："&Now()
    
39.                                 Fout.WriteLine "-----------------------------------------------"
    ; |5 A$ _! |4 i" \+ r
40.                                 Fout.Close
    # t; K- y# W& p5 c% h
41.                 Set Fout = Nothing
    2 F4 o+ D6 `2 l
42.                 Set Fso = Nothing
    
43.         end if
    * Z' s4 H0 Z3 \& L" Q" B4 s
44. end Sub
    ; T5 P$ t. S" }. P7 Q$ n
45. %>

複製代碼