ASP开发之生成静态HTML文件的方法比较

作者:控件中国网   出处:控件中国网   2015-07-10 10:46:41   阅读:4

本文介绍的是在ASP开发网站中,生成态HTML文件的方法比较。希望对大家有帮助,一起来看吧!

GTP.NET - 甘特图控件 —正版、购买、下载、价格、销售、代理、授权、技术支持尽在控件中国网

在ASP中,将动态页面转换生成静态Html文件有许多好处,比如生成html网页有利于被搜索引擎收录(特别是对接受动态参数的页面)。前台访问时,脱离了数据访问,减轻对数据库访问的压力,加快网页打开速度。


 

当然,凡事有利必有弊,生成HTML页面无形中也耗费大量的磁盘空间以存放这些静态文件,在编辑页面过程中除读写数据库外,也要读写服务器磁盘,页面样式的改动必须重新生成全部HTML文件,等等。


 

像很多搜索引擎,都可以提交网站的页面地址列表,动态文件的收录问题已经不算是个问题了(如google sitemap)。得失就要自己衡量把握了,但无论如何,们还是要懂得如何操作的。这里就引用一下别人的文章说明几种常见的生成思路,供大家参考参考。


 

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


 

这是最原始的,优点是简单,缺点是页面的修改不方便,一般用到的地方是利用它生成整站参数文件。(通常网站如标题,名称等配置保存在数据库,将它生成config.asp保存这些变量调用,避免频繁访问数据库)


 

以下为引用的内容:


 

 


 

<%   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 webjx.com</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生成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组件进行转换


 

 %  nction 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( 静态网页生成完毕 );   history.back();   </script  


 

 


 

小结,这三种方式是比较常用的生成HTML文件方法,个比较喜欢使用第三种方式,因为页面改动时非常方便,就算动态页改动多大都好,只要重新用XMLHTTP读取生成一次即可。


 

希望通过本文的介绍,能带来帮助。

GTP.NET - 甘特图控件 —正版、购买、下载、价格、销售、代理、授权、技术支持尽在控件中国网

Copyright© 2006-2015 ComponentCN.com all rights reserved.重庆磐岩科技有限公司(控件中国网) 版权所有 渝ICP备12000264号 法律顾问:元炳律师事务所
客服软件
live chat