Question

如何把由表单提交的表单项提交后存为html文件

Answer 1

这个要用FSO比较简单
首先建立一个TXT模版页面，在中间需要修改动态数据的地方插入特殊标志符！
设置文件名命名的规则，然后用FSO创建文件，替换特殊字符。
以下是例子，文件名规则未设置！
＜%
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
%>

可以的话给点分