将asp页面转换成htm页面技巧

前段时间有个asp页面执行起来很慢，访问人数又颇多，而且又不经常修改，又懒得直接做成静态的，每次都要从服务器下载来改，只好想办法把asp页面转化成htm静态页面了。。。63X中国设计秀

以前就曾经看到这样的文章，不过没太在意，真正想用的时候很难找到一个合适的，于是在网上搜索了半天终于找到比较合适的代码再加上自己的修改，如下：63X中国设计秀

<%63X中国设计秀
Function GetPage(url) 63X中国设计秀
 '获得文件内容63X中国设计秀
 dim Retrieval63X中国设计秀
 Set Retrieval = CreateObject("Microsoft.xmlHTTP") 63X中国设计秀
 With Retrieval 63X中国设计秀
  .Open "Get", url, False ', "", "" 63X中国设计秀
  .Send 63X中国设计秀
  GetPage = BytesToBstr(.ResponseBody)63X中国设计秀
 End With 63X中国设计秀
 Set Retrieval = Nothing 63X中国设计秀
End Function63X中国设计秀

Function BytesToBstr(body)63X中国设计秀
 dim objstream63X中国设计秀
 set objstream = Server.CreateObject("adodb.stream")63X中国设计秀
 objstream.Type = 163X中国设计秀
 objstream.Mode =363X中国设计秀
 objstream.Open63X中国设计秀
 objstream.Write body63X中国设计秀
 objstream.Position = 063X中国设计秀
 objstream.Type = 263X中国设计秀
 objstream.Charset = "GB2312"63X中国设计秀
 BytesToBstr = objstream.ReadText 63X中国设计秀
 objstream.Close63X中国设计秀
 set objstream = nothing63X中国设计秀
End Function63X中国设计秀

on error resume next63X中国设计秀
Url="http://www.sina.com.cn"'要读取的页面地址63X中国设计秀
response.write "开始更新首页..."63X中国设计秀
wstr = GetPage(Url)63X中国设计秀

'response.write(wstr)63X中国设计秀
Set fs=Server.CreateObject("Scripting.FileSystemObject")63X中国设计秀

'if not MyFile.FolderExists(server.MapPath("/html/")) then 63X中国设计秀
'MyFile.CreateFolder(server.MapPath("/html/"))'63X中国设计秀
'end if63X中国设计秀

'要存放的页面地址63X中国设计秀
dizhi=server.MapPath("index.htm")63X中国设计秀
If (fs.FileExists(dizhi)) Then63X中国设计秀
fs.DeleteFile(dizhi)63X中国设计秀
End If63X中国设计秀

Set CrFi=fs.CreateTextFile(dizhi)63X中国设计秀
Crfi.Writeline(wstr)63X中国设计秀
set CrFi=nothing63X中国设计秀
set fs=nothing63X中国设计秀
response.write "...<font color=red>更新完成！</font>"63X中国设计秀
%>63X中国设计秀

63X中国设计秀
代码算是最简单的，直接保存成一个asp文件即可，只要把URL（要转化的asp地址）