繁體中文当前位置: 首页 > 图文教程 > 网络编程 > ASP > 将ASP记录集输出成n列的表格形式显示的方法
- ASP
- 冒泡算法的三种JavaScript表示
- asp无限分级(递归调用)
- VBS、ASP代码语法加亮显示的类
- 安全脚本程序的编写 V1.0
- atom2rss.asp
- atom_js.asp
- google sitemap.asp
- 用ASP读取/写入UTF-8编码格式的文件
- 捌度空间 缓存类
- 再来个专门为google量身定做的sitemap生成代码,(可是动态的哦)
- 一个能对访问者进行编号、记录访问次数、IP、时间的统计制作实例
- 如何在ASP页面动态Inclue文件？
- 多域名一网站时如果返回最原来的域名
- 网页木马代码例子（里面的文件是漏洞扫描器，呵呵）
- ASP万用分页程序
- ASP项目中的公共翻页模块
- 在ASP中使用均速分页法提高分页速度
- 3种不同的方法生成文件
- 身份证校验算法与ASP程序
- ASP抽取数据的执行效率
将ASP记录集输出成n列的表格形式显示的方法
出处:互联网 整理: 软晨网（RuanChen.com） 发布: 2009-09-13 浏览: 57 ::
收藏到网摘: n/a
asp 表格形式显示数据,方便多行多列内容的输出。 '定义变量
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
评论 (0) All
