谁帮我编一个VB程序？

来源：百度知道 编辑：UC知道 时间：2024/05/28 07:47:38
创建网页a.asp，用于输入留言内容，并提交到b.asp，在b.asp中将留言内容保存到文本文件info.txt, 再创建网页c.asp 用于显示留言内容。
实验要求：
(1) 文件文件info.txt与网页a.asp, b.asp, c.asp在同一目录。
(2) 如果文件info.txt不存在，则进行创建。
(3) 所有留言内容添加到info.txt中，不能对原有内容进行覆盖。

随便写写，去掉下面escape 和 unescape 也行，但我习惯用
只要支持fso就行，
但没工具调试，对错包涵了
还有，查找文件记不清是哪个了，用了个歪招 拦截错误

a.asp

<title>输入留言内容</title>
<form action="b.asp" metod="post" onsubmit="ly.value=escape(nr.value)">
<input type=hidden name="yz" value="<%=int(1000/day(date))%>">
<input type=hidden name="ly" id="ly">
<textarea id="nr"></textarea>
<input type=submit>
</form>

b.asp

<meta http-equiv=refresh content='5;url=c.asp'>
<title>保存到文本 5秒跳转</title>
<%
on error resume next
dim req,fs,f
req=Request("yz")
if int(req)<>int(1000/day(date)) then
Response.write "<script>history.back(1)</script>"
Response.end
end if
req=Request("ly")
rep=replace(rep,chr(34),"