代碼如下

　　Function getHttpXML()

　　Set Http = Server.CreateObject("Msxml2.ServerXMLHTTP")

　　dim lResolve,lConnect,lSend,lReceive

　　lResolve = 5*1000

　　lConnect = 5*1000

　　lSend = 15*1000

　　lReceive = 15*1000

　　Http.setTimeouts lResolve,lConnect,lSend,lReceive

　　Http.open "POST","http://www.3lian.com/",false '抓取需要生成html的頁面

　　Http.Send()

　　if Http.readystate =1 then str1=timer()

　　if Http.readystate =4 then str2=timer()

　　if Http.readystate <> 4 then

　　exit Function

　　end if

　　'if Http.readystate =0 then str1=timer()

　　'getHttpXML=BytesToBstr(Http.responseBody,"utf-8")

　　getHttpXML=Http.responseBody

　　'getHttpXML=FormatNumber((str2-str1)/1000,3)

　　if err.Number<>0 then err.Clear

　　End Function

　　'生成文件

　　Function SaveToFile()

　　Dim objStream

　　On Error Resume Next

　　Set objStream = Server.CreateObject("ADODB.Stream")

　　If Err.Number=-2147221005 Then

　　Response.Write "

　　非常遺憾,您的主機不支持ADODB.Stream,不能使用本程序

　　"

　　Err.Clear

　　Response.End

　　End If

　　With objStream

　　.Type = 1

　　.Open

　　.Charset = "utf-8"

　　.write getHttpXML

　　.SaveToFile Server.MapPath("index.html"),2

　　.Close

　　End With

　　Set objStream = Nothing

　　End Function

　　call SaveToFile()

鄭重聲明：本文版權(quán)歸原作者所有，轉(zhuǎn)載文章僅為傳播更多信息之目的，如作者信息標(biāo)記有誤，請第一時間聯(lián)系我們修改或刪除，多謝。