Question

ASP文章分类问题

数据库中有两张表
class表中有：字段 id class （id是自动编号，class是分类类别）
1 意见建议
2 在线求助
3 技术交流
book表中有：字段id classid title（id是自动编号，classid是数字）
1 3 标题
2 1 试题
3 2 产品

需要求助的是怎样才可以实现显示文章标题同时显示文章的类别

效果希望如下：

[技术交流] 标题
[意见建议] 试题
[在线求助] 产品
问题补充：导航栏显示：意见建议 在线求助 技术交流
点击类别名称能显示所有同类别文章

当book表中字段classid 的值是1时，显示是意见建议，是2时，显示是在线求助才 是3 显示技术交流

Answer 1

导航栏：
---------------------------------------------------------
<%
Set Dhrs=conn.Execute("SELECT * FROM class ",,adCmdText)
If Dhrs.Bof And Dhrs.Eof Then
Response.Write("没有记录")
Else
Do While Not Dhrs.Eof
Response.Write("<a href='wenzhang.asp?id="&Dhrs("id")&"' target='_self'>"&Dhrs("title")&"</a>")
Dhrs.MoveNext()
Loop
End If
Dhrs.Close()
Set Dhrs=Nothing
%>
-------------------------------------------------------------
文章列表：
-------------------------------------------------------------
<%
Dim aid,asql
aid=Request.QeryString("id")
If IsNumeric(aid) Then
Response.Write("参数类型错误")
Response.End
End If

asql="SELECT id,classid,title,(SELECT class FROM class WHERE id=classid) as Lb FROM book where classid="&aid
Set atrs=conn.Execute(asql,,adCmdText)
If atrs.Bof And atrs.Eof Then
Response.Write("无记录")
Else
Do While Not atrs.Eof
Response.Write("<a href='showwenzhang.asp?id="&atrs("id")&"' target='_self'>["&atrs("Lb")&"]"&atrs("title")&"</a>")
Loop
End If
atrs.Close()
Set atrs=Nothing
%>

当然咯，文章导航栏需要你自己美化一下。祝你成功\(^o^)/~

Answer 2

读出列表页book表
Set rs=Server.CreateObject("Adodb.Recordset")
sql="Select * from book"
rs.open sql,conn,1,1
以下是分页之类的。
读出当前classid
在
Set rs1=Server.CreateObject("Adodb.Recordset")
sql="Select * from class id="&刚才获取的ID
rs1.open sql,conn,1,1
下面的应该知道了吧