IDC资讯中心
前段时间有个asp页面执行起来很慢，访问人数又颇多，而且又不经常修改，又懒得直接做成静态的，每次都要从服务器下载来改，只好想办法把asp页面转化成htm静态页面了。。。
以前就曾经看到这样的文章，不过没太在意，真正想用的时候很难找到一个合适的，于是在网上搜索了半天终于找到比较合适的代码再加上自己的修改，如下：
<%
function getpage(url)
获得文件内容
dim retrieval
set retrieval = createobject(“microsoft.xmlhttp”)
with retrieval
.open “get”, url, false , “”, “”
.send
getpage = bytestobstr(.responsebody)
end with
set retrieval = nothing
end function
function bytestobstr(body)
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 = “gb2312”
bytestobstr = objstream.readtext
objstream.close
set objstream = nothing
end function
on error resume next
url=”http://www.sina.com.cn”要读取的页面地址
response.write “开始更新首页…”
wstr = getpage(url)
response.write(wstr)
set fs=server.createobject(“scripting.filesystemobject”)
if not myfile.folderexists(server.mappath(“/html/”)) then
myfile.createfolder(server.mappath(“/html/”))
end if
要存放的页面地址
dizhi=server.mappath(“index.htm”)
if (fs.fileexists(dizhi)) then
fs.deletefile(dizhi)
end if
set crfi=fs.createtextfile(dizhi)
crfi.writeline(wstr)
set crfi=nothing
set fs=nothing
response.write “…<font color=red>更新完成！</font>”
%>
代码算是最简单的，直接保存成一个asp文件即可，只要把url（要转化的asp地址）和dizhi（要保存的html地址）设置好就可以了，一般这两个文件在同一个目录，才能保证图片或者css、js起作用。
希望对那些正在寻找asp－>htm的朋友有用。
