将ASP纪录集输出成n列表格的方法
时间:2008-03-19 13:27:00
前些日子有网友问:将ASP纪录集输出成n列的的表格形式显示的方法?
现在写了一个,方便大家使用。
'定义变量
Dim cn,rs,Sql
Sql = "select CustomerID from Orders"
'记录总数
Dim TotalNumbe
Set cn = Server.CreateObject("ADODB.Connection")
cn.Open "Provider=SQLOLEDB.1;User ID=sa;Initial Catalog=NorthWind;Data Source=.;Password=;"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open Sql, cn, 3, 1
TotalNumber = rs.RecordCount
If TotalNumber = 0 Then
Response.Write "没有记录输出。"
Else
Dim jj,nLeft,cCol
jj = 0
nCol = 415
nLeft = nCol- (TotalNumber Mod nCol)
If nLeft = nCol Then nLeft = 0
Response.Write "<table border><tr>" & vbCrLf
While not rs.EOF
Response.Write "<td>" & rs("CustomerID") & "</td>" & vbCrLf
'If (jj Mod nCol) = (nCol - 1) And jj <> TotalNumber - 1 Then Response.Write "</tr><tr>" & vbCrLf
'If (jj Mod nCol) = (nCol - 1) And jj = TotalNumber-1 Then Response.Write "</tr>" & vbCrLf
If (jj Mod nCol) = (nCol - 1) Then
If jj <> TotalNumber - 1 Then
Response.Write "</tr><tr>" & vbCrLf
Else
Response.Write "</tr>" & vbCrLf
End If
End If
jj = jj + 1
rs.MoveNext
Wend
If nLeft <> 0 And nLeft <> nCol Then
If nCol < TotalNumber Then
For i = 1 to nLeft
Response.Write "<td> </td>" & vbCrLf
Next
End If
Response.Write "</tr>" & vbCrLf
End If
Response.Write "</table>"
End If
rs.Close
Set rs = Nothing
cn.Close
Set cn = Nothing
Response.End
标签:表格,记录,sql
0
投稿
猜你喜欢
sql语句查询数据库中的表名/列名/主键/自动增长值实例
2012-07-11 15:28:58
Python爬虫之BeautifulSoup的基本使用教程
2022-03-27 18:35:31
ASP中将Excel数据导入到Access
2009-02-02 09:15:00
js图片水平翻转后垂直翻反转的特效代码
2009-03-06 15:33:00
浅谈关于JS下大批量异步任务按顺序执行解决方案一点思考
2024-05-22 10:41:23
深入解析HetuEngine实现On Yarn原理
2023-10-12 17:56:09
Pytorch之8层神经网络实现Cifar-10图像分类验证集准确率94.71%
2022-03-03 21:14:36
Python机器学习之实现模型持久化与加载
2022-06-06 14:24:13
Python虚拟环境的创建和包下载过程分析
2023-01-02 12:46:10
golang定时器和超时的使用详解
2023-07-23 21:35:12
python 网络编程详解及简单实例
2021-09-02 06:40:56
python pandas中DataFrame类型数据操作函数的方法
2022-10-22 09:33:12
asp如何连接MYSQL数据库?
2010-01-01 15:49:00
Golang实现AES对称加密的过程详解
2024-01-31 06:44:22
Python返回数组/List长度的实例
2023-10-12 14:03:28
Python中pygal绘制雷达图代码分享
2023-09-27 10:03:59
Python Queue模块详细介绍及实例
2022-03-08 11:03:58
python定向爬取淘宝商品价格
2023-10-03 23:33:12
浅谈如何使用Python控制手机(二)
2022-05-01 20:16:28
Golang中switch语句和select语句的用法教程
2023-09-02 09:09:06