可以在此基礎上結合正則表達式做成更好的效果，希望大家能分享一下Xmlhttp的session共享技術
<html>
<head>
<title>AUTOGET</title>
<metahttp-equiv="Content-Type"content="text/html;charset=gb2312">
</head>
<bodybgcolor="#FFFFFF"style="font-family:Arial;font-size:12px">
<%
'=================================================
'FileName:Getit.Asp
'Intro:AutoGetDataFromRemoteWebSite
'Author:Babyt(阿泰)
'URL:http://blog.csdn.net/babyt
'createAt:2002-02Lastupdate:2004-09
'DBTable:data
'TableField:
'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="該資料已隱藏"
'========================================================
'***************************************************************
'只需要更改這裡i的始點intMin和終點intMax,設定步長intStep
'每次區間設置成5萬左右。估計要兩個多小時。期間不需要人工干預
'****************************************************************
intMin=0
intMax=10000
'設定步長
intStep=100
'==========================================================
'以下代碼不要更改
'==========================================================
CallGetPart(intMin)
Response.write"已經轉換完成"&intMin&"~~"&intMax&"之間的數據"
rs.close
Setrs=Nothing
conn.Close
setconn=nothing
%>
</body>
</html>
<%
'使用XMLHTTP抓取地址並進次內容處理
FunctionGetBody(Url)
DimobjXML
OnErrorResumeNext
SetobjXML=createObject("Microsoft.XMLHTTP")