최근 일부 컬렉션 프로그램은 인터넷에서 인기가 있습니다. 더 많은 사람들이 온라인으로 이러한 물건을 팔고 있습니다. 많이 모르는 많은 사람들이 그 프로그램을 부러워합니다. 실제로 ASP를 이해하고 자동 수집 프로그램의 원칙을 이해하면 자동화를 구현하는 것이 매우 간단하다고 생각할 것입니다.
원칙 및 장점 : XML의 XMLHTTP 구성 요소를 통해 다른 웹 사이트의 웹 페이지가 호출 된 다음 원래 정보를 가로 채거나 교체하여 변수로 변환 한 다음 데이터베이스에 하나씩 저장됩니다. 주요 장점은 많은 양의 정보를 수동으로 추가 할 필요가 없다는 것입니다. 시간과 노력을 절약하기위한 목적을 달성하기 위해 특정 사이트 정보와 배치 입력의 차단을 지정할 수 있습니다. 순전히 ASP Thief 프로그램과 달리 : 더 이상 대상 웹 사이트에 의존하지 않습니다.
간단한 예 :
<%
'대상 정보를 얻고 XML 구성 요소를 통해이를 구현하도록 함수를 선언하십시오.
geturl (/blog/url)
setRetRieval = createobject ( "microsoft.xmlhttp")
retrieval
"get", url, false를 열어줍니다
보내다
geturl = bytes2bstr (.ResponseBody)
'얻은 정보를 확인하십시오. 정보 길이가 100 미만인 경우 차단이 실패했음을 의미합니다.
iflen (.responsebody) <100then
response.write "원격 파일을 가져 오지 못했습니다 <ahref ="/blog/"& url &"target = _blank> "& url &"</a>. "
응답. 엔드
endif
끝
setretrieval = 아무것도
끝
'바이너리를 문자열로 돌리십시오. 그렇지 않으면 차량이 나타납니다!
BYTES2BSTR (VIN)
strreturn = ""
fori = 1tolenb (vin)
thischarCode = ASCB (MIDB (Vin, I, 1))
ifthischarcode <& h80then
strreturn = strreturn & chr (thischarcode)
또 다른
NextCharCode = ASCB (MIDB (VIN, I+1,1))
strreturn = strreturn & chr (clng (thischarcode)*& h100+cint (nextcharcode))
i = i+1
endif
다음
바이트 2bstr = strreturn
끝
'차단 된 형식을 선언하고 시작부터 시작하고 마침내 끝납니다.
getkey (HTML, 시작, 마지막)
filearray = split (html, 시작)
filearray2 = split (filearray (1), 마지막)
getkey = filearray2 (0)
끝
DimsOftId, URL, HTML, 제목
'페이지의 ID를 검색 할 것입니다
softid = request ( "id")
url = "http://www3.skycn.com/soft/"& softid & ".html"
html = geturl (/blog/url)
'차단 스카이 소프트웨어의 소프트웨어 이름을 예로 들어보세요
title = getkey (html, "<fontcolor = '#004fc6'size ='3 '>", "</font> </b> </td> </tr>")
'데이터베이스를 열고 데이터베이스를 입력 할 준비를하십시오
Dimconnstr, Conn, Rs, SQL
connstr = "dbq ="+server.mappath ( "db1.mdb")+"; defaultDir =; driver = {Microsoft AccessDriver (*. mdb)};"
setconn = server.createobject ( "adodb.connection")
conn.openconnstr
setrs = server.createobject ( "adodb.recordset")
SQL = "[column name] = '" "& title &"' "에서 [테이블 이름]에서 [열 이름]을 선택하십시오.
Rs.Opensql, Conn, 3,3
ifrs.eofandrs.bofthen
rs ( "열 이름") = 제목입니다
Rs.update
setrs = 아무것도
endif
setrs = 아무것도
응답. "컬렉션이 완료되었습니다!"
%>