会员登陆
登录加载中...
超级搜索
栏  目  
类  别  
关键词  
 站内搜索   网络搜索
  
 当前位置:文章首页>>网页编程>>ASP实例>>将ASP动态网页转换成HTM静态页面的方法
推荐给你的朋友阅读:

将ASP动态网页转换成HTM静态页面的方法

来源:飞腾设计网 发表日期: 2007-07-15 12:33:29

    前段时间有个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.feitec.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 "...<font color=red>更新完成!</font>"
    %>

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

    希望对那些正在寻找由asp生成htm的朋友有用。

0
0
[作者:raincity 关键词:生成静态页面 录入:raincity 责编:raincity 阅读次数:4728]

相关文章 相关新闻 相关软件 相关教程 公共评论 发表评论

  • ·暂无相关内容
  • ·暂无相关内容
  • ·暂无相关内容
    评论载入中...
    您的称呼  验 证 码   
    您的评论 [ 最多字数:  已用字数:剩余字数:]

     
COPYRIGHT 2003-2010 创意飞腾科技有限公司(The Feitec LTD.) ALL RIGHTS RESERVED .
官方咨询官方咨询4376161 官方咨询526743959 技术支持:FeitecCMS5366464
页面加载时间:125.00ms Powered By:FeitecCMS V4.0(Build1101)
[蜀ICP备05000881]