作业帮 > ASP > 教育资讯

ASP教程:ASP生成静态Html文件的技术总结

来源:学生作业帮助网 编辑:作业帮 时间:2024/11/30 15:21:34 ASP
ASP教程:ASP生成静态Html文件的技术总结
ASP教程:ASP生成静态Html文件的技术总结ASP
【无忧考网-ASP教程:ASP生成静态Html文件的技术总结】:
把html代码写入到文件中然后生成.html格式的文件 
        <% 
  filename="test.htm" 
  if request("body")<>"" then 
  set fso = Server.CreateObject("Scripting.FileSystemObject") 
  set htmlwrite = fso.CreateTextFile(server.mappath(""filename"")) 
  htmlwrite.write "" request.form("title") "" 
  htmlwrite.write "输出Title内容: " request.form("title") "
输出Body内容:" request.form("body") "" 
  htmlwrite.close 
  set fout=nothing 
  set fso=nothing 
  end if 
  %> 
  
 
   
  
 
   
  
 
  
 
   
  

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


  template.htm ’ //模板文件  

    
    
  $title$ by jzxue  
    
    
  $body$  
    
  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  
  %>

ASP