我的博客| Blog
- ·微信小程序错误:VM564:...
- ·mongodb3.2设置密码...
- ·单行滚动代码-单行滚动效果
- ·自己动手制作图形字体,以便于...
- ·MySQL无限级分类PHP按...
- ·Windows下的Apach...
- ·如何将网站上的文章分享到微信...
- ·PHP实现自动获取本月第几个...
联系我| Contact Me
- 电话:18681257080
- QQ:271538869
- 邮编:518020
- 信箱:service@08321.org
- 地址:四川省内江市资中县
诚信稳健,和谐共赢
- 以诚信为立世之本,在稳健的基础上,不断寻求创新与突破。
- 以务实严谨、精微细致的专业精神,为客户做最优质的策划,实现效果最大化。
成功,依稀可见
- 成功是什么?
- 做成一件达到目的的事,你就获得了一个小成功,小成功可以累积成更大的成功。每一人都有成功的机会。所以:成功,依稀可见!
我的博客
ASP生成HTML静态文件的方法
来源:本站编辑 发布日期:2009-8-29 已有 人浏览过此信息
由于FSO组件只能生成系统默认的文件编码格式,所以不能用于UTF-8编码网站的转静态处理。下面这个函数也是以前在网上找到的,我只是对函数进行了一些修改和完善。 在此感谢原作者无私奉献。函数调用说明:传输的变量 url 是指目标的网址,fn是要生成的文件名。
<%
Function getHTTPPage(url,fn)
dim objXML
set objXML=createobject("MSXML2.XMLHTTP")'定义
objXML.open "GET",url,false'打开
objXML.send()'发送
If objXML.readystate<>4 then '判断文档是否已经解析完,以做客户端接受返回消息
exit function
End If
getHTTPPage=BytesToBstr(fn,objXML.responseBody)'返回信息,同时用函数定义编码
set objXML=nothing'关闭
if err.number<>0 then err.Clear
End Function
Function BytesToBstr(fn,body)
dim objstream
set objstream = CreateObject("adodb.stream")
objstream.Type =1 '二进制模式
objstream.Mode =3
objstream.Open
objstream.Write body
objstream.Position = 0
objstream.Type = 2
objstream.Charset = "utf-8"
'设定编码为utf-8模式,如果网站的编码是gb2312请修改此项,否则直接用XMLHTTP调用有中文字符的网页得到的将是乱码
'BytesToBstr = objstream.ReadText
objstream.SaveToFile server.MapPath(fn),2
objstream.Close
set objstream = nothing
end Function
%>
调用方法:response.write(getHTTPPage(url,filename))
<%
Function getHTTPPage(url,fn)
dim objXML
set objXML=createobject("MSXML2.XMLHTTP")'定义
objXML.open "GET",url,false'打开
objXML.send()'发送
If objXML.readystate<>4 then '判断文档是否已经解析完,以做客户端接受返回消息
exit function
End If
getHTTPPage=BytesToBstr(fn,objXML.responseBody)'返回信息,同时用函数定义编码
set objXML=nothing'关闭
if err.number<>0 then err.Clear
End Function
Function BytesToBstr(fn,body)
dim objstream
set objstream = CreateObject("adodb.stream")
objstream.Type =1 '二进制模式
objstream.Mode =3
objstream.Open
objstream.Write body
objstream.Position = 0
objstream.Type = 2
objstream.Charset = "utf-8"
'设定编码为utf-8模式,如果网站的编码是gb2312请修改此项,否则直接用XMLHTTP调用有中文字符的网页得到的将是乱码
'BytesToBstr = objstream.ReadText
objstream.SaveToFile server.MapPath(fn),2
objstream.Close
set objstream = nothing
end Function
%>
调用方法:response.write(getHTTPPage(url,filename))
