程序師世界是廣大編程愛好者互助、分享、學習的平台,程序師世界有你更精彩!
首頁
編程語言
C語言|JAVA編程
Python編程
網頁編程
ASP編程|PHP編程
JSP編程
數據庫知識
MYSQL數據庫|SqlServer數據庫
Oracle數據庫|DB2數據庫
 程式師世界 >> 編程語言 >> 網頁編程 >> ASP編程 >> ASP入門教程 >> asp生成html簡單實現程序

asp生成html簡單實現程序

編輯:ASP入門教程

關於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.163ns.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 "<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()

  1. 上一頁:
  2. 下一頁:
Copyright © 程式師世界 All Rights Reserved