透過XML中的XMLHTTP元件呼叫其它網站上的網頁，然後批量截取或替換原有的資訊使其轉換成變數後再一一儲存到資料庫中。其主要的優點便是無需再手工添加大量的資訊了，可以指定對某一個站資訊的截取進行批量錄入，達到省時省力的目的。與其單純的ASP小偷程式不同的是:它已經不再依賴其目標網站。
參考代碼：
複製代碼代碼如下:
<%
'聲明取得目標資訊的函數,透過XML組件進行實現。
Function Geturl(/blog/url)
Set Retrieval = CreateObject(Microsoft.XMLHTTP)
With Retrieval
.Open GET, url, False
.Send
GetURL = bytes2bstr(.responsebody)
'對取得資訊進行驗證，如果資訊長度小於100則表示截取失敗
if len(.responsebody)<100 then
response.write 取得遠端檔案<a href=&url& target=_blank>&url&</a> 失敗。
response.end
end if
End With
Set Retrieval = Nothing
End Function
' 二進位轉字串，否則會出現亂碼的！
function bytes2bstr(vin)
strreturn =
for i = 1 to lenb(vin)
thischarcode = ascb(midb(vin,i,1))
if thischarcode < &h80 then
strreturn = strreturn & chr(thischarcode)
else
nextcharcode = ascb(midb(vin,i+1,1))
strreturn = strreturn & chr(clng(thischarcode) * &h100 + cint(nextcharcode))
i = i + 1
end if
next
bytes2bstr = strreturn
end function
'聲明截取的格式，從Start開始截取，到Last為結束
Function GetKey(HTML,Start,Last)
filearray=split(HTML,Start)
filearray2=split(filearray(1),Last)
GetKey=filearray2(0)
End Function
Dim Softid,Url,Html,Title
'取得要取頁面的ID
SoftId=Request(Id)
Url=http://www3.skycn.com/soft/&SoftId&.html
Html = Geturl(/blog/Url)
'以截取天空軟體的軟體名為例子
Title = GetKey(Html,<font color='#004FC6' size='3'>,</font></b></td></tr>)
'開啟資料庫,準備入庫
dim connstr,conn,rs,sql
connstr=DBQ=+server.mappath(db1.mdb)+;DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};
set conn=server.createobject(ADODB.CONNECTION)
conn.open connstr
set rs=server.createobject(adodb.recordset)
sql=select [列名] from [表名] where [列名]='&Title&'
rs.open sql,conn,3,3
if rs.eof and rs.bof then
rs(列名)=Title
rs.update
set rs=nothing
end if
set rs=nothing
Response.Write採集完畢!
%>