看一看这个问题！我怎么改不了了呢？

我做一个小型的类似于论坛的程序，在浏览的时候，可以看到主题的内容，也可以看到回复的内容，但是我做的不知道是怎么搞的就是不能显示回复的内容，大家帮我看一下吧。我把代码贴上来！

<% Topic_Id = Request("Topic_Id")
if Topic_Id="" then %>
<SCRIPT LANGUAGE="JavaScript">

</SCRIPT>
<% end if %>

<%
set r=server.CreateObject("adodb.recordset")
s="select * from _Forum_Data where Topic_Id = "&Topic_Id
r.open s,conn,1,3
r("T_View_Count")=r("T_View_Count")+1
r.Update
r.close
set r=nothing

%>

<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>[互动论坛]</title>
<link href="../_Include/Style.css" rel="stylesheet" type="text/css">
</head>

<body>
<table width="600" border="0" align="center" cellpadding="4" cellspacing="2">

<%
set rs=server.createobject("adodb.recordset")
sql="select * from _Forum_data where Topic_Id = "& Topic_Id
With rs
      .Source = sql
      .ActiveConnection = Conn
      .CursorType = adOpenStatic
      .LockType = adLockReadOnly
      .PageSize = 1
      .Open
     End With

       %>
  <tr bgcolor="#D9F0EF">
    <td width="110"> </td>
    <td width="422"><%=rs("T_Subject")%></td>
    <td width="36"><img src="<%=rs("T_Emot")%>" width="0" height="0"></td>

  </tr>
  <tr bgcolor="#D9F0EF">
    <td height="81" valign="top">作者：<%=rs("T_Author")%><br>
      点击量：<%=rs("T_View_Count")%><br>
      发表日期：<%=formatdatetime(rs("T_date"),2)%><br>
      发表时间：<br>
      回复数： <%=rs("T_Reply_Count")%></td>
    <td valign="top">
      <% =rs("T_Message")%></td>
    <td> </td>
  </tr>
</table>
<table width="600" border="0" align="center" cellpadding="4" cellspacing="2">
  <%
Topic = Request("Topic_Id")
set rs1=server.createobject("adodb.recordset")
sql1="select * from _Forum_Reply where Topic_Id = 'Topic' order by Reply_Id desc"
With rs1
     .Source = sql1
      .ActiveConnection = Conn
      .CursorType = adOpenStatic
      .LockType = adLockReadOnly
      .PageSize = 18
      .Open
    End With
if not rs1.EOF then
        rs1.AbsolutePage = page
       While Not rs1.EOF  and rowCount1 < rs1.PageSize  %>
  <tr bgcolor="#FAFAFA">
    <td width="18%" align="center"> </td>
    <td width="56%" align="left"><%=rs1("R_Title")%></td>
    <td width="26%" align="center"><img src="<%=rs1("R_Emot")%>" width="13" height="15"></td>
  </tr>
  <%
   rowCount1 = rowCount1 + 1
rs1.MoveNext
          Wend
  else %>
  <% end if %>
  <tr bgcolor="#FAFAFA">
    <td valign="top">作者：<%=rs1("R_Author")%><br>
      发表日期：<%=formatdatetime(rs1("R_date"),2)%></td>
    <td colspan="2" align="left" valign="top"><%=rs1("R_Message")%></td>
  </tr>
</table>
</body>
</html>

代码如上，请问各位高手以及好心人，怎么改呢？第一个<table>里面的内容可以显示，就是第二个<table>里的东西出问题了，提示是打不开那个表，说发生冲突

8 个解决方案

#1

我的表设计结构是这样的，_Forum_Data为主题表，_Forum_Reply为回复表。
以Topic_Id做为联接表与表之间的关系。
顺便更问一下，怎么统计回复次数呢？

#2

sql="select * from _Forum_data where Topic_Id = "& Topic_Id

sql1="select * from _Forum_Reply where Topic_Id = 'Topic' order by Reply_Id
你的这两个有问题了到底是怎么错法在这里我还是不知道你的联系到底是怎么样的

#3

搜索回帖时：
sql1="select * from _Forum_Reply where Topic_Id = " & Topic & " order by Reply_Id desc"

“Topic”是变量，还是要细心一点啊！：）

#4

哎~~麻烦你把错误的代码那段贴出来，还有错误说明，这样大家都方便嘛~~~不是不想帮你，而是实在看不下去了，如果冲突，多半是没有查到数据吧~~
sql1="select * from _Forum_Reply where Topic_Id = 'Topic' order by Reply_Id desc"
===========>>>>这里也有点问题改

