设为首页收藏本站

莆田恒心技术学校

 找回密码
 立即注册

QQ登录

只需一步,快速开始

搜索
热搜: 活动 交友 discuz
查看: 1883|回复: 5

[教程] 将ASP转为HTML

[复制链接]
发表于 2012-9-21 14:29:05 | 显示全部楼层 |阅读模式
  1. <%
  2. '常用函数
  3. '1、输入url目标网页地址,返回值getHTTPPage是目标网页的html代码
  4. function getHTTPPage(url)
  5.    dim Http
  6. set http=Server.createobject("MSXML2.ServerXMLHTTP")
  7. Http.setTimeouts 10000,10000,10000,30000
  8. Http.open "GET",url,false
  9.    Http.send()
  10.    if Http.readystate<>4 then
  11.    exit function
  12.    end if
  13.    getHTTPPage=bytesToBSTR(Http.responseBody,"GB2312")
  14.    set http=nothing
  15.    if err.number<>0 then err.Clear
  16. end function

  17. '2、转换乱玛,直接用xmlhttp调用有中文字符的网页得到的将是乱玛,可以通过adodb.stream组件进行转换
  18. Function BytesToBstr(body,Cset)
  19.    dim objstream
  20.    set objstream = Server.CreateObject("adodb.stream")
  21.    objstream.Type = 1
  22.    objstream.Mode =3
  23.    objstream.Open
  24.    objstream.Write body
  25.    objstream.Position = 0
  26.    objstream.Type = 2
  27.    objstream.Charset = Cset
  28.    BytesToBstr = objstream.ReadText
  29.    objstream.Close
  30.    set objstream = nothing
  31. End Function

  32. '下面试着调用http://www.ptycrc.com的html内容
  33. Dim Url,Html
  34. Url="http://www.ptycrc.com"
  35. Html = getHTTPPage(Url)

  36. '生成静态页面
  37. dim filename,fso,fout
  38. filename="index.htm"
  39. Set fso = Server.CreateObject("Scripting.FileSystemObject")
  40. Set fout = fso.CreateTextFile(server.mappath(""&filename&""))
  41. fout.Write Html
  42. fout.close
  43. set fout=nothing
  44. set fso=nothing
  45. if err then
  46. response.Write("生成页面失败")
  47. else
  48. response.Write("生成页面成功<a href='index.htm' target='_blank'>index.htm</a>")
  49. end if
  50. %>
复制代码
回复

使用道具 举报

发表于 2012-12-5 19:40:44 | 显示全部楼层
不错不错,楼主是个绝对高手
回复 支持 反对

使用道具 举报

发表于 2013-5-20 04:43:31 | 显示全部楼层
楼主你太好了












EP影院最新最全的电影网站之一,2013最新电影 数字影院  最新电影  最新电视剧
回复 支持 反对

使用道具 举报

发表于 2013-5-23 18:38:45 | 显示全部楼层
好帖,确实好帖!












EP影院最新最全的电影网站之一,2013最新电影 数字影院  最新电影  最新电视剧
回复 支持 反对

使用道具 举报

发表于 2013-5-27 21:09:26 | 显示全部楼层
不明白是干嘛用的
回复 支持 反对

使用道具 举报

发表于 2015-4-17 10:37:39 | 显示全部楼层
交流交流好啊!楼主真厉害












高清电影  西瓜影音
回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

QQ|小黑屋|手机版|Archiver|莆田恒心技术学校   

GMT+8, 2018-7-16 20:30 , Processed in 0.234375 second(s), 25 queries .

Powered by Discuz! X3

© 2001-2013 Comsenz Inc.

快速回复 返回顶部 返回列表