将ASP记录集输出成n列的表格形式显示的方法

网络编程 2025-03-13 17:03www.168986.cn编程入门

我们通过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 "

" & vbCrLf

While not rs.EOF

Response.Write "

" & vbCrLf

If (jj Mod nCol) = (nCol - 1) Then '每行数据已满,换行继续输出数据

If jj <> TotalNumber - 1 Then '如果不是最后一行数据,则添加新的行标签并继续输出数据

Response.Write "

" & vbCrLf

End If

End If

jj = jj + 1 '索引递增,准备处理下一行数据

rs.MoveNext

Wend '循环处理所有数据项,直至记录集结束

上一篇:PHP解压tar.gz格式文件的方法 下一篇:没有了

Copyright © 2016-2025 www.168986.cn 狼蚁网络 版权所有 Power by

" & rs("CustomerID") & "