最简单的ASP生成静态文件代码(带静态生成模版)

先建立一个静态模版文件template.htm,内容如下:
《html>
《title>静态输出测试!《/title>  
《body>
$title$《br/>
$Content$  
《/body>  
《/html>


生成代码文件test.asp:
《%  
If Request.Form("Content")《>"" Then
Dim fso,htmlwrite  
Dim strTitle,strContent,strOut
strTitle=Request.Form("Title")
strContent=Request.Form("Content")
'// 创建文件系统对象  
Set fso=Server.CreateObject("Scripting.FileSystemObject")  
'// 打开网页模板文件,读取模板内容  
Set htmlwrite=fso.OpenTextFile(Server.MapPath("Template.htm"))  
strOut=htmlwrite.ReadAll  
htmlwrite.close  

'// 用真实内容替换模板中的标记  
strOut=Replace(strOut,"$title$",strTitle)  
strOut=Replace(strOut,"$Content$",strContent)  
'// 创建要生成的静态页  
Set htmlwrite=fso.CreateTextFile(Server.MapPath("test.htm"),true)  
'// 写入网页内容  
htmlwrite.WriteLine strOut  
htmlwrite.close  
Response.Write "生成静态页成功!"  
'// 释放文件系统对象  
set htmlwrite=Nothing  
set fso=Nothing  
end if
%>
《form name="form1" method="post" action="">
《input name="Title" id="Title" size=30>
《br>
《br>
《textarea name="Content" cols="50" rows="8">《/textarea>
《br>
《br>
《input type="submit" name="Submit" value="生成HTML页">
《/form>


用ctrl+H功能将所有的《替换成< .

[本日志由 jinbenli 于 2011-10-26 01:38 PM 更新]
上一篇: 最简单的ASP生成静态文件代码
下一篇: 最简单的ASP连接数据库代码
文章来自: 本站原创
引用通告: 查看所有引用 | 我要引用此文章
Tags: asp代码
相关日志:
评论: 0 | 引用: 0 | 查看次数: 243
发表评论
昵 称:
密 码: 游客发言不需要密码.
邮 箱: 邮件地址支持Gravatar头像,邮箱地址不会公开.
网 址: 输入网址便于回访.
内 容:
验证码:
选 项:
虽然发表评论不用注册,但是为了保护您的发言权,建议您注册帐号.
字数限制 1000 字 | UBB代码 关闭 | [img]标签 关闭