ASP读出多个记录集示例

sql = "SELECT id, forum_id, topic, tim FROM bbs_topic ORDER BY forum_id, tim DESC COMPUTE count(id) BY forum_id"

set rs = conn.execute(sql)

While Not rs Is Nothing

 Do While Not rs.EOF
    response.write rs("topic")
    rs.MoveNext
    IF Not rs.eof THEN response.write "<br>"
 Loop

 Set rs = rs.NextRecordset
 response.write "<br><br>"&rs(0)&"<br><br>"
 Set rs = rs.NextRecordset

Wend

等价于

Do Until rs Is Nothing

 Do While Not rs.EOF
  response.write "·"&rs("topic")
  rs.MoveNext
  IF Not rs.eof THEN response.write "<br>"
 Loop

 Set rs = rs.NextRecordset
 response.write "<br><br>"&rs(0)&"<br><br>"
 Set rs = rs.NextRecordset

Loop