第 1 頁 利用Msxml2.ServerXMLHTTP抓取網(wǎng)頁內(nèi)容
第 2 頁 用ADODB.Stream將抓取內(nèi)容寫入文件
第 3 頁 具體的舉一個例子
了解asp的人應(yīng)該都知道asp是一種解釋執(zhí)行的腳本程序語言,而腳本程序的執(zhí)行效率往往都是很低的,如果站點的訪問量相對較高的話服務(wù)器就會非常消耗資源,表現(xiàn)的結(jié)果就是站點訪問速度急速下降.解決的方法,除了優(yōu)化程序提高執(zhí)行效率,還有一個方法就是將網(wǎng)站內(nèi)的訪問量大的頁面定時的生成靜態(tài)html文件,這樣可以非常有效的解決訪問速度問題,當(dāng)然前提是你的服務(wù)器速度也要不是很慢了,不然怎么弄都是沒有效果的. 　　下面我介紹一種利用Msxml2.ServerXMLHTTP組件來抓取您所要生成靜態(tài)的網(wǎng)頁,然后再利用fso,或者ado來寫入文件的一種方法,需要注意的是本文例子全部采用utf-8編碼,如果改為gb2312需要做相應(yīng)屬性的修改! 先給處下面的函數(shù):
<!--'相關(guān)問題可訪問http://www.pcer.cn

Function GetURL(URL)
'下載主函數(shù)
const TimeInterval=60
'設(shè)定時間間隔
'如果下載時間很慢，就寫成120秒
'Response.LCID=2052
const lResolve=6
'解析域名超時時間,秒
const lConnect=6
'連接站點超時時間,秒
const lSend=6
'發(fā)送數(shù)據(jù)請求超時時間,秒
const lReceive=40
'下載數(shù)據(jù)超時時間,秒
on error resume Next
Dim http
Set http = Server.CreateObject("Msxml2.ServerXMLHTTP")
http.setTimeouts lResolve*1000,lConnect*1000,lSend*1000,lReceive*1000
http.Open "GET",URL,False
http.Send
Select Case http.readyState
Case 0
GetURL="對象初始化失敗"
Err.Clear
set http=nothing
Exit Function
Case 1
GetURL="域名分析超時/連接站點超時"
Err.Clear
set http=nothing
Exit Function
Case 2
GetURL="發(fā)送數(shù)據(jù)請求超時,是不是服務(wù)器出故障了"
Err.Clear
set http=nothing
Exit Function
Case 3
GetURL="數(shù)據(jù)下載超時/等待反饋時間超時"
Err.Clear
set http=nothing
Exit Function
Case 4
'下載成功
End Select
If http.status<>200  then
GetURL="下載失敗"&Err.description
Err.Clear
set http=nothing
Exit Function
END IF
If http.status="200" then
GetURL=http.ResponseText
'GetURL=SaveFile()
End If
set http=nothing
End Function
-->


　　主要功能是抓取地址參數(shù)的網(wǎng)頁文件的內(nèi)容　　使用方法varia=GetURL("http://www.pcer.cn"),如果是本地測試地址可以寫成http://localhost/default.asp 　　使用此函數(shù)需要注意的是Response.LCID=2052屬性在windows server 2000下不被支持,不過問題不大只要注釋掉即可正常使用! 　　還有一些超時屬性可以根據(jù)需要自定義,但注意不要設(shè)置的時間太短,否則如果文件大或者地址訪問速度較慢就容易抓取失敗! 這讓我們就可以利用此函數(shù)來抓取你想要生成的網(wǎng)頁文件內(nèi)容了.將內(nèi)容存入變量,等著寫入文件吧!