|
马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
asp,你就只能等着微软给你解决,它不乐意你就只好悲催。而且asp跑在windows服务器上,windows服务器跟linux比起来简直弱爆了!收罗比来网下流行着一些收罗程序,更多人拿着这些器材在网上叫卖,良多不太懂的人看着那些程序眼羡,实在假如你懂一些ASP,懂得主动收罗程序的道理后,你会感到完成主动化也是那末的复杂.
道理及长处:经由过程XML中的XMLHTTP组件挪用别的网站上的网页,然后批量截取或交换原本的信息使其转化成变量后再逐一贮存到数据库中。其次要的长处即是无需再手工增加大批的信息了,能够指定对某一个站信息的截取举行批量录进,到达省时省力的目标。与其纯真的ASP小偷程序分歧的是:它已不再依附其方针网站。
复杂事例:
<%
声明获得方针信息的函数,经由过程XML组件举行完成。
FunctionGetURL(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(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)};"
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"收罗终了!"
%>实现规模效益。与传统的用户拥有硬件软件所有权和使用权以及传统的应用服务商提供一对一的服务模式不同,ASP拥有应用系统所有权,用户拥有使用权,应用系统集中放在ASP的数据中心中,集中管理,分散使用,以一对多的租赁的形式为众多用户提供有品质保证的应用技术服务,实现规模效益。 |
|