落伍的貼也看了很多了，發現了很多講小偷技術的，如精華貼裡的--小偷程序原理和簡單示例：
[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