把下边的代码保存为ASP文件格式：
<% @language="vbscript" %>
<%
set fs=server.createobject("scripting.filesystemobject")
set a=fs.opentextfile("lyb.txt",8,true)
a.writeline(date()&" "&time()&" :"&request.form("tl"))
a.close
%>
<html>
<head>
<tiltle>给我留言</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
</head>
<body>
<p> </p>
<p align="center"><font color="#0000FF" size="+4" face="华文彩云">真情留言</font></p>
<hr>
<%
set fs=server.createobject("scripting.filesystemobject")
set a=fs.opentextfile("lyb.txt")
while not a.atendofstream
response.write(a.readline&"<p>")
wend
a.close
%>
<hr>
<form name="form1" method="post" action="index.asp">
<div align="center">
<p>
<textarea name="tl" cols="60" rows="5"></textarea>
</p>
<p align="center"><font size="4" face="华文行楷">请签写您的意见，我们将从真对待，谢谢！</font>
<input type="submit" name="Submit" value="提交">
</p>
</div>
</form>
<p> </p>
</body>
</html>
2009-09-05 23:49
