代码是这样的:
<!--#include file=conn.asp-->
<%
Response.buffer=true
Response.Clear()
Response.Expires=0
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>读留言板</title>
</head>
<body>
<p align="center"><font size="5">查看留言板</font></p>
<%
if not Request.QueryString("id"
="" then
strdeletesql="select*from bbs where id="&Request.QueryString("id"
Set rsdelete=Server.CreateObject("ADODB.Recordset"
rsdelete.open strdeletesql,conn,1,3
Set rsdelete=nothing
Response.redirect"readmessage.asp"
end if
%>
<%
Dim strsql,strdsn
strsql="select*from bbs where toname='"&Session("name"
&"'"
set rs=server.createobject("adodb.recordset"
rs.open strsql,conn,1,3
if rs.recordcount = 0 then response.write("暂无留言！<br/>"
else
if rs.recordcount > 0 then
Response.Write"<center>你共有"&rs.recordcount&"条留言"
end if
end if
%>
<%
dim i
Response.Write"<table border=1 width=100%/><tr>"
for i=1 to rs.recordcount
Response.Write"<td width=27%/>"&rs("date"
&" "&rs("time"
&"</td>"
Response.Write"<td width=18%/>"&rs("name"
&"</td>"
Response.Write"<td width=20%/>"&rs("email"
&"</td>"
Response.Write"<td width=15%/><a href=return.asp?toname="&rs("name"
Response.Write">回复</a>"&" "
Response.Write"<a href=readmessage.asp?id="&rs("id"
&">删除</a></td></tr>"
Response.Write"<tr><td colspan=5>"&rs("lyb"
&"</td></tr>"
rs.movenext
next
Response.Write"</table>"
rs.close
set rs=nothing
%>
</body>
</html>
请问那里不对~每次提交表单后表里面有了信息但是就是显示时总是说"本页有0条留言"
那位高手可以帮我解决啊!
