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= ...