如何采集靜態(tài)文章系統(tǒng)

Function GetBody(url)
on error resume next
Set Retrieval = CreateObject("Microsoft.XMLHTTP")
With Retrieval
.Open "get", url, False, "", ""
.Send
GetBody = .ResponseBody
End With
Set Retrieval = Nothing
End Function
Function BytesToBstr(body,Cset)
dim objstream
set objstream = Server.CreateObject("adodb.stream")
objstream.Type = 1
objstream.Mode =3
objstream.Open
objstream.Write body
objstream.Position = 0
objstream.Type = 2
objstream.Charset = Cset
BytesToBstr = objstream.ReadText
objstream.Close
set objstream = nothing
End Function
然后我們先寫(xiě)一個(gè)最簡(jiǎn)單的程序來(lái)先,一步一步的來(lái),手把手的教,(呵,廢話(huà)說(shuō)多了*.*)
把上面的代碼命名為get.asp吧
再一個(gè)頁(yè)面代碼就叫g(shù)etfilename.asp吧.代碼如下:
!--#include file="get.asp"-->
%
response.write gethttppage("http://www.asp315.com/artical/2/1.htm")
%>
呵,getfilename.asp完成了,當(dāng)然,這個(gè)是最簡(jiǎn)單的照搬啦,我們要一步一步的來(lái)改,來(lái)完善,
遠(yuǎn)行那個(gè)當(dāng)代碼,你會(huì)看到和那個(gè)頁(yè)面基本上一的頁(yè)面,當(dāng)然,有些圖片顯示不了!
然后我們分析這個(gè)頁(yè)面,首頁(yè),點(diǎn)右鍵,查看源代碼找到這一行
td width="40" height="20" align="center" bgcolor="#F6F6F6">人氣/td>
當(dāng)然,我們不要這么多,光人氣二字都可以,但是為了保險(xiǎn),我們還是多要點(diǎn),
這個(gè)是那些文件標(biāo)題開(kāi)始的地方,那么我們?cè)僬业浇Y(jié)束的地方,
td width="490" align="center">頁(yè)數(shù)
呵,這些代碼找到了,這個(gè)多一點(diǎn)少一點(diǎn)沒(méi)事,我們代碼要一步一步完善的,
然后我們將getfilename.asp改成
!--#include file="get.asp"-->
%
dim dj,l1,l2
dj=gethttppage("http://www.asp315.com/artical/2/1.htm")
l1=instr(dj,"td width=""40"" height=""20"" align=""center"" bgcolor=""#F6F6F6"">人氣/td>")
l2=instr(l1,dj,"td width=""490"" align=""center"">頁(yè)數(shù)")
dj1=mid(dj,l1,l2-l1)
response.write dj1
%>
再去運(yùn)行這個(gè)文件,看一看,
你會(huì)發(fā)現(xiàn)東西少了好多,呵,也簡(jiǎn)單多了,那么,我們?cè)僬胰ヒ?guī)律來(lái)吧,一樣上查看源代碼,
然后你會(huì)發(fā)現(xiàn)每一條都是一個(gè)tr>/tr>標(biāo)簽組成的,這就好辦多了,
djmore=split(dj1,"tr>")
記住,仔細(xì)查看,你會(huì)發(fā)現(xiàn)多了幾個(gè)tr>,
那就把第一個(gè)和最后二個(gè)去掉,變成這樣的了
我們來(lái)循環(huán)
把
response.write dj1換成
djmore=split(dj1,"tr>")
for i=1 to ubound(djmore)-2
response.write djmore(i)
next
這樣就會(huì)把每一行都分出來(lái)了,分成了以下這樣的
  td width="474" height="20" bgcolor="#FFFFFF">img src="../../images/article_elite.gif"> a href="../../news/31/200572111233207984.htm" target="_blank" title="CSS語(yǔ)法手冊(cè)（一）字體屬性">CSS語(yǔ)法手冊(cè)（一）字體屬性/a>/td>
    td width="80" height="20" align="center" bgcolor="#FFFFFF">2005-7-21/td>
    td width="40" height="20" align="center" bgcolor="#FFFFFF">script src="../../showcount.asp?id=18152">/script>/td>
  /tr>
現(xiàn)在只要分析這一段就簡(jiǎn)單多了,
我們?cè)賮?lái)針對(duì)djmore(i)這數(shù)組中的一項(xiàng)來(lái)寫(xiě)一個(gè)代碼,
l3=instr(djmore(i),"a href=")
l4=instr(l3,djmore(i),""" target=""_blank""")
url=mid(djmore(i),l3,l4-l3)
response.wrie url"br>"

這里是為了方便才寫(xiě)成這樣的,
把以上這段代替前面的
response.write djmore(i)
這里加BR>是為了換行,好看點(diǎn),然后你看到了URL好像多了點(diǎn)東西,這個(gè)我們就要做一些處理了,把
url=mid(djmore(i),l3,l4-l3)變成
url=mid(djmore(i),l3+len("a href=")+1,l4-l3-len("a href=")-1)
呵,沒(méi)問(wèn)題了,再運(yùn)行時(shí)就剩下地址了,
呵,是吧,這只是每一個(gè)頁(yè)的,要全部的,你只要修改一下
dj=gethttppage("http://www.asp315.com/artical/2/1.htm")改成
for ii=1 to 141
geturl="