捉蜘蛛的ASP代碼

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

1. <%
   
2. Sub robot()
   ! z4 _' H! g8 r
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"
   
4.         dim I1,I2,l1,l2,l3,i,rs
   $ }7 S9 W8 l! U& _
5.         l2=false
   " d9 [' j3 b: K8 _! X2 {: ]" {' v
6.         l1=request.servervariables("http_user_agent")
   
7.         F1=request.ServerVariables("SCRIPT_NAME")
   / W- ~5 h/ V( N3 V7 j3 \/ c
8.         I1=split(robots,chr(124))
   
9.         for i=0 to ubound(I1)
   
10.                 I2=split(I1(i),"@")
    ( u' x3 k9 T& _! @: Y: j' z
11.                 if instr(lcase(l1),lcase(I2(0)))>0 then
    ( f' d3 Q% T3 [6 P7 Q1 w! J
12.                         l2=true:l3=I2(1):exit for
    7 n% [3 L% |% d' ?: |
13.                 end if
    
14.         next
    
15.         if l2 and len(l3)>0 then'如果是爬蟲,就更新爬蟲信息
    
16.                 FilePath = Server.Mappath("robots/"&l3&"_robots.txt")
    # @. G+ w0 k) `: Y$ n2 t; T
17.                 '記錄蜘蛛爬行
    
18.                 Set Fso = Server.CreateObject("Scripting.FileSystemObject")
    
19.                 Set Fout = Fso.OpenTextFile(FilePath,8,True)
    1 C6 J. I) a! m7 {8 `
20.                                 Fout.WriteLine "索引頁面："&F1
    
21.                                 Fout.WriteLine "蜘蛛："&l3&chr(32)&chr(32)&"更新時間："&Now()
    ; G1 D1 Z$ \/ O: y3 `4 B
22.                                 Fout.WriteLine "-----------------------------------------------"
    0 ^! Q1 R7 a) ^+ p
23.                                 Fout.Close
    ! b$ j2 O& R5 m9 I
24.                 Set Fout = Nothing
    9 {7 t5 U5 I  u& U3 ]3 {6 b, X* M8 V
25.                 Set Fso = Nothing
    
26.         end if
    
27. end Sub
    
28. %>0 then
    " c- ]) M# ^' G) t
29.                         l2=true:l3=I2(1):exit for
    
30.                 end if
    
31.         next
    
32.         if l2 and len(l3)>0 then'如果是爬蟲,就更新爬蟲信息
    4 M1 Q1 X) }8 U- b- J
33.                 FilePath = Server.Mappath("robots/"&l3&"_robots.txt")
    
34.                 '記錄蜘蛛爬行
    ) b: N7 Y) Q4 l, _3 k
35.                 Set Fso = Server.CreateObject("Scripting.FileSystemObject")
    
36.                 Set Fout = Fso.OpenTextFile(FilePath,8,True)
    0 G- |' q; E- A
37.                                 Fout.WriteLine "索引頁面："&F1
    
38.                                 Fout.WriteLine "蜘蛛："&l3&chr(32)&chr(32)&"更新時間："&Now()
    
39.                                 Fout.WriteLine "-----------------------------------------------"
    9 O5 z9 e) e8 f( N  R3 V1 I
40.                                 Fout.Close
      W& W, l& J" ]4 k, Y
41.                 Set Fout = Nothing
    $ K# B8 D3 ~0 L5 A* P5 Y+ }
42.                 Set Fso = Nothing
    5 [0 n( r' _% k2 A  t+ p- K/ i
43.         end if
    
44. end Sub
    
45. %>

複製代碼