Atas dasar ini, dapat dikombinasikan dengan ekspresi reguler untuk menciptakan hasil yang lebih baik. Saya harap semua orang dapat berbagi teknologi berbagi sesi XMLHTTP
<Html>
<head>
<title> AutoGet </iteme>
<metahttp-equiv = "konten-tipe" content = "text/html; charset = gb2312">
</head>
<bodybgcolor = "#ffffff" style = "font-family: arial; font-size: 12px">
<%
'=====================================================================
'Nama file: getit.asp
'Intro: AutogetDataFromremotewebebsite
'Penulis: Babyt (Atai)
'Url: http: //blog.csdn.net/babyt
'Createat: 2002-02LastUpdate: 2004-09
'DBTable: Data
'Tablefield:
'Uid-> long-> KeepIdofthPage
'UContent-> Text-> KeepContentOfThePages (html)
'=====================================================================
Server.ScriptTimeout = 5000
'OnerRorresUMenext
SetConn = server.CreateObject ("adodb.connection")
conn.open "penyedia = microsoft.jet.oledb.4.0; DataSource =" & server.mappath ("getit.mdb")
SetRs = server.CreateObject ("adodb.recordset")
sql = "pilih*fromdata"
rs.opensql, Conn, 1,3
DimcomeFrom, Myerr, Mycount
'=================================================================================================
comefrom = "http://www.xxx.com/u.asp?id="
myerr1 = "data ini tidak ada"
myerr2 = "Data ini tersembunyi"
'=================================================================================================
'********************************************************************
'Cukup ubah titik start intmin dan titik akhir intmax dari i, atur ukuran langkah intstep
'Interval diatur ke sekitar 50.000 setiap kali. Diperkirakan memakan waktu lebih dari dua jam. Tidak diperlukan intervensi manual selama periode ini
'********************************************************************
intmin = 0
Intmax = 10000
'Tetapkan panjang langkah
intstep = 100
'=======================================================================================================
'Jangan ubah kode berikut
'=======================================================================================================
CallgetPart (intmin)
Response.write "telah dikonversi menjadi data antara" & intmin & "~~" & intmax & "
rs.close
SetRs = tidak ada
Conn.Close
setConn = tidak ada
%>
</body>
</html>
<%
'Gunakan xmlhttp untuk mengambil alamat dan melanjutkan dengan pemrosesan konten
FunctionGody (URL)
Dimobjxml
OnerrorresumeNext
Setobjxml = createObject ("microsoft.xmlhttp")