asp產生html簡單實現程式

代碼如下

複製代碼

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.111cn.net",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 "<div align='center'>非常遺憾,您的主機不支援ADODB.Stream,不能使用本程式</div>"         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()