· 新闻中心 ·
将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.webjx.com"'要读取的页面地址
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 "...更新完成!"
%>

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

新闻中心
· .DIV CSS网页布局中常用...
· 有利于SEO的DIV+CSS的...
· 打印网页中自定义部分内容的实现...
· 特殊符号 大全
· 用静态的URL地址显示动态网页...
· 将ASP动态网页转换成HTM静...
更多>>
在线咨询
客服NO1 您好!很高兴为您服务,请问有什么可以帮您吗?
客服NO2 您好!很高兴为您服务,请问有什么可以帮您吗?
客服NO3 您好!很高兴为您服务,请问有什么可以帮您吗?
客服NO4 您好!很高兴为您服务,请问有什么可以帮您吗?
客服NO5 您好!很高兴为您服务,请问有什么可以帮您吗?
客服NO6 您好!很高兴为您服务,请问有什么可以帮您吗?
投诉建议 您好!很高兴为您服务,请问有什么可以帮您吗?
托管租用 您好!很高兴为您服务,请问有什么可以帮您吗?
帮助中心
付款方式 域名注册
在线支付 有问必答
白名单提交 网站备案
联系我们

热线:
         13912377633
咨询QQ: 家喻网络在线客服 512541408
               家喻网络在线客服 570355160
E-mail: web@361du.cc

友情链接:搜保姆网 伙计家政网 公司注册服务网 无锡家政网
成功案例

Copyright © 2005-2015 家喻网络 [http://www.kekw.net] All Rights Reserved
地址:上海市金山区朱枫公路9135号枫泾商城4号楼1-381室 邮编:201512 电话:021-60520506-1传真:021-60520506-8
版权所有家喻网络© 严禁复制 家喻网络常年法律顾问--罗兰德律师
信息产业部备案编号:沪ICP备11019646号-6

智能建站 asp空间 公司注册 网站系统 月嫂母女护理 家政员保姆数据库 注册公司 钢材行情价格 代理记账 代理记账 无锡家政保姆 无锡育婴师 无锡家政保姆钟点工 伙计网 搜保姆 无锡注册公司代理记账