ASP下实现自动采集程序及入库的代码

摘要：最近网上流行着一些采集程序,更多人拿着这些东西在网上叫卖,很多不太懂的人看着那些程序眼羡,其实如果你懂一些ASP,了解自动采集程序的原理后,...

最近网上流行着一些采集程序,更多人拿着这些东西在网上叫卖,很多不太懂的人看着那些程序眼羡,其实如果你懂一些ASP,了解自动采集程序的原理后,你会感觉实现自动化也是那么的简单.

原理及优点:通过XML中的XMLHTTP组件调用其它网站上的网页，然后批量截取或替换原有的信息使其转化成变量后再一一储存到数据库中。其主要的优点便是无需再手工添加大量的信息了，可以指定对某一个站信息的截取进行批量录入，达到省时省力的目的。与其单纯的ASP小偷程序不同的是:它已经不再依赖其目标网站。

简单事例:

复制代码代码如下:

'声明取得目标信息的函数,通过XML组件进行实现。

Geturl(/blog/url)

SetRetrieval=CreateObject("Microsoft.XMLHTTP")

WithRetrieval

Open"GET",url,False

Send

GetURL=bytes2bstr(.responsebody)

'对取得信息进行验证，如果信息长度小于100则说明截取失败

iflen(.responsebody)<100then

response.write"获取远程文件<ahref="/blog/"&url&"target=_blank>"&url&"</a>失败。"

response.end

endif

EndWith

SetRetrieval=Nothing

End

'二进制转字符串，否则会出现乱码的！

bytes2bstr(vin)

strreturn=""

fori=1tolenb(vin)

thischarcode=ascb(midb(vin,i,1))

ifthischarcode<&h80then

strreturn=strreturn&chr(thischarcode)

else

nextcharcode=ascb(midb(vin,i+1,1))

strreturn=strreturn&chr(clng(thischarcode)*&h100+cint(nextcharcode))

i=i+1

endif

bytes2bstr=strreturn

end

'声明截取的格式，从Start开始截取，到Last为结束

GetKey(HTML,Start,Last)

filearray=split(HTML,Start)

filearray2=split(filearray(1),Last)

GetKey=filearray2(0)

End

DimSoftid,Url,Html,Title

'获取要取页面的ID

SoftId=Request("Id")

Url="http://www3.skycn.com/soft/"&SoftId&".html"

Html=Geturl(/blog/Url)

'以截取天空软件的软件名为例子

Title=GetKey(Html,"<fontcolor='#004FC6'size='3'>","</font></b></td></tr>")

'打开数据库,准备入库

dimconnstr,conn,rs,sql

connstr="DBQ="+server.mappath("db1.mdb")+";DefaultDir=;DRIVER={MicrosoftAccessDriver(*.mdb)};"

setconn=server.createobject("ADODB.CONNECTION")

conn.openconnstr

setrs=server.createobject("adodb.recordset")

sql="select[列名]from[表名]where[列名]='"&Title&"'"

rs.opensql,conn,3,3

ifrs.eofandrs.bofthen

rs("列名")=Title

rs.update

setrs=nothing

endif

setrs=nothing

Response.Write"采集完毕!"