t;TR>"
  For Each oField In RS.Fields
  response.write "<TH>" & oField.Name & "</TH>"
  Next
  Response.write "</TR>" & "<TR>"
  For Each oField In RS.Fields
  response.write "<TD ALIGN=center>"
  If IsNull(oField) Then
  Response.Write " "
  Else
  Response.Write oField.Value
  End If
  response.write "</TD>"
  Next
  rs.MoveNext
  Loop
  'Uses the NEXTRECORDSET Method
  Set rs = rs.NextRecordset
  intCount = intCount + 1
  response.write "</table>"
  Loop
  %>

上一页  [1] [2] [3] 

在google里搜索更多使用NextRecordset通过一个Connection输出多个select查询

	Web www.51ec.org

上一篇信息学院： 利用FSO取得BMP，JPG，PNG，GIF文件信息

下一篇信息学院： 远程获取内容，并将内容存在本地电脑上，包括任何文件