Sobre esta base, se puede combinar con expresiones regulares para crear mejores resultados. Espero que todos puedan compartir la tecnología de compartir sesiones de XMLHTTP
<html>
<Evista>
<title> AutoGet </title>
<metahttp-equiv = "content-type" content = "text/html; charset = gb2312">
</ablo>
<BodyBGColor = "#ffffff" style = "Font-Family: Arial; Font-Size: 12px">
<%
'=====================================================================
'Nombre de archivo: getit.asp
'Introducción: autogetDataFromRemotewebsite
'Autor: Babyt (Atai)
'Url: http: //blog.csdn.net/babyt
'Createat: 2002-02Lastupdate: 2004-09
'DBTable: datos
'Tablefield:
'Uid-> long-> keepidofthepages
'UContent-> Text-> KeepContentOfThePages (HTML)
'=====================================================================
Servidor.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
DiMcome de Myerr, MyCount
'========================================================================================================================
COMBROM = "http://www.xxx.com/u.asp?id="
myerr1 = "estos datos no existen"
myerr2 = "estos datos están ocultos"
'========================================================================================================================
'************************************************************************
'Simplemente cambie el punto de inicio intmin y el punto final intmax de I, configure el tamaño de paso intstep
'El intervalo se establece en aproximadamente 50,000 cada vez. Se estima que lleva más de dos horas. No se requiere una intervención manual durante este período
'************************************************************************
intmin = 0
intmax = 10000
'Establecer longitud del paso
intstep = 100
'============================================================================================================
'No cambie el siguiente código
'============================================================================================================
CallgetPart (intmin)
Response.write "se ha convertido en datos entre" & intmin & "~~" & intmax & "
rs.
SETRS = nada
Conn.clar
setConn = nada
%>
</body>
</html>
<%
'Use XMLHTTP para obtener la dirección y continúe con el procesamiento de contenido
FunctionGetBody (URL)
Dimobjxml
OnerrorResumEnext
Setobjxml = createObject ("Microsoft.xmlhttp")