将ASP记录集输出成n列的表格形式显示的方法
我们通过SQL查询从Orders表中获取所有的CustomerID。接着,我们创建一个数据库连接对象,并打开与NorthWind数据库的链接。然后,我们执行SQL查询并将结果集保存在一个记录集对象中。
```asp
'定义变量
Dim conn, rs, Sql
Sql = "select CustomerID from Orders" '查询SQL语句
'建立数据库连接
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "Provider=SQLOLEDB.1;User ID=sa;Initial Catalog=NorthWind;Data Source=.;Password=;"
'执行SQL查询并获取结果集
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open Sql, , 3, 1
'记录总数
TotalNumber = rs.RecordCount
If TotalNumber = 0 Then
Response.Write "没有记录输出。"
Else
Dim jj, nCol, nLeft
nCol = 4 '每行展示的数据数量
jj = 0 '数据索引
nLeft = nCol - (TotalNumber Mod nCol) '计算需要添加空白列的数量
Response.Write "
" & rs("CustomerID") & " | " & vbCrLf