文章·资料 电脑软件 手机软件 网站源码




    本 站 搜 索
   推 荐 文 章        More...
华硕易电脑(ASUS Eee PC 10..
先来段开场白:为了外出携带方便..
Acronis True Image 使用..
  一款可以在Windows下使用..
Norton Ghost 使用详解
一、分区备份   使用Ghost..
    文 章 阅 读 排 行
“啊估文章软件站”网站系..
一、调试测试网站系统时,如何..
关于 Firefox 在中国持续..
亲爱的 Firefox 用户及 Firefox..
向日葵远程控制软件,设置..
向日葵远程控制软件有个人版和..
夸克网盘新用户注册如何获..
夸克网盘,新用户注册如何获得1..
FileZilla Server 设置参考
FileZilla Server 启动界面 ..
PakePlus 构建 APP 需要 Gi..
PakePlus 是一个基于 Rust Taur..
电脑显示器使用 HDMI 数据..
如果电脑显示器使用 HDMI 数据..
ASP/JavaScript:不刷新页..
function GuReturnElement(..
分享几个免费申请 SSL 证..
DigiCert 原 Symantec(赛门铁..
关闭微信的个性化推荐广告
有网友说到,微信的初衷是拉近..
 文 章 信 息
ASP生成HTM文件方法(用于将原有ASP文件转换成对应HTM代码的新文件)
评论()〗〖留言〗〖收藏
〖文章分类:电脑·手机·网络 / 网站设计·开发·优化〗〖阅读选项
asp2htm.asp文件代码
<%
function getHTTPPage(url)
dim Http
set Http=server.createobject("MSXML2.XMLHTTP")
Http.open "GET",url,false
Http.send()
if Http.readystate<>4 then
exit function
end if
getHTTPPage=bytesToBSTR(Http.responseBody,"GB2312")
set http=nothing
if err.number<>0 then err.Clear
end function

Function BytesToBstr(body,Cset)
dim objstream
set objstream = Server.CreateObject("adodb.stream")
objstream.Type = 1
objstream.Mode =3
objstream.Open
objstream.Write body
objstream.Position = 0
objstream.Type = 2
objstream.Charset = Cset
BytesToBstr = objstream.ReadText
objstream.Close
set objstream = nothing
End Function


Dim Url,Html
Url=request("url")
filename=request("filename")
Html = getHTTPPage(Url)

dim filename,MDBpath,fso,fout
'filename="groupTree.htm"
MDBpath="/"
Set fso = Server.CreateObject("Scripting.FileSystemObject")
Set fout = fso.CreateTextFile(server.mappath(""&filename&""))
fout.Write html
fout.close
set fout=nothing
set fso=nothing
if err then
response.Write "<script>alert('生成失败!')</script>"
else
response.Write "<script>alert('生成成功!')</script>"
end if
%>


使用方法:

有两个参数

url:为ASP文件的完整网址(例:http://127.0.0.1/user.asp
filename:为要转换成的HTM文件的文件名(需加后缀),所生成的htm文件在asp2htm.asp所在目录

例:

test.htm

<body>
<a href="asp2htm.asp?url=http://127.0.0.1/user.asp&filename=userlist.htm">将用户列表生成HTML文件</a>
</body>

文章作者:未知  更新日期:2009-06-16
〖文章浏览:〗〖发送文章〗〖打印文章
相关文章 ·ASP生成文本文件(.txt)的代码2008-03-07
·ASP生成静态网页的方法2006-05-13
·ASP生成HTML静态文件件技术杂谈2007-10-30
·ASP+FSO+框架实现ASP生成HTML并分页的方法(批量)2009-06-16
〖文章阅读说明〗
·本站大部分文章转载于网络,如有侵权请留言告知,本站即做删除处理。
·本站法律法规类文章转载自[中国政府网(www.org.cn)],相关法律法规如有修订,请浏览[中国政府网]网站。
·本站转载的文章,不为其有效性,实效性,安全性,可用性等做保证。
·如果有什么问题,或者意见建议,请联系[网站管理员]。