录入的内容,自动生成html文件.
<%
filename=year(now)&month(now)&day(now)&minute(now)&.htm ’根据当前时间生成文件名
if request(body)<> then
set objfso = Server.CreateObject(Scripting.FileSystemObject) ’创建一个fso实例
set htmout = objfso.CreateTextFile(server.mappath(&filename&))
htmout.write <html><head><title>
htmout.write request.form(title)
htmout.write </title></head><body>七彩新闻:
htmout.write request.form(title)
htmout.write <br>内容(body):
htmout.write request.form(body)
htmout.write </body></html>
htmout.close
set htmout=nothing
set objfso=nothing
end if
%>
<form name=form1 method=post action=>
<table width=300 border=0 align=center>
<tr>
<td align=right>标题:</td>
<td colspan=2><input name=title size=18></td>
</tr>
<tr>
<td align=right>内容:</td>
<td colspan=2><textarea name=body></textarea></td>
</tr>
<tr>
<td align=right> </td>
<td><input type=submit name=Submit value=生成></td>
<td><a href=<%=filename%> target=_blank>查看输出的文件</a></td>
</tr>
</table>
<br>
<br>
<br>
</form>