ASP 에서 자동 채집 프로그램 및 입고 코드 구현

최근 인터넷 상에 서 채집 프로그램 이 유행 하고 있 습 니 다.더 많은 사람들 이 이 물건 들 을 가지 고 인터넷 에서 팔 고 있 습 니 다.잘 모 르 는 사람들 이 그 프로그램 들 을 보고 부러워 합 니 다.사실 만약 에 ASP 를 알 고 자동 채집 프로그램의 원 리 를 알 게 되면 자동화 도 그렇게 간단 하 다 고 느 낄 것 입 니 다.원리 와 장점:XML 의 XML HTTP 구성 요 소 를 통 해 다른 사이트 의 웹 페이지 를 호출 합 니 다.그 다음 에 기 존의 정 보 를 대량으로 캡 처 하거나 교체 하여 변수 로 전환 시 킨 다음 에 데이터 베이스 에 저장 합 니 다.그 주요 장점 은 더 이상 손 으로 대량의 정 보 를 추가 하지 않 아 도 특정한 사이트 의 정 보 를 캡 처 하여 대량으로 입력 하여 시간 을 절약 하 는 목적 을 달성 할 수 있다 는 것 이다.단순 한 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 "       <a href="/blog/"&url&" target=_blank>"&url&"</a>   。"  
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 < &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    
'       ， 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,"<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"    !"  
%>