บนพื้นฐานนี้สามารถรวมกับนิพจน์ทั่วไปเพื่อสร้างผลลัพธ์ที่ดีกว่า ฉันหวังว่าทุกคนสามารถแบ่งปันเทคโนโลยีการแบ่งปันเซสชันของ 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
'Intro: AutogetDataFromremotewebsite
'ผู้แต่ง: babyt (atai)
'url: http: //blog.csdn.net/babyt
'createat: 2002-02lastupdate: 2004-09
'dbtable: ข้อมูล
'Tablefield:
'uid-> long-> retidofthepages
'ucontent-> text-> KeepContentOfThePages (HTML)
-
Server.scriptTimeOut = 5000
'onerrorresumenext
setConn = server.createObject ("adodb.connection"))
conn.open "ผู้ให้บริการ = microsoft.jet.oledb.4.0; dataSource =" & server.mappath ("getit.mdb")
setRs = server.createObject ("adodb.recordset"))
sql = "select*fromdata"
Rs.opensql, Conn, 1,3
Dimcome จาก Myerr, MyCount
-
Comefrom = "http://www.xxx.com/u.asp?id="
myerr1 = "ข้อมูลนี้ไม่มีอยู่"
myerr2 = "ข้อมูลนี้ซ่อนอยู่"
-
-
'เพียงแค่เปลี่ยนจุดเริ่มต้น intmin และจุดสิ้นสุด intmax ของ i ให้ตั้งค่าขนาดขั้นตอน intstep
'ช่วงเวลาถูกตั้งค่าเป็นประมาณ 50,000 ครั้งในแต่ละครั้ง คาดว่าจะใช้เวลามากกว่าสองชั่วโมง ไม่จำเป็นต้องมีการแทรกแซงด้วยตนเองในช่วงเวลานี้
-
intmin = 0
intmax = 10,000
'ตั้งความยาวขั้นตอน
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"))