set rs=server.createobject("adodb.recordset")
sql="select fbr from table group by fbr" '以fbr字段分组
rs.open sql,conn,1,1
do while not rs.eof
set rst=server.createobject("adodb.recordset")
sql="select * from table where fbr='"& rs("fbr") &"'"
rst.open sql,conn,1,1
do while not rst.eof
'输出结果
rst.movenext
loop
rs.movenext
loop
set rs=server.createobject("adodb.recordset")
sql="select fbr from table group by fbr" '以fbr字段分组
rs.open sql,conn,1,1
do while not rs.eof
set rst=server.createobject("adodb.recordset")
sql= ...