以下虚线框内为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这个文件，里面的内容就是你刚才填写的。