以下虚线框内为mk.asp文件的具体代码:
--------------------------------------------------------------------------------
- <%
- filename="test.htm"
- if request("body")<>"" then
- set fso = Server.CreateObject("Scripting.FileSystemObject")
- set fout = fso.CreateTextFile(server.mappath(""&filename&""))
- fout.write "标题(title):" & request.form("title") & "<br>"
- fout.write "内容(body):" & request.form("body")
- fout.close
- set fout=nothing
- set fso=nothing
- end if
- %>
- <form name="form1" method="post" action="">
- <input name="title" size=18><br>
- <textarea name="body"></textarea>
- <br>
- <br>
- <input type="submit" name="Submit" value="生成">
- </form>
--------------------------------------------------------------------------------
然后在浏览器输入mk.asp这个页面,填写完毕后,就会生成test.htm这个文件,里面的内容就是你刚才填写的。