على هذا الأساس ، يمكن دمجه مع تعبيرات منتظمة لإنشاء نتائج أفضل. آمل أن يتمكن الجميع من مشاركة تقنية مشاركة الجلسة في XMLHTTP
<html>
<head>
<title> autoget </title>
<metahttp-equiv = "content-type" content = "text/html ؛ charset = gb2312">
</head>
<BodyBgColor = "#ffffff" style = "font-family: arial ؛ font-size: 12px">
<٪
'=================================================================
اسم الملف: getit.asp
مقدمة: autogetdatafromremotewebsite
المؤلف: Babyt (Atai)
'URL: http: //blog.csdn.net/babyt
'Createeat: 2002-02lastupdate: 2004-09
'dbtable: البيانات
'توكيل:
'uid-> long-> keepidofthepages
'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
dimcomefrom ، myerr ، mycount
'=======================================================================
comefrom = "http://www.xxx.com/u.asp؟id="
myerr1 = "هذه البيانات غير موجودة"
myerr2 = "هذه البيانات مخفية"
'=======================================================================
'**********************************************************************
'فقط قم بتغيير نقطة البداية intmin و end point intmax من i ، قم بتعيين طول الخطوة intstep
يتم ضبط الفاصل الزمني على حوالي 50000 في كل مرة. يقدر أن يستغرق أكثر من ساعتين. لا يلزم تدخل يدوي خلال هذه الفترة
'**********************************************************************
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")