将asp页面转换成htm页面[转]

来源：互联网发布：网络公知大v名单编辑：程序博客网时间：2024/06/05 18:22

文章来源：博客园

<%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 = nothingEnd Function on error resume nextUrl="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)) Thenfs.DeleteFile(dizhi)End If Set CrFi=fs.CreateTextFile(dizhi)Crfi.Writeline(wstr)set CrFi=nothingset fs=nothingresponse.write "...<font color=red>更新完成！</font>"%>

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

希望对那些正在寻找asp－>htm的朋友有用。