请教怎样采集到javascript里面调用的内容

buxuku

比如有这样一段代码<b>软件下载统计：</b><script language="JavaScript" src="/soft/hits.asp?id=37451&type=0"></script>

其中后面统计的数字是通过javascript来调用的,如果直接打开那个页面又是什么都不显示,请问怎么通过火车头来采集到里面的内容呢?


目标页面的源代码是:

1. <!--#include file="config.asp" -->
   
2. <%
   
3. Response.ContentType="text/html"
   
4. Response.Expires = -9999
   
5. Response.AddHeader "pragma", "no-cache"
   
6. Response.AddHeader "cache-ctrol", "no-cache"
   
7. 
   
8. Dim softid,Rs,SQL
   
9. Dim AllHits,DayHits,WeekHits,MonthHits,HitsTime,hits,stype,s
   
10. NewAsp.ChkPostAgent()
    
11. softid=NewAsp.ChkNumeric(Request.Querystring("id"))
    
12. If softid=0 Then softid=NewAsp.ChkNumeric(Request.Querystring("softid"))
    
13. stype = NewAsp.ChkNumeric(Request.Querystring("type"))
    
14. s = NewAsp.ChkNumeric(Request.Querystring("s"))
    
15. If Not IsObject(Conn) Then ConnectionDatabase
    
16. Set Rs = NewAsp.CreateAXObject("ADODB.Recordset")
    
17. SQL = "SELECT AllHits,DayHits,WeekHits,MonthHits,HitsTime FROM NC_SoftList WHERE softid="& softid
    
18. Rs.Open SQL,Conn,1,3
    
19. If Not(Rs.BOF And Rs.EOF) Then
    
20.         If s=1 Then
    
21.                 hits = CLng(Rs("AllHits"))+1
    
22.                 Rs("AllHits").Value = hits
    
23.                 If DateDiff("Ww", Rs("HitsTime"), Now) <= 0 Then
    
24.                         Rs("WeekHits").Value = Rs("WeekHits").Value + 1
    
25.                 Else
    
26.                         Rs("WeekHits").Value = 1
    
27.                 End If
    
28.                 If DateDiff("M", Rs("HitsTime"), Now) <= 0 Then
    
29.                         Rs("MonthHits").Value = Rs("MonthHits").Value + 1
    
30.                 Else
    
31.                         Rs("MonthHits").Value = 1
    
32.                 End If
    
33.                 If DateDiff("D", Rs("HitsTime"), Now) <= 0 Then
    
34.                         Rs("DayHits").Value = Rs("DayHits").Value + 1
    
35.                 Else
    
36.                         Rs("DayHits").Value = 1
    
37.                         Rs("HitsTime").Value = Now
    
38.                 End If
    
39.                 Rs.Update
    
40.         End If
    
41.         AllHits = Rs("AllHits")
    
42.         DayHits = Rs("DayHits")
    
43.         WeekHits = Rs("WeekHits")
    
44.         MonthHits = Rs("MonthHits")
    
45. End If
    
46. Rs.close
    
47. Set Rs=nothing
    
48. NewAsp.PageEnd()
    
49. If stype = 1 Then
    
50.         Response.Write "var oHits=document.getElementById(""NewAsp_Hits"");" & vbNewLine
    
51.         Response.Write "if (oHits!=null) {" & vbNewLine
    
52.         Response.Write "oHits.style.display='';" & vbNewLine
    
53.         Response.Write "oHits.innerHTML="& Chr(34) &"本日："& DayHits &" 本周："& WeekHits &" 本月："& MonthHits &" 总数："& AllHits &" "& Chr(34) &";" & vbNewLine
    
54.         Response.Write "}" & vbNewLine
    
55. ElseIf stype = 2 Then
    
56.         Response.Write "本日："& DayHits &" 本周："& WeekHits &" 本月："& MonthHits &" 总数："& AllHits
    
57. ElseIf stype = 3 Then
    
58.         Response.Write ""
    
59. ElseIf stype = 4 Then
    
60.         Response.Write "document.write (' ');"
    
61. Else
    
62.         Response.Write "document.write ("& Chr(34) &"本日："& DayHits &" 本周："& WeekHits &" 本月："& MonthHits &" 总数："& AllHits &" "& Chr(34) &");"
    
63. End If
    
64. %>

复制代码

zjyk1984

多页采集就可以了