客户端显示数据的排列问题

ytffndn 2004-04-08 07:46:01
有关联的两个表aa和bb,(aa为商品种类,bb为商品名称)
怎样才能在客户端显示以下这样的数据排列呢?

种类:水果
商品:苹果、香蕉、菠萝
种类:蔬菜
商品:冬瓜、南瓜、西瓜、北瓜
种类:零食
商品:花生、饼干、瓜子

我想了很久的源代码,可是总是不能按照我的要求排列,请问谁能帮帮我??
源代码如下:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="../Connections/mydb.asp" -->
<%
Dim Rs1
Dim Rs1_numRows

Set Rs1 = Server.CreateObject("ADODB.Recordset")
Rs1.ActiveConnection = MM_mydb_STRING
Rs1.Source = "SELECT * FROM aa, bb WHERE a_id = b_aid"
Rs1.CursorType = 0
Rs1.CursorLocation = 2
Rs1.LockType = 1
Rs1.Open()

Rs1_numRows = 0
%>
<%
Dim Rs2
Dim Rs2_numRows

Set Rs2 = Server.CreateObject("ADODB.Recordset")
Rs2.ActiveConnection = MM_mydb_STRING
Rs2.Source = "SELECT a_aa, a_id FROM aa"
Rs2.CursorType = 0
Rs2.CursorLocation = 2
Rs2.LockType = 1
Rs2.Open()

Rs2_numRows = 0
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title></title>
</head>
<body>
<%
While NOT Rs2.EOF
%>
<%=( "<font color=#FF0000>" & Rs2.Fields.Item("a_aa").Value & "</font></body><BR>")%>
<%
Rs2.MoveNext()
%>
<%
While NOT Rs1.EOF
%>
<%=(Rs1.Fields.Item("b_bb").Value)%>
<%
Rs1.MoveNext()
Wend
%>
<%
Wend
%>
</html>
<%
Rs1.Close()
Set Rs1 = Nothing
%>
<%
Rs2.Close()
Set Rs2 = Nothing
%>
...全文
7 点赞 收藏 7
写回复
7 条回复
切换为时间正序
请发表友善的回复…
发表回复
wolfsky1994 2004-04-09
用楼上的方法
一定能实现你的要求
回复
mrwang2000 2004-04-09
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title></title>
</head>
<body>
<%
While NOT Rs2.EOF
response.write ( "<font color=#FF0000>" & Rs2.Fields.Item("a_aa").Value & "</font></body><BR>")%>
While NOT Rs1.EOF
if Rs1.Fields.Item("b_aid").Value=Rs2.Fields.Item("a_id").Value then
response.write (Rs1.Fields.Item("b_bb").Value)
end if
Rs1.MoveNext()
Wend
Rs2.MoveNext()
rs1.movefirst()
Wend
%>
</html>
回复
ytffndn 2004-04-09
难道就没有人能解决了吗???
回复
ytffndn 2004-04-08
不行啊!显示出来的排列只是这样:

种类:水果

商品:苹果、香蕉、菠萝、冬瓜、南瓜、西瓜、北瓜、花生、饼干、瓜子

种类:蔬菜

种类:零食


并不能做到分类显示啊!
回复
xhuad 2004-04-08
<%
While NOT Rs2.EOF
%>
<%=( "<font color=#FF0000>" & Rs2.Fields.Item("a_aa").Value & "</font></body><BR>")%>
<%
While NOT Rs1.EOF
%>
<%=(Rs1.Fields.Item("b_bb").Value)%>
<%
Rs1.MoveNext()
Wend
%>
<%
Rs2.MoveNext()

Wend
%>
回复
ytffndn 2004-04-08
可以写一下排列的循环语句吗??我还是不明白,如果通过传递参数的话,假如我有很多的分类,那岂不是要传递很多的参数??
回复
jiangjiewebsky 2004-04-08
asp.net datadrid控件可以实现 .

asp的话
传一个参数如
点id,按id排列
<a href=xx.asp?sort=id>id</a>
sql="select * from ......order by "&Request.quertstring("sort")&".."


http://www.reallink.cn/web/down.asp?id=124014070&u=1
回复
发动态
发帖子
ASP
创建于2007-09-28

2.8w+

社区成员

ASP即Active Server Pages,是Microsoft公司开发的服务器端脚本环境。
申请成为版主
社区公告
暂无公告