sql1="select * from _Forum_Reply where Topic_Id = '"&Topic&"' order by Reply_Id desc"

#5

<% Topic_Id = Request("Topic_Id")
if Topic_Id="" then %>
<SCRIPT LANGUAGE="JavaScript">

</SCRIPT>
<% end if %>

<%
set r=server.CreateObject("adodb.recordset")
s="select * from _Forum_Data where Topic_Id = "&Topic_Id
r.open s,conn,1,3
r("T_View_Count")=r("T_View_Count")+1
r.Update
r.close
set r=nothing

%>

<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>[互动论坛]</title>
<link href="../_Include/Style.css" rel="stylesheet" type="text/css">
</head>

<body>
<table width="600" border="0" align="center" cellpadding="4" cellspacing="2">

<%
set rs=server.createobject("adodb.recordset")
sql="select * from _Forum_data where Topic_Id = "& Topic_Id
With rs
      .Source = sql
      .ActiveConnection = Conn
      .CursorType = adOpenStatic
      .LockType = adLockReadOnly
      .PageSize = 1
      .Open
     End With

       %>
  <tr bgcolor="#D9F0EF">
    <td width="110"> </td>
    <td width="422"><%=rs("T_Subject")%></td>
    <td width="36"><img src="<%=rs("T_Emot")%>" width="0" height="0"></td>

  </tr>
  <tr bgcolor="#D9F0EF">
    <td height="81" valign="top">作者：<%=rs("T_Author")%><br>
      点击量：<%=rs("T_View_Count")%><br>
      发表日期：<%=formatdatetime(rs("T_date"),2)%><br>
      发表时间：<br>
      回复数： <%=rs("T_Reply_Count")%></td>
    <td valign="top">
      <% =rs("T_Message")%></td>
    <td> </td>
  </tr>
</table>
<table width="600" border="0" align="center" cellpadding="4" cellspacing="2">
  <%
set rs1=server.createobject("adodb.recordset")
sql1="select * from _Forum_Reply where Topic_Id ="& Topic_Id &" order by Reply_Id desc"
With rs1
     .Source = sql1
      .ActiveConnection = Conn
      .CursorType = adOpenStatic
      .LockType = adLockReadOnly
      .PageSize = 18
      .Open
    End With
if not rs1.EOF then
       While Not rs1.EOF  and rowCount1 < rs1.PageSize  %>
  <tr bgcolor="#FAFAFA">
    <td width="18%" align="center"> </td>
    <td width="56%" align="left"><%=rs1("R_Title")%></td>
    <td width="26%" align="center"><img src="<%=rs1("R_Emot")%>" width="13" height="15"></td>
  </tr>
  <%
   rowCount1 = rowCount1 + 1
rs1.MoveNext
          Wend
  else %>
  <% end if %>
  <tr bgcolor="#FAFAFA">
    <td valign="top">作者：<%=rs1("R_Author")%><br>
      发表日期：<%=formatdatetime(rs1("R_date"),2)%></td>
    <td colspan="2" align="left" valign="top"><%=rs1("R_Message")%></td>
  </tr>
</table>
</body>
</html>
这是全部的代码，也是更改后的代码。

#6

页面错误如下提示：

标题：如何购买瑞嘉产品？
作者：***
点击量：9
发表日期：2003-7-27
发表时间：
回复数： 0
内容：我是湖南岳阳，没有代理商，如何购买瑞嘉产品？湖南什么时候有国标王的促销活动？且如何确认对方的代理身份？请发邮件至电子邮箱:wujunning@21cn.com 谢谢！
===================================以下是查找回复贴子的错误提示

作者：
ADODB.Field 错误 '80020009'

BOF 或 EOF 中有一个是“真”，或者当前的记录已被删除，所需的操作要求一个当前的记录。

/_Forum/_Forum_Views.asp，行 0

===============================我的数据库中的两个表之间的联系是以Topic_Id做为联系的。我的意思是主题中的表的Topic_Id为自动编号，回复的时候把这个编号写入到回复表的Topic_Id字段内，之后根据这个Topic_Id来识别，只要回复表中的Topic_Id字段的值等于主题表中的Topic_Id字段，就要全部显示出来，如果没有的话，就什么也不显示。

#7

好心人帮我呀！分大大的有呀！

#8

<%
   rowCount1 = rowCount1 + 1
rs1.MoveNext
          Wend
  else %>
  <% end if %>
这段代码放在倒数第四行吧！

#1