将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>

ASP中页面之间传递值的几种方式

ASP.NET页面之间传递值的几种方式   页面传值是学习asp.net初期都会面临的一个问题,总的来说有页面传值、存储对象传值、ajax、类、model、表单等。但是一般来说,常用的较简单有Que...
  • yangshuangtao
  • yangshuangtao
  • 2016年05月01日 11:00
  • 6941

【ASP】页面引用与过程调用

ASP,也就是vbscript的过程与VB的完全一模一样。分两种,一种是无返回值的Sub过程、一种是有返回值Function。 你不介意的话,完全可以将其理解为其它编程语言的,有返回值与无返回值的函...
  • yongh701
  • yongh701
  • 2016年01月14日 20:57
  • 1261

asp.net-页面跳转的方法及实例

实例如下: .aspx代码如下: 页面转向 通过静态的超链接转向: 我要自学网 ...
  • yayun0516
  • yayun0516
  • 2014年12月01日 11:22
  • 2168

Rewrite重新规则汇总

在之前的文章里我们已经谈论了有关URL Rewrite的几个主要的方面。在本系列的最后一篇文章中,我们就来讨论一下有关不同级别URL Rewrite的一些细节与特点。 理论上说,IIS级别的URL ...
  • cswlsh
  • cswlsh
  • 2014年06月24日 17:47
  • 318

Asp.net页面生存周期

# 事件或方法 功能 描述    1 Init 事件 页面初始化 初始化设置。    2 LoadViewState 方法 加载视图状态 填充ViewState属性。    3 LoadPost...
  • smartsmile2012
  • smartsmile2012
  • 2016年06月06日 18:51
  • 911

网页后缀html、htm、shtml、shtm有什么区别?

每一个网页或者说是web页都有其固定的后缀名,不同的后缀名对应着不同的文件格式和不同的规则、协议、用法,最常见的web页的后缀名是.html和.htm,但这只是web页最基本的两种文件格式,今天我们来...
  • heaven_autumn
  • heaven_autumn
  • 2016年03月18日 09:22
  • 863

SEO优化.htm.html.shtml静态页面与伪静态分析

SEO优化.htm.html.shtml静态页面与伪静态分析 分类: SEO2013-07-31 12:36 94人阅读 评论(0) 收藏 编辑 删除 性能优化SEO搜索引擎 SEO优化.htm...
  • u013605178
  • u013605178
  • 2014年04月11日 15:17
  • 948

性能调优之页面静态化

 HTML静态化 1  介绍 其实大家都知道,效率最高、消耗最小的就是纯静态化的html页面,所以我们尽可能使我们的网站上的页面采用静态页面来实现,这个最简单的方法其实也是最...
  • dingxiaobohrbeu
  • dingxiaobohrbeu
  • 2014年10月15日 22:35
  • 320

【虚拟主机篇】asp页面实现301重定向方法

301重定向在很多地方都需要用到,也是seo中常见的问题。比如确定首选域或更换网站域名的时候都要用到301重定向。301重定向的方法有好几种,拿ASP类网站来说有:首页301重定向和全站301重定向。...
  • lizhi125
  • lizhi125
  • 2013年03月27日 11:46
  • 1082

ASP.NET刷新页面的六种方法

第一:  private void Button1_Click( object sender, System.EventArgs e )    {       Response.Redirect...
  • txx9010
  • txx9010
  • 2013年08月08日 10:11
  • 1926
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:将asp页面转换成htm页面
举报原因:
原因补充:

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