XML로 된 XMLHTTP 컴포넌트를 통해 다른 웹사이트의 웹페이지를 호출한 후 원본 정보를 일괄적으로 가로채거나 대체하여 변수로 변환한 후 데이터베이스에 하나씩 저장합니다. 가장 큰 장점은 많은 양의 정보를 수동으로 추가할 필요가 없다는 점입니다. 특정 스테이션의 정보를 가로채서 일괄 입력하도록 지정할 수 있으므로 시간과 노력이 절약됩니다. 순수한 ASP 도둑 프로그램과의 차이점은 더 이상 대상 웹 사이트에 의존하지 않는다는 것입니다.
참조 코드:
다음과 같이 코드 코드를 복사합니다.
<%
'XML 컴포넌트를 통해 구현된 대상 정보를 얻는 함수를 선언합니다.
함수 Geturl(/blog/url)
검색 설정 = CreateObject(Microsoft.XMLHTTP)
검색 포함
.GET 열기, URL, False
.보내다
GetURL = bytes2bstr(.responsebody)
'획득한 정보를 확인하세요. 정보의 길이가 100보다 작으면 차단에 실패합니다.
len(.responsebody)<100이면
response.write가 원격 파일 <a href=&url& target=_blank>&url&</a>을 가져오지 못했습니다.
응답.끝
종료하면
끝
검색 설정 = 없음
기능 종료
' 바이너리를 문자열로 변환합니다. 그렇지 않으면 잘못된 문자가 나타납니다!
함수 bytes2bstr(vin)
strreturn =
i = 1에서 lenb(vin)까지
thischarcode = ascb(midb(vin,i,1))
이 charcode < &h80이면
strreturn = strreturn & chr(이 문자코드)
또 다른
nextcharcode = ascb(midb(vin,i+1,1))
strreturn = strreturn & chr(clng(thischarcode) * &h100 + cint(nextcharcode))
나는 = 나는 + 1
종료하면
다음
bytes2bstr = strreturn
종료 기능
'Start에서 시작하여 Last로 끝나는 차단 형식을 선언합니다.
함수 GetKey(HTML,시작,마지막)
파일배열=분할(HTML,시작)
파일배열2=분할(파일배열(1),마지막)
GetKey=파일배열2(0)
기능 종료
희미한 Softid, URL, Html, 제목
'가져오려는 페이지의 ID를 가져옵니다.
SoftId=요청(ID)
Url=http://www3.skycn.com/soft/&SoftId&.html
Html = Geturl(/blog/Url)
'하늘 소프트웨어를 가로채는 소프트웨어 이름을 예로 들어보자.
제목 = GetKey(Html,<font color='#004FC6' size='3'>,</font></b></td></tr>)
'데이터베이스를 열고 저장할 준비를 하세요.
희미한 connstr,conn,rs,sql
connstr=DBQ=+server.mappath(db1.mdb)+;DefaultDir=;DRIVER={Microsoft Access Driver(*.mdb)};
conn=server.createobject(ADODB.CONNECTION) 설정
conn.open 연결
rs=server.createobject(adodb.recordset) 설정
sql=select [열 이름] from [테이블 이름] where [열 이름]='&제목&'
rs.open SQL,콘,3,3
rs.eof 및 rs.bof인 경우
rs(열 이름)=제목
RS.업데이트
rs=아무것도 설정하지 않음
종료하면
rs=아무것도 설정하지 않음
Response.Write 수집 완료!
%>