Nesta base, ele pode ser combinado com expressões regulares para criar melhores resultados. Espero que todos possam compartilhar a tecnologia de compartilhamento de sessão de xmlhttp
<html>
<head>
<title> AutoGet </ititle>
<metahttp-equiv = "content-type" content = "text/html; charset = gb2312">
</head>
<BodbGColor = "#ffffff" style = "Font-familiar: Arial; font-size: 12px">
<%
'======================================================================
'Nome do arquivo: getit.asp
'Introdução: AutoGetDataFromRemotewebSite
'Autor: babyt (atai)
'URL: http: //blog.csdn.net/babyt
'CreateAt: 2002-02LastUpdate: 2004-09
'Dbtable: dados
'Tablefield:
'UID-> Long-> mantém as depagas
'UContent-> text-> keepContentEfthePages (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 = "Selecione*FromData"
Rs.opensql, Conn, 1,3
DimcomeFrom, Myerr, MyCount
'================================================================================
Comefrom = "http://www.xxx.com/u.asp?id="
myerr1 = "esses dados não existem"
myerr2 = "esses dados estão ocultos"
'================================================================================
'***********************************************
'Basta alterar o ponto de partida Intmin e o ponto final Intmax de i, defina o comprimento da etapa INTSTEP
'O intervalo é definido como cerca de 50.000 cada vez. Estima -se que demore mais de duas horas. Nenhuma intervenção manual é necessária durante esse período
'***********************************************
intmin = 0
intmax = 10000
'Coloque o comprimento da etapa
intstep = 100
'====================================================================================
'Não altere o seguinte código
'====================================================================================
CallgetPart (intmin)
Response.Write "foi convertido em dados entre" e intmin e "~~" e intmax & "
rs.close
Setrs = nada
Conn.Close
setConn = nada
%>
</body>
</html>
<%
'Use XMLHTTP para pegar o endereço e prosseguir para o processamento de conteúdo
FunctionGetBody (URL)
DIMOBJXML
OnErrorReSumenext
SetObjxml = CreateObject ("Microsoft.xmlHttp")