Исходя из этого, это может быть объединено с регулярными выражениями, чтобы создать лучшие результаты. Я надеюсь, что каждый сможет поделиться технологией обмена сеансами 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
'Intro: AutogetDataFromRemotewebsite
'Автор: Babyt (Atai)
'Url: http: //blog.csdn.net/babyt
'Createat: 2002-02lastupdate: 2004-09
'Dbtable: данные
'Настольное поле:
'Uid-> long-> hoeidOfThePages
'Ucontent-> text-> KeepContentOfThePages (html)
'==========================================================================
Server.ScriptTimeout = 5000
'onerrorresumenext
SetConn = server.createObject ("adodb.connection")
conn.open "Provider = microsoft.jet.oledb.4.0; dataSource =" & server.mappath ("getit.mdb")
Setrs = server.createObject ("adodb.recordset")
sql = "select*fromData"
Rs.opensql, Conn, 1,3
Demcome от, Myerr, MyCount
'===============================================================================
comefrom = "http://www.xxx.com/u.asp?id="
myerr1 = "этих данных не существует"
myerr2 = "эти данные скрыты"
'===============================================================================
'***************************************************
'Просто измените начальную точку Intmin и конечную точку INTMAX I, установите длину шага
«Интервал устанавливается примерно на 50 000 каждый раз. По оценкам, это займет более двух часов. Ручное вмешательство не требуется в течение этого периода
'***************************************************
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")