これに基づいて、それは正規表現と組み合わせて、より良い結果を生み出すことができます。 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
'createat：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 = "このデータは非表示になっています"
'===========================================================================================================
'****************************************************************
'私の開始点とエンドポイントintmaxを変更するだけで、ステップ長intstepを設定します
「間隔は毎回約50,000に設定されています。 2時間以上かかると推定されています。この期間中は手動介入は必要ありません
'****************************************************************
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"）