Question

ASP按文章分类显示

数据库date.mdb中有两张表
class表中有：字段 id class （id是自动编号，class是分类类别）
book表中有：字段id classid title （id是自动编号，classid是分类类别class表中对应的id）
需要求助的是怎样才可以实现显示文章标题同时显示文章的类别

效果希望如下：

[类别1] title1
[类别3] title2
导航栏显示：类别1 类别2 类别3
点击类别名称能显示所有同类别

不是类别后面的数字变化，而是指根据classid 的值显示类别名称
例如：class表中有：字段 id class
1 意见建议
2 在线求助
当book表中字段classid 的值是1时，显示是意见建议才可以，是2时，显示是在线求助才可以

Answer 1

那如果没给classid赋值的话，是不是显示全部信息？还是提示信息不存在。

<%
'======导航部分======
Set RsClass=Server.CreateObject("ADODB.Recordset")
Sql="Select * From class Where ID<>0"
Sql=Sql&" Order By ID Desc"
RsClass.Open Sql,Conn,1,1
i=1
Do While Not RsClass.Eof And Not RsClass.Bof

Response.Write "<a href=""?classid="&RsClass("id")&""">"&RsClass("class")&"</a>"
i=i+1
RsClass.Movenext
Loop
RsClass.Close
Set RsClass=Nothing

'======文章部分======
classid=Clng(Request.form("classid"))
Set Rs=Server.CreateObject("ADODB.Recordset")
Sql="Select * From book Where ID<>0"
if classid<>"" then
Sql=Sql&" And classid="&classid
end if
Sql=Sql&" Order By ID Desc"
Rs.Open Sql,Conn,1,1
Do While Not Rs.Eof And Not Rs.Bof
Set RsClass=Server.CreateObject("ADODB.Recordset")
Sql="Select * From class Where id="&Rs("classid")
Sql=Sql&" Order By ID Desc"
RsClass.Open Sql,Conn,1,1
if Not RsClass.Eof And Not RsClass.Bof
classname=RsClass("class")
else
classname="分类错误"
end if
Response.Write "["&classname&"]"&Rs("title")
Response.Write "<br>"
Rs.Movenext
Loop
Rs.Close
Set Rs=Nothing

%>

Answer 2

明白你的意思，把“火舞娇洋”文章部分的sql修改成：
sql="select id,title,(select class from class where class.id=book.id)as lb from book where id<>0"。其中lb使用的时候和id，title一样使用。