读书人

关于静态有关问题!先谢了再说!

发布时间: 2012-02-12 17:16:33 作者: rapoo

关于静态问题!先谢了再说!!
以下是未生成静态时的代码:
<tr>
<td width= "79% ">
<div align= "justify ">
<span class= "high20 ">
<a href= "newsdisp.asp?id=( <%=rs( "id ")%> ) " target= "_blank ">
<% = Left(rs( "title "),20) %>
</a> </span> </div> </td>
</tr>
<%
rs.movenext
rs.close
set rs=nothing
%>


怎样利用下面的实例转换成静态的 ,我是初学者,帮个忙,谢谢各位了,最好说的详细点哦!!


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
  %>



[解决办法]
<a href= "$FileURL$target= "_blank "> 你生成文件的时候就用相应的路径替换FileURL
Left(rs( "title "),20)改写为$NewsTitle$,生成的时候用Left(rs( "title "),20)替换就得了!

读书人网 >ASP

热点推荐