这两天做了个论坛,但到显示帖子这个字面出了问题,问题是点击连接后不显示记录．代码如下:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%option explicit%>
<%
if session("username")="" then
response.Write("<table>")
response.Write("<tr>")
response.Write("<td>")
response.Write("<a href=bbs.html>请登录后再访问本页</a>")
response.Write("</td>")
response.Write("</tr>")
response.Write("</table>")
response.end()
end if
%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title></title>
</head>
<%
dim Sid,Stitle
Sid=trim(request.querystring("Sid"))
Stitle=trim(request.querystring("Stitle"))
%>
<!--#include file="public/readconn.asp"-->
<body>
<table width="80%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td width="18%"> </td>
<td colspan="2"><div align="center"><a href="goback.asp">回帖</a></div>
<div align="center"></div></td>
</tr>
<tr>
<%
dim sql,rs
sql="select * from tbShowtopic where Stitle='"&Stitle&"' and Sid=" & Sid
set rs=server.create
object("adodb.recordset")
set rs=rconn.execute(sql)
if rs.eof then
response.Write("非法操作或该记录不存在")
end if
%>
<td>标题</td>
<td width="27%"><%=rs("Stitle")%></td>
<td width="45%">发表时间</td>
<td width="10%"><%=rs("Sdate")%></td>
</tr>
<tr>
<td>发表者</td>
<td><%=rs("Sowner")%></td>
<td colspan="2"><%=rs("Scontent")%></td>
</tr>
<tr>
<td> </td>
<td colspan="2"> </td>
</tr>
</table>
</body>
</html>
--------------------------
错误如下所示:
技术信息（用于支持人员）
错误类型：
ADODB.Field (0x80020009)
BOF 或 EOF 中有一个是“真”，或者当前的记录已被删除，所需的操作要求一个当前的记录。
/w12/showcontent.asp
