提供了编程的基础技术教程

zl程序教程

您现在的位置是：首页 >  移动开发

当前栏目

ASP自动采集实现代码

ASP自动代码 实现 采集
2023-06-13 09:14:14 时间
其主要的优点便是无需再手工添加大量的信息了，可以指定对某一个站信息的截取进行批量录入，达到省时省力的目的。与其单纯的ASP小偷程序不同的是:它已经不再依赖其目标网站。

参考代码：
复制代码代码如下:

<%
"声明取得目标信息的函数,通过XML组件进行实现。
FunctionGeturl(/blog/url)
SetRetrieval=CreateObject("Microsoft.XMLHTTP")
WithRetrieval
.Open"GET",url,False
.Send
GetURL=bytes2bstr(.responsebody)
"对取得信息进行验证，如果信息长度小于100则说明截取失败
iflen(.responsebody)<100then
response.write"获取远程文件<ahref="&url&"target=_blank>"&url&"</a>失败。"
response.end
endif
EndWith
SetRetrieval=Nothing
EndFunction

"二进制转字符串，否则会出现乱码的！
functionbytes2bstr(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
endfunction

"声明截取的格式，从Start开始截取，到Last为结束
FunctionGetKey(HTML,Start,Last)
filearray=split(HTML,Start)
filearray2=split(filearray(1),Last)
GetKey=filearray2(0)
EndFunction

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"采集完毕!"
%>

相关文章