新微赢技术网

标题: 为什么这个留言簿只能显示一条留言 [打印本页]

作者: 勇敢的心 时间: 2010-1-17 23:50
标题: 为什么这个留言簿只能显示一条留言
近日在学习一个留言簿程序的时候在生成一个book.txt文件后为什么在这个文件中只能有一条留言，后面的留言都将会被一一覆盖反正就只有一条留言
book. asp的代码如下：
<%@ Language=VBScript %>
<%
name=Request.Form ("text1")
email=Request.Form ("text2")
subject=Request.Form ("text3")
memo=Request.Form ("textarea1")
if name="" or email="" or subject="" or memo="" then
Response.Write "输入框不能是空白"
Response.End
end if
'第一行显示内容
line1="留言人:"&name
line1=line1&string(5," ")
email="<a href=mailt"&email&">"&email&"</a>"
line1=line1&"email:"&email&"<br>"
'第二行显示内容
line2="主题:"&subject&"<br>"
'第三行
memo=replace(memo,vbcrlf,"<br>")
line3="<table border=0 bgcolor=#ffffff><tr><td>"
line3=line3&memo&"</td></tr></table>"
'第四行为留言时间
line4="时间:"&now()
on error resume next
set fso=server.CreateObject ("scripting.filesystemobject")
Application.Lock
filepath=server.MapPath ("book.txt")
oldfilepath=server.MapPath ("bookold.txt")
fso.MoveFile filepath,oldfilepath
set fin=fso.OpenTextFile (oldfilepath,true)
set fout=fso.CreateTextFile (filepath)
fout.writeline line1
fout.writeline line2
fout.writeline line3
fout.writeline line4
fout.writeline fin.readall
fin.close
fso.DeleteFile oldfilepath,true
Application.UnLock
Response.Redirect "showbook.asp"
%>

作者: 风化雪夜 时间: 2010-1-17 23:50
if fso.fileexists(oldfilepath)=false then
fso.MoveFile filepath,oldfilepath
end if
set fin=fso.OpenTextFile(oldfilepath)' 在这在一加上true就会出错，郁闷
set fout=fso.CreateTextFile(filepath)
fout.writeline line1
fout.writeline line2
fout.writeline line3
fout.writeline line4
fout.writeline fin.readall
fin.close
fso.DeleteFile oldfilepath,true
我把下面的改成这样，在我这边测试成功，

欢迎光临新微赢技术网 (http://bbs.weiying.cn/)