28,409
社区成员
发帖
与我相关
我的任务
分享客户端显示数据的排列问题
有关联的两个表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
%>
怎样才能在客户端显示以下这样的数据排列呢？
种类：水果
商品：苹果、香蕉、菠萝
种类：蔬菜
商品：冬瓜、南瓜、西瓜、北瓜
种类：零食
商品：花生、饼干、瓜子
我想了很久的源代码，可是总是不能按照我的要求排列，请问谁能帮帮我？？
源代码如下：
<%@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
%>
...全文
请发表友善的回复…
发表回复
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>
<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
%>
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的话
传一个参数如
点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
