최근에 인터넷에 더 많은 사람들이 이러한 것들을 이해하고있는 많은 사람들이 ASP를 이해하고 자동 컬렉션을 이해하고 있습니다. 프로그램, 당신은 자동화를 구현하기가 매우 간단하다고 느낄 것입니다.
원칙 및 장점 : XML의 XMLHTTP 구성 요소를 통해 다른 웹 사이트의 웹 페이지를 호출 한 다음 원본 정보를 배치로 가로 채거나 교체하여 변수로 변환하여 데이터베이스에 하나씩 저장하십시오. 그것의 주요 장점은 시간과 노력을 절약하기 위해 특정 사이트 정보의 차단 항목을 직접 제작하기 위해 많은 정보를 추가 할 필요가 없다는 것입니다. 간단한 ASP 도둑 프로그램과는 달리 : 더 이상 대상 웹 사이트에 의존하지 않습니다.
Simple example:
다음은 코드 조각입니다. <% '대상 정보를 얻고 XML 구성 요소를 통해 구현하는 기능을 설명합니다. 기능 geturl (url) setRieval = createobject ( "microsoft.xmlhttp") 검색과 함께 . "get", URL, False를 열었습니다 .보내다 geturl = bytes2bstr (.ResponseBody) '정보 길이가 100 미만인 경우 인터 셉션이 실패 함을 의미합니다. LEN (.ResponseBody) <100 인 경우 응답. "원격 파일 가져 오기 <a href ="& url & "target = _blank>"& url & "</a> 실패." 응답. 엔드 끝 If 끝납니다 setRieval = 아무것도 엔드 기능 '듀얼 - -제작 문자열, 그렇지 않으면 차가워집니다! 함수 BYTES2BSTR (VIN) strreturn = "" " i = 1 대 Lenb (Vin)의 경우 thischarCode = ASCB (MIDB (Vin, I, 1)) 이 charcode <& h80 인 경우 strreturn = strreturn & chr (thischarcode) 또 다른 NextCharCode = ASCB (MIDB (VIN, I 1,1)))) strreturn = strreturn & chr (clng (thischarcode) * & h100 cint (nextcharcode)) i = i 1 끝 If 다음 바이트 2bstr = strreturn 엔드 기능 '마지막부터 마지막부터 끝까지 가로 채는 형식을 진술하십시오. 기능 getkey (HTML, 시작, 마지막) filearray = split (html, 시작) filearray2 = split (filearray (1), 마지막) getkey = filearray2 (0) 엔드 기능 Dim Softid, URL, HTML, 제목 '페이지의 ID를 얻으십시오 softid = request ( "id") url = "http://www3.skycn.com/soft/"& softid & ".html" html = geturl (url) 'Sky Software의 소프트웨어 이름을 예로 들어 Title = getKey (html, "<font color = '#004fc6'size = '3'>", "</font> </td> </tr>) '데이터베이스를 열고 라이브러리에 들어갈 준비를하십시오 Dim Connstr, Conn, Rs, SQL connstr = "dbq ="server.mappath ( "db1.mdb") "" "; set conn = server.createobject ( "adodb.connection") CONN.OCEN CONNSTR set rs = server.createobject ( "adodb.oldset") SQL = "[열 이름]에서 [열 이름] = '& title &"' '에서 [열 이름]을 선택하십시오. Rs.OOPEN SQL, CONN, 3,3 rs.eof와 rs.bof라면 Rs ( ""Listing ") = 제목입니다 Rs.update RS = 아무것도 설정하지 않습니다 끝 If RS = 아무것도 설정하지 않습니다 응답. "수집!" %> |
그에게 getkey.asp를 지명하면 당분간이 기계로 가로 채기 된 결과를 테스트합시다 (http://www3.skycn.com/soft/771.html을 예로 들어 보자).
http://127.0.0.1/getkey.asp?id=771