이를 바탕으로 더 나은 결과를 창출하기 위해 정규 표현식과 결합 할 수 있습니다. 모든 사람이 XMLHTTP의 세션 공유 기술을 공유 할 수 있기를 바랍니다.
<html>
<헤드>
<title> autoget </title>
<metahttp-equiv = "content-type"content = "text/html; charset = gb2312">
</head>
<bodybgcolor = "#ffffff"style = "font-family : arial; font-size : 12px">
<%
'==============================================================================
'filename : getit.asp
'소개 : autogetdatafromremotewebsite
'저자 : Babyt (atai)
'URL : http : //blog.csdn.net/babyt
'Createat : 2002-02lastupdate : 2004-09
'dbtable : 데이터
'테이블 필드 :
'uid-> long-> keepidofthepages
'ucontent-> text-> KeepContentofthePages (HTML)
'==============================================================================
Server.ScriptTimeout = 5000
'onerrorresumenext
setconn = server.createobject ( "adodb.connection")
conn.open "공급자 = microsoft.jet.oledb.4.0; dataSource ="& server.mappath ( "getit.mdb")
setrs = server.createobject ( "adodb.recordset")
SQL = "선택*FromData"
Rs.Opensql, Conn, 1,3
Dimcomefrom, Myerr, Mycount
'========================================================================================
comefrom = "http://www.xxx.com/u.asp?id="
myerr1 = "이 데이터는 존재하지 않습니다"
myerr2 = "이 데이터는 숨겨져 있습니다"
'========================================================================================
'*************************************************************************************************************************** 누군가
'시작점을 변경하고 I의 시작점 intmax를 변경하고 단계 크기 intstep을 설정하십시오.
'간격은 매번 약 50,000으로 설정됩니다. 2 시간 이상이 걸리는 것으로 추정됩니다. 이 기간 동안 수동 개입이 필요하지 않습니다
'*************************************************************************************************************************** 누군가
intmin = 0
intmax = 10000
'단계 길이를 설정하십시오
intstep = 100
'===============================================================================================
'다음 코드를 변경하지 마십시오
'==============================================================================================
CallgetPart (Intmin)
response.write "& intmin &"~~ "& intmax &"사이의 데이터로 변환되었습니다.
Rs.Close
setrs = 아무것도
conn.close
setconn = 아무것도 없습니다
%>
</body>
</html>
<%
'XMLHTTP를 사용하여 주소를 잡고 컨텐츠 처리를 진행하십시오.
functiongetBody (URL)
dimobjxml
onerrorresumenext
setobjxml = createobject ( "microsoft.xmlhttp")