当前位置:七道奇文章资讯网站建设网站编程
日期:2010-10-08 10:48:00  来源:本站整理

asp页面转换成htm页面的办法[网站编程]

赞助商链接



  本文“asp页面转换成htm页面的办法[网站编程]”是由七道奇为您精心收集,来源于网络转载,文章版权归文章作者所有,本站不对其观点以及内容做任何评价,请读者自行判断,以下是其具体内容:

前段时间有个asp页面履行起来很慢,拜候人数又颇多,并且又不常常改正,又懒得直接做成静态的,每次都要从服务器下载来改,只好想办法把asp页面转化成htm静态页面了...

从前就曾经看到这样的文章,不过没太在乎,真正想用的时刻很难找到一个符合的,于是在网上搜索了半天终于找到对比符合的代码再加上自己的改正,以下:

  1. <%  
  2. Function GetPage(url)   
  3. '得到文件内容  
  4. dim Retrieval  
  5. Set Retrieval = CreateObject("Microsoft.XMLHTTP")   
  6. With Retrieval   
  7. .Open "Get", url, False ', "", ""   
  8. .Send   
  9. GetPage = BytesToBstr(.ResponseBody)  
  10. End With   
  11. Set Retrieval = Nothing   
  12. End Function  
  13.  
  14. Function BytesToBstr(body)  
  15. dim objstream  
  16. set objstream = Server.CreateObject("adodb.stream")  
  17. objstream.Type = 1 
  18. objstream.Mode =3 
  19. objstream.Open  
  20. objstream.Write body  
  21. objstream.Position = 0 
  22. objstream.Type = 2 
  23. objstream.Charset = "GB2312" 
  24. BytesToBstr = objstream.ReadText   
  25. objstream.Close  
  26. set objstream = nothing 
  27. End Function  
  28.  
  29. on error resume next  
  30. Url="http://www.sina.com.cn"'要读取的页面地址  
  31. response.write "开始更新首页..."  
  32. wstr = GetPage(Url)  
  33.  
  34. 'response.write(wstr)  
  35. Set fs=Server.CreateObject("Scripting.FileSystemObject")  
  36.  
  37. 'if not MyFile.FolderExists(server.MapPath("/html/")) then   
  38. 'MyFile.CreateFolder(server.MapPath("/html/"))'  
  39. 'end if  
  40.  
  41. '要存放的页面地址  
  42. dizhi=server.MapPath("index.htm")  
  43. If (fs.FileExists(dizhi)) Then  
  44. fs.DeleteFile(dizhi)  
  45. End If  
  46.  
  47. Set CrFi=fs.CreateTextFile(dizhi)  
  48. Crfi.Writeline(wstr)  
  49. set CrFi=nothing 
  50. set fs=nothing 
  51. response.write "...<font color=red>更新完成!</font>"  
  52. %> 
  53.  


代码算是最简单的,直接保存成一个asp文件便可,只要把URL(要转化的asp地址)和dizhi(要保存的html地址)设置好便可以了,普通这两个文件在同一个目录,才能保证图片大概CSS、js起作用.

但愿对那些正在探求asp->htm的朋友有效.
 


  以上是“asp页面转换成htm页面的办法[网站编程]”的内容,如果你对以上该文章内容感兴趣,你可以看看七道奇为您推荐以下文章:
  • asp页面转换成htm页面的办法
  • 动网论坛(DVBBS)Show.asp页面过滤不严招致跨站漏洞
  • 本文地址: 与您的QQ/BBS好友分享!
    • 好的评价 如果您觉得此文章好,就请您
        0%(0)
    • 差的评价 如果您觉得此文章差,就请您
        0%(0)

    文章评论评论内容只代表网友观点,与本站立场无关!

       评论摘要(共 0 条,得分 0 分,平均 0 分) 查看完整评论
    Copyright © 2020-2022 www.xiamiku.com. All Rights Reserved .