ASP记录集转换到二维数组

1. 
   
2. '定义一个数组备用
   
3. Dim arr
   
4. 
   
5. '将rs记录集中所有的记录全部取出，放入到arr数组中
   
6. arr = rs.GetRows
   
7. 
   
8. '取指定条数的数据记录，并放入到数组中
   
9. arr = rs.GetRows(10)
   
10. 
    
11. '循环遍历数组，输出数据库记录集中的内容
    
12. For row = 0 To UBound(arr, 2)
    
13.     For col = 0 To UBound(arr, 1)
    
14.         Response.Write (col, row) & "<br>"
    
15.     Next
    
16. Next

复制代码