将asp页面转换成htm页面的方法

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

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

1. <%
2. Function GetPage(url) 
3.  '获得文件内容
4.  dim Retrieval
5.  Set Retrieval = CreateObject("Microsoft.XMLHTTP") 
6.  With Retrieval 
7.   .Open "Get", url, False ', "", "" 
8.   .Send 
9.   GetPage = BytesToBstr(.ResponseBody)
10.  End With 
11.  Set Retrieval = Nothing 
12. End Function
14. Function BytesToBstr(body)
15.  dim objstream
16.  set objstream = Server.CreateObject("adodb.stream")
17.  objstream.Type = 1
18.  objstream.Mode =3
19.  objstream.Open
20.  objstream.Write body
21.  objstream.Position = 0
22.  objstream.Type = 2
23.  objstream.Charset = "GB2312"
24.  BytesToBstr = objstream.ReadText 
25.  objstream.Close
26.  set objstream = nothing
27. End Function
29. on error resume next
30. Url="http://www.sina.com.cn"'要读取的页面地址
31. response.write "开始更新首页..."
32. wstr = GetPage(Url)
34. 'response.write(wstr)
35. Set fs=Server.CreateObject("Scripting.FileSystemObject")
37. 'if not MyFile.FolderExists(server.MapPath("/html/")) then 
38. 'MyFile.CreateFolder(server.MapPath("/html/"))'
39. 'end if
41. '要存放的页面地址
42. dizhi=server.MapPath("index.htm")
43. If (fs.FileExists(dizhi)) Then
44. fs.DeleteFile(dizhi)
45. End If
47. Set CrFi=fs.CreateTextFile(dizhi)
48. Crfi.Writeline(wstr)
49. set CrFi=nothing
50. set fs=nothing
51. response.write "...<font color=red>更新完成！</font>"
52. %>

代码算是最简单的，直接保存成一个asp文件即可，只要把URL（要转化的asp地址）和dizhi（要保存的html地址）设置好就可以了，一般这两个文件在同一个目录，才能保证图片或者css、js起作用。

希望对那些正在寻找由asp生成htm的朋友有用。