<!--#include file="conn.asp"-->
<%
Call openDB()
sql="select tittype from bbstit"
rs.open sql,conn,1,1
If Not rs.eof Then
While Not rs.eof
%>

<table width="760" height="80" align="center" cellpadding="0" cellspacing="1" bgcolor="#CCCCCC">
<tr>
<td width="109" bgcolor="#FFFFFF">版块分类：</td>
<td width="540" bgcolor="#FFFFFF"><%=rs("tittype")%></td>
<td width="103" bgcolor="#FFFFFF">时间</td>
</tr>
<%
set rs1=Server.CreateObject("adodb.recordset")
sql1="select * from bbstype"
rs1.open sql1,conn,1,1
if not rs1.eof then
while not rs1.eof
%>
<tr>
<td bgcolor="#FFFFFF">版块：</td>
<td bgcolor="#FFFFFF"><%=rs1("bbsname")%></td><!--此处为bbstype表内论坛版块名称-->
<td bgcolor="#FFFFFF">文章</td>
</tr>
<tr>
<td bgcolor="#FFFFFF">版主：</td>
<td bgcolor="#FFFFFF">&nbsp;</td>
<td bgcolor="#FFFFFF">&nbsp;</td>
</tr>
<%
rs1.movenext
wend
rs1.close
set rs1=nothing
end if
%>
</table>
<br>
<%

rs.movenext
Wend
Call closeDB()
End If
%>

[此贴子已经被作者于2007-9-15 17:59:08编辑过]

都是独立的

11楼贴给你的不行吗?

我修改了一下 因为查询条件是大区表内的ID 等于版块表内的TID
你的少了一个while我也加上了 不加不好使 加上后也是提示错误 但是不是缺少while语句了
错误提示:
错误类型：
ADODB.Recordset (0x800A0CC1)
在对应所需名称或序数的集合中，未找到项目。
/bbs/bbsindex.asp, 第 29 行

<!--#include file="conn.asp"-->
<!--#include file="../top.asp"-->
<link href="../images/css.css" rel="stylesheet" type="text/css" />
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="0" background="../images/top_001_r1_c9_r4_c2.jpg">
<tr>
<td valign="top"><table width="892" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td width="28" valign="top" bgcolor="#FFFFFF"><img src="../images/top_001_r1_c9_r3_c3.jpg" width="28" height="662"></td>
<td width="840" valign="top" bgcolor="#FFFFFF"><div align="center">
<%
Call openDB()
sql="select tittype from bbstit"
rs.open sql,conn,1,1
If Not rs.eof Then
While Not rs.eof
%>

<table width="760" height="80" align="center" cellpadding="0" cellspacing="1" bgcolor="#CCCCCC">
<tr>
<td width="109" bgcolor="#FFFFFF">版块分类：</td>
<td width="540" bgcolor="#FFFFFF"><%=rs("tittype")%></td>
<td width="103" bgcolor="#FFFFFF">时间</td>
</tr>
<tr>
<td bgcolor="#FFFFFF">版块：</td>
<td bgcolor="#FFFFFF">
<%
set rs1=Server.CreateObject("adodb.recordset")
sql1="select * from bbstype where tid='"&rs("id")&"'"
rs1.open sql,conn,1,1
if not rs1.eof Then
While Not rs1.eof
%>
<%=rs("bbsname")%>
</td>
<td bgcolor="#FFFFFF">文章</td>
</tr>
<tr>
<td bgcolor="#FFFFFF">版主：</td>
<td bgcolor="#FFFFFF">&nbsp;</td>
<td bgcolor="#FFFFFF">&nbsp;</td>
</tr>
<%
rs1.movenext
wend
rs1.close
set rs1=nothing
end if
%>
</table>
<%

rs.movenext
Wend
Call closeDB()
End If
%>

</div></td>
<td width="24" valign="top" bgcolor="#FFFFFF"><div align="right"><img src="../images/top_001_r1_c9_r3_c6.jpg" width="23" height="662"></div></td>
</tr>
</table></td>
</tr>
</table>
<!--#include file="../foot.html"-->

数据库中分类的大区和所有版块应该是有关系的吧？数据库关于这个操作的两个表都有哪些字段？

sorry,是我的错误,29行是哪一行呀?
我在11楼做调整

回楼主大人 大区表内的ID=版块表内的TID 需要调用的标题是大区表(bbstit)标题字段为(tittype)版块表(bbstype)标题字段(bbsname)

楼主的意思是想做想这个论坛的样子大分类里有各个版块的分类？