提交表单，将数据写入一个文件代码：

<%

dim objFSO

dim objFile

Set objFSO = Server.CreateObject("Scripting.FileSystemObject")

Set objFile = objFSO.OpenTextFile(Server.MapPath("wenjian.htm"),8,true) '文件的路径

objFile.write "neirong" '将内容写到一个文件里

Set objFile = Nothing

Set objFSO = Nothing

%>

路径边上，数字8表示不覆盖，追加写入数据；

数字2表示覆盖写入；

数字1表示只读打开，不能写入。