<%
if not Request.Form("NextLine")=" "then
set fs=CreateObject("Scripting.FileSystemObject")
set a=fs.OpenTextFile("c:/inetpub/wwwroot/8-7.txt",8,TRUE)
a.WriteLine(Request.Form("NextLine"))
a.Close
end if
%>
<html>
<head>
<title>一个简单使用的留言板</title>
</head>
<body scroll=auto bgcolor="#FAF0E6">
<p align="center">
<font size="6">
<strong>
留言板
</strong>
</font>
</p>
<p><hr>
<%
set fs=CreateObject("Scripting.FileSystemObject")
set a=fs.OpenTextFile("c:/inetpub/wwwroot/8-7.txt")
while not a.AtEndOfStream
Response.Write(a.ReadLine&" <br>")
wend
a.Close
%>
<hr>
</p>
<h4 align="center">
您的意见，是我们的宝贵财富，谢谢！
<p align="center"></p>
<h4>
<form method="post" action="8-9.asp">
<textarea cols=60 name=NextLine rows=5>
</textarea>
<input type=submit value="提 交">
</form>
</h4>
</body>
</html>
呵呵 这次没错了
[此贴子已经被作者于2006-3-3 18:56:11编辑过]
