注册 登录  
 加关注
   显示下一条  |  关闭
温馨提示!由于新浪微博认证机制调整,您的新浪微博帐号绑定已过期,请重新绑定!立即重新绑定新浪微博》  |  关闭

樱之花

叶散的时候,你明白欢聚;花谢的时候,你明白青春.

 
 
 

日志

 
 
关于我

分类中“我的实验室”是我在日常工作中的一些知识总结,有些写的比较匆忙,可能大家在阅读时会产生困扰,后期有时间我会重新整理编辑,谢谢大家的到访,您们的支持是我前进的动力!

网易考拉推荐

用ASP生成静态Html文件  

2008-08-14 16:34:53|  分类: ASP开发 |  标签: |举报 |字号 订阅

  下载LOFTER 我的照片书  |

网页生成静态Html文件有许多好处,比如生成html网页有利于被搜索引擎收录,不仅被收录的快还收录的全。前台脱离了数据访问,减轻对数据库访问的压力,加快网页打开速度。



  1.下面这个例子直接利用FSO把html代码写入到文件中然后生成.html格式的文件


          <%
  filename="test.htm"
  if request("body")<>"" then
  set fso = Server.CreateObject("Scripting.FileSystemObject")
  set htmlwrite = fso.CreateTextFile(server.mappath(""&filename&""))
  htmlwrite.write "<html><head><title>" & request.form("title") & "</title></head>"
  htmlwrite.write "<body>输出Title内容: " & request.form("title") & "<br /> 输出Body内容:" & request.form("body")& "</body></html>"
  htmlwrite.close
  set fout=nothing
  set fso=nothing
  end if
  %>
  <form name="form" method="post" action="">
  <input name="title" value="Title" size=26>
  <br>
  <textarea name="body">Body</textarea>
  <br>
  <br>
  <input type="submit" name="Submit" value="生成html">
  </form>

     2.但是按照上面的方法生成html文件非常不方便,第二种方法就是利用模板技术,将模板中特殊代码的值替换为从表单或是数据库字段中接受过来的值,完成模板功能;将最终替换过的所有模板代码生成HTML文件.这种技术采用得比较多,大部分的CMS都是使用这类方法.


  template.htm ’ //模板文件  
  <html>  
  <head>  
  <title>$title$ by aspid.cn</title>  
  </head>  
  <body>  
  $body$  
  </body>  
  </html>TestTemplate.asp ’// 生成Html  
  <%  
  Dim fso,htmlwrite
  Dim strTitle,strContent,strOut  
  ’// 创建文件系统对象  
  Set fso=Server.CreateObject("Scripting.FileSystemObject")  
  ’// 打开网页模板文件,读取模板内容  
  Set htmlwrite=fso.OpenTextFile(Server.MapPath("Template.htm"))  
  strOut=f.ReadAll  
  htmlwrite.close  

  strTitle="生成的网页标题"  
  strContent="生成的网页内容"  

  ’// 用真实内容替换模板中的标记  
  strOut=Replace(strOut,"$title$",strTitle)  
  strOut=Replace(strOut,"$body$",strContent)  

  ’// 创建要生成的静态页  
  Set htmlwrite=fso.CreateTextFile(Server.MapPath("test.htm"),true)  

  ’// 写入网页内容  
  htmlwrite.WriteLine strOut  
  htmlwrite.close  

  Response.Write "生成静态页成功!"  

  ’// 释放文件系统对象  
  set htmlwrite=Nothing  
  set fso=Nothing  
  %>

     3.第三种方法就是用XMLHTTP获取动态页生成的HTML内容,再用ADODB.Stream或者Scripting.FileSystemObject保存成html文件。这句话是在蓝色理想上看到的,对XMLHTTP吟清还不熟悉正在找资料了解.找到一段XMLHTTP生成Html的代码参考一下.

  <%
  ’常用函数
  ’1、输入url目标网页地址,返回值getHTTPPage是目标网页的html代码
  function getHTTPPage(url)
  dim Http
set Http=server.createobject("MSXML2.XMLHTTP")
  Http.open "GET",url,false
  Http.send()
  if Http.readystate<>4 then  
  exit function
  end if
  getHTTPPage=bytesToBSTR(Http.responseBody,"GB2312")
  set http=nothing
  if err.number<>0 then err.Clear  
  end function’ 2、转换乱玛,直接用xmlhttp调用有中文字符的网页得到的将是乱玛,可以通过adodb.stream组件进行转换
  Function BytesToBstr(body,Cset)
  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 = Cset
  BytesToBstr = objstream.ReadText  
  objstream.Close
  set objstream = nothing
  End Function
  

  txtURL=server.MapPath("../index.asp")

  sText = getHTTPPage(txtURL)  

  Set FileObject=Server.CreateObject("Scripting.FileSystemObject")  
  filename="../index.htm"
  Set openFile=FileObject.OpenTextfile(server.mapPath(filename),2,true) ’true为不存在自行建立
  openFile.writeline(sText)
  Set OpenFile=nothing

  %>
  <script>
  alert("静态网页生成完毕");
  </script>

  评论这张
 
阅读(397)| 评论(0)
推荐 转载

历史上的今天

在LOFTER的更多文章

评论

<#--最新日志,群博日志--> <#--推荐日志--> <#--引用记录--> <#--博主推荐--> <#--随机阅读--> <#--首页推荐--> <#--历史上的今天--> <#--被推荐日志--> <#--上一篇,下一篇--> <#-- 热度 --> <#-- 网易新闻广告 --> <#--右边模块结构--> <#--评论模块结构--> <#--引用模块结构--> <#--博主发起的投票-->
 
 
 
 
 
 
 
 
 
 
 
 
 
 

页脚

网易公司版权所有 ©1997-2017