落伍的貼也看了很多了,發現了很多講小偷技術的,如精華貼裡的--小偷程序原理和簡單示例:
[url]http://www.im286.com/viewthread.php?tid=407182&extra=page%3D1[/url]等等,也有提供採集程序下載的,但我還沒看到一篇完整的入庫的文章,或許是我看的貼少吧。雖然不是很深奧,我還是講講吧,希望高手別見笑啦,以前發了個原創的影視系
統,卻沒落伍,這次再求落伍啦,希望大家幫頂下,也希望我能落伍! !
入庫也和小偷一樣,要先得到需入庫的部分,我這里以[url]http://www.skycn.com/article/77.html[/url]為例了
<%
dimurl,mydate
url="http://www.skycn.com/article/77.html"'定義url地址
SetOXML=server.CreateObject("Microsoft.XMLHTTP")
'下面定義兩個函數,得到數據
PrivateFunctionBytesToBstr(body)'利用流進行中文編碼
SetADOS=Server.CreateObject("ADODB.Stream")
DimBdat
Bdat=Body
ADOS.Type=1
ADOS.Mode=3
ADOS.Open
ADOS.WriteBdat
ADOS.Position=0
ADOS.Type=2
ADOS.Charset="GB2312"
BytesToBstr=ADOS.ReadText
ADOS.Close
EndFunction
PublicFunctionGetData(byrefurl)'利用OXML得到數據
'onerrorresumenext
SourceCode=OXML.open("GET",url,false)
OXML.send()
ifOXML.readystate<>4thenexitfunction
GetData=BytesToBstr(OXML.responseBody)'
iferr.number<>0thenerr.Clear
EndFunction
mydate=getdata(url)
mydate=Replace(mydate,chr(34),"")'去掉一些特殊字符,如雙引號等,看自己情況定
mydate=Replace(mydate,chr(16),"")
response.writemydate
%>
我們就得到了以下的數據:
'''''''''''''''''''''''''codestart''''''''''''
省列去部分..............
href='../article/1034.html'>寬帶用戶需注意的七大安全</A><br><br></td></tr></table></td><td