Hi,网页设计师综合门户欢迎您!
设为首页  加为收藏  我要投稿找回密码免责声明意见反馈

招聘精英个人求职推广网站网友作品网页特效动画欣赏网页素材酷站欣赏源码下载设计软件

  • 全站搜索
  • 新闻资讯
  • 网页教程
  • 平面教程
  • 程序设计
  • 视频教程
  • Flash教程

网页设计师提供网页设计、网站程序开发、系统开发等,请联系QQ 103198680

 您当前的位置:首页 > 阅读文章
网页设计师综合门户欢迎您!

asp生成html简单实现程序

刊登方式:转载   来源:网络  作者:  关键词:平面设计理念  更新时间:2017/7/14

  代码如下

  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.wysjs.cn/",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()