asp 提取相同数据问题？？？

来源：百度知道 编辑：UC知道 时间：2024/06/10 03:54:12
数据库中有表a 字段1[书名] 字段2[本数]

怎样提取相同本数的书名并换行？一样的本数显示一行？
列:
5本书的有:书名a 书名b 书名c
3本书的有：书名D 书名E 书名F

请高手给段代码？ 谢谢！

dim bNum
rs.open "select * from 表a order by 字段2",conn
'利用order by 把数量相同的书排列到一起
if not rs.eof then
while not rs.eof
bNum=rs("字段2")'在此保存书有多少本
response.write(rs("字段1"))
rs.movenext'----记录集往下移，然后判断下一本书的数量是否与bNum相等，否则换行
if bNum<>rs("字段2") then
response.write("<br>")
end if

wend