|
马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
asp,你就只能等着微软给你解决,它不乐意你就只好悲催。而且asp跑在windows服务器上,windows服务器跟linux比起来简直弱爆了!收罗|程序|收罗比来网下流行着一些收罗程序,更多人拿着这些器材在网上叫卖,良多不太懂的人看着那些程序眼羡,实在假如你懂一些ASP,懂得主动收罗程序的道理后,你会感到完成主动化也是那末的复杂. 道理及长处:经由过程XML中的XMLHTTP组件挪用别的网站上的网页,然后批量截取或交换原本的信息使其转化成变量后再逐一贮存到数据库中。其次要的长处即是无需再手工增加大批的信息了,能够指定对某一个站信息的截取举行批量录进,到达省时省力的目标。与其纯真的ASP小偷程序分歧的是:它已不再依附其方针网站。
复杂事例:
1<%
2声明获得方针信息的函数,经由过程XML组件举行完成。
3FunctionGetURL(url)
4SetRetrieval=CreateObject("Microsoft.XMLHTTP")
5WithRetrieval
6.Open"GET",url,False
7.Send
8GetURL=bytes2bstr(.responsebody)
9对获得信息举行考证,假如信息长度小于100则申明截取失利
10iflen(.responsebody)<100then
11response.write"猎取远程文件<ahref="&url&"target=_blank>"&url&"</a>失利。"
12response.end
13endif
14
15EndWith
16SetRetrieval=Nothing
17EndFunction
18二进制转字符串,不然会呈现乱码的!
19functionbytes2bstr(vin)
20strreturn=""
21fori=1tolenb(vin)
22thischarcode=ascb(midb(vin,i,1))
23ifthischarcode<&h80then
24strreturn=strreturn&chr(thischarcode)
25else
26nextcharcode=ascb(midb(vin,i+1,1))
27strreturn=strreturn&chr(clng(thischarcode)*&h100+cint(nextcharcode))
28i=i+1
29endif
30next
31bytes2bstr=strreturn
32endfunction
33声明截取的格局,从Start入手下手截取,到Last为停止
34FunctionGetKey(HTML,Start,Last)
35filearray=split(HTML,Start)
36filearray2=split(filearray(1),Last)
37GetKey=filearray2(0)
38EndFunction
39
40DimSoftid,Url,Html,Title
41
42猎取要取页面的ID
43
44SoftId=Request("Id")
45
46 Url="http://www3.skycn.com/soft/"&SoftId&".html"
47
48 Html=GetURL(Url)
49
50以截取天空软件的软件名为例子
51
52 Title=GetKey(Html,"<fontcolor=#004FC6size=3>","</font></b></td></tr>")
53
54翻开数据库,筹办进库
55
56dimconnstr,conn,rs,sql
57
58connstr="DBQ="+server.mappath("db1.mdb")+";DefaultDir=;DRIVER={MicrosoftAccessDriver(*.mdb)};"
59
60setconn=server.createobject("ADODB.CONNECTION")
61
62conn.openconnstr
63
64setrs=server.createobject("adodb.recordset")
65
66sql="select[列名]from[表名]where[列名]="&Title&""
67
68rs.opensql,conn,3,3
69
70ifrs.eofandrs.bofthen
71
72rs("列名")=Title
73
74rs.update
75
76setrs=nothing
77
78endif
79
80setrs=nothing
81
82Response.Write"收罗终了!"
83
84%>
</p>源代码保护方面其实现在考虑得没那么多了..NET也可以反编译.ASP写得复杂的话别人能看得懂的话.他也有能力自己写了.这方面担心的倒不太多.纵观现在网上可以下载的那些所谓BBS还有什么网站等等的源代码 |
|