asp页面转换成htm页面的办法[网站编程]

前段时间有个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的朋友有效.