将asp页面转换成htm页面

转载 2006年06月21日 15:43:00

前段时间有个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的朋友有用。'

http://guanvee.cnblogs.com/archive/2006/06/16/427534.html

<script type="text/javascript"> &amp;amp;amp;lt;!-- google_ad_client = "pub-7751867342391750"; google_ad_width = 728; google_ad_height = 90; google_ad_format = "728x90_as"; google_ad_type = "text_image"; google_ad_channel =""; //--&amp;amp;amp;gt; </script> <script src="http://pagead2.googlesyndication.com/pagead/show_ads.js" type="text/javascript"> </script>

相关文章推荐

在C#页面中把时间转换成星期

  • 2013年09月17日 14:38
  • 99B
  • 下载

java转换word为htm文件并嵌入jsp页面

近日在项目中需要将word文档嵌入到jsp页面中,遇到这个问题,首先想到的解决方法便是将word内容读取,然后放入jsp中,可是这样做有一个难点,就是读取word的格式,图片以及表格等内容,由于在前几...

xml+asp+htm制作的登录页面

  • 2007年07月27日 20:34
  • 4KB
  • 下载

百度地图将地图坐标转换成页面像素

最近使用百度地图做数据显示,但是使用自己定义的图片以及便签必须在页面上面定位才能达到效果,这必然就需要使用到像素坐标,网上百度许久,找到了一套可行的方法,以下代码测试可用,如有需要的伙伴可以参考/**...

asp+sql htm页面简单编程

  • 2008年09月27日 09:02
  • 2.23MB
  • 下载

PHP自动把纯文本转换成Web页面

Green for Mars!          John R. Doe          The idea of little green men from Mars, long a sta...

java将文档转换成html页面代码 (doc中的图片生成资源文件)

import java.io.File; import com.jacob.com.*; import com.jacob.activeX.*; /** * @author mini_fly ...
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:将asp页面转换成htm页面
举报原因:
原因补充:

(最多只允许输入30个字)