ASPで自動収集プログラムと入庫コードを実現します.

最近はネットで収集プログラムが流行しています.これらのものを持ってネットで呼び売りをしています.よく分からない人たちがこれらのプログラムを見て羨望しています.実はASPを知っていたら、自動収集プログラムの原理を理解して、自動化もそんなに簡単だと感じます.
原理と利点:XMLのXMLHTTPコンポーネントを通じて他のウェブサイトのウェブページを呼び出し、大量に切断または元の情報を交換して変数に変換した後、再びデータベースに保存します.その主な利点は、大量の情報を手動で追加する必要がないということです.ある駅の情報の切り取りを大量に入力し、省力化の目的を達成するために指定できます.単純なASP泥棒のプログラムと違って、もう目標サイトに依存していません.
簡単な事例:

 
  
  '           ,  XML      。  
  
  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 "       「&url&」   。"  
  
response.end  
  
end if  
  
End With   
  
Set Retrieval = Nothing   
  
End   
  
'        ，        ！  
  
 bytes2bstr(vin)   
  
strreturn = ""   
  
for i = 1 to lenb(vin)   
  
thischarcode = ascb(midb(vin,i,1))   
  
if thischarcode 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    
  
'       ， Start    ， Last     
  
 GetKey(HTML,Start,Last)  
  
filearray=split(HTML,Start)  
  
filearray2=split(filearray(1),Last)  
  
GetKey=filearray2(0)  
  
End   
  
Dim Softid,Url,Html,Title   
  
'       ID  
  
SoftId=Request("Id")  
  
　　Url="http://www3.skycn.com/soft/"&SoftId&".html"   
  
　　Html = Geturl(/blog/Url)   
  
'                
  
　　Title = GetKey(Html,"","")  
  
'     ,      
  
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"    !"  
  
%>