Sur cette base, il peut être combiné avec des expressions régulières pour créer de meilleurs résultats. J'espère que tout le monde pourra partager la technologie de partage de session de XMLHTTP
<html>
<adal>
<Title> Autoget </Title>
<Metahttp-Equiv = "Content-Type" Content = "Text / Html; charSet = GB2312">
</ head>
<bodybgcolor = "# ffffff" style = "font-family: arial; font-size: 12px">
<%
'===========================================================.
'Nom de fichier: getit.asp
'Intro: autogetdatafromremotewebsite
'Auteur: Babyt (Atai)
'URL: http: //blog.csdn.net/babyt
'CreateEat: 2002-02Lastupdate: 2004-09
'DBTABLE: données
'Table de table:
'Uid-> long-> keepidofypages
'Ucontent-> text-> keepcontentofthepages (html)
'===========================================================.
Server.scriptTimeout = 5000
'onerrorreumenext
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 * frudata"
Rs.OpenSQL, Conn, 1,3
Dimcomefrom, myerr, myCount
'====================================================================.
comefrom = "http://www.xxx.com/u.asp?id="
myerr1 = "Ces données n'existent pas"
myerr2 = "Ces données sont cachées"
'====================================================================.
'**************************************************************************
'Il suffit de changer le point de départ intmin et le point final intmax de i, définissez la taille de pas entièrement
«L'intervalle est fixé à environ 50 000 à chaque fois. On estime qu'il faut plus de deux heures. Aucune intervention manuelle n'est requise pendant cette période
'**************************************************************************
intmin = 0
intmax = 10000
'Régler la longueur des pas
Intstep = 100
'====================================================================================.
'Ne modifiez pas le code suivant
'====================================================================================.
CallgetPart (intmin)
Response.Write "a été converti en données entre" & intmin & "~~" & intmax & "
Rs.Close
Setrs = rien
Conn.Close
setConn = rien
%>
</docy>
</html>
<%
'Utilisez XMLHTTP pour saisir l'adresse et procéder au traitement du contenu
FunctionGetBody (URL)
Dimobjxml
Onerrorresumenext
SetObjxml = createObject ("Microsoft.xmlhttp")