asp生成html简单实现程序

时间：2012-09-26 编辑：简简单单来源：一聚教程网

代码如下

复制代码

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.111com.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 "

非常遗憾,您的主机不支持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()

上一个： asp中设置session过期时间方法总结
下一个： Microsoft VBScript 运行时错误 800a01ad 解决办法总结

推荐专题

最新下载

热门教程

asp生成html简单实现程序

相关文章

热门栏目

php教程

asp.net教程

手机开发

css教程

网页制作

办公数码

jsp教程