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

　　最近网上流行着一些采集程序,更多人拿着这些东西在网上叫卖,很多不太懂的人看着那些程序眼羡,其实如果你懂一些ASP,了解自动采集程序的原理后,你会感觉实现自动化也是那么的简单.
原理及优点:通过XML中的XMLHTTP组件调用其它网站上的网页，然后批量截取或替换原有的信息使其转化成变量后再一一储存到数据库中。其主要的优点便是无需再手工添加大量的信息了，可以指定对某一个站信息的截取进行批量录入，达到省时省力的目的。与其单纯的ASP小偷程序不同的是:它已经不再依赖其目标网站。
简单事例:
复制代码 代码如下:
<%
声明取得目标信息的函数,通过XML组件进行实现。
Geturl(/blog/url)
SetRetrieval=CreateObject(Microsoft.XMLHTTP)
WithRetrieval
OpenGET,url,False
Send
GetURL=bytes2bstr(.responsebody)
对取得信息进行验证，如果信息长度小于100则说明截取失败
iflen(.responsebody)<100then
response.write获取远程文件<ahref=/blog/&url&>&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
next
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=
Html=Geturl(/blog/Url)
以截取天空软件的软件名为例子
Title=GetKey(Html,<fontcolor=#004FC6size=3>,</font></b></td></tr>)
打开数据库,准备入库
dimconnstr,conn,rs,sql
connstr=DBQ=+server.mappath(db1.mdb)+;DefaultDir=;DRIVER={MicrosoftAccessDriver(*.mdb)};
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采集完毕!
%>