不用模板只用ASP+FSO生成静态HTML页的一个方法

dn001 2008-02-15 10:23:57

FSO生成静态HTML文件的时候替换模板标签一直是一个很麻烦的问题，至少我是这么认为的，还要别外做一个模板，麻烦！，我今天看见有一个方法可以解决这个问题

如一个正常的index.asp页面，并且用ASP代码调出数据库中的内容，另建一个makehtml.asp的页面，加入一个textarea域，假设为name="body"，将index.asp在textarea里调出来，如：
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"> <html xmlns="http://www.w3.org/1999/xhtml"> <head> <meta http-equiv="Content-Type" content="text/html; charset=utf-8" /> <title>页面不存在!</title> <meta name="keywords" content="页面不存在,出错了" /> <meta name="description" content="抱歉，您所访问的页面不存在，该页面可能已被删除、更名或暂时不可用!您可以尝试访问其它链接。" /> <style type="text/css">  </style> <script> function numView(url){ var numSpan=document.getElementById("numspan"); var i=3; var interval=window.setInterval( function(){ (i>=1)?numSpan.innerHTML=i=i-1 :window.clearInterval(interval,goIndex(url)) }, 1000); } function goIndex(url){ this.location.href=url; } </script> <script> window.onload=function(){ numView("http://www.pc004.com/"); } </script> <script type="text/javascript">window.onerror = function(){return true}</script> </head> <body> <br><br><br><br><br><br> <table width="800" height="200" border="1" align="center" cellpadding="0" cellspacing="0"> <tr valign="top"> <td align="center" valign="middle"><table width="100%" height="100%" border="0" cellpadding="0" cellspacing="0"> <tr> <td align="center" valign="top"><span class="STYLE2"><br>您访问的页面无法找到</span> <p><span class="numColor STYLE3" id="numspan">3</span> <span class="STYLE8">秒后将自动跳转到导航页</span></p> <p class="STYLE8">请检查您输入的地址是否正确</p></td> <td width="30%" align="left" valign="middle"><img src="http://www.pc004.com/images/404.jpg" width="100" height="100" /></td> </tr> </table></td> </tr> </table> </body> </html> ，将这个textarea包含在表单中，在接收表单页用创建FSO对象，如下生成index.html文件！

<%
filename="../index.html"
if request("body")<>"" then
set fso = Server.CreateObject("scripting.FileSystemObject")
set fout = fso.CreateTextFile(server.mappath(""&filename&""))
fout.write request.form("body")
fout.close
set fout=nothing
set fso=nothing
end if
%>

这样index.html文件就生成了，连模板都用不着，只要将正常情况下使用的ASP文件读取到textarea里就可以了，目前尚未发现问题！当然前提是服务器要支持FSO。