- '定义变量
- 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
将ASP记录集输出成n列的表格形式显示的方法
2019-09-18 10:38asp教程网 ASP教程
asp 表格形式显示数据,方便多行多列内容的输出。
延伸 · 阅读
- 2021-03-05js实现的类似于asp数据字典的数据类型代码实例
- 2021-01-10asp字符串连接符&、多个字符串相加、字符串拼
- 2020-12-18asp和php哪个是主流?用ASP和PHP做网站哪个好?
- 2020-11-17OA办公系统网站源码(ASP开发)
- 2020-11-16PHP模拟asp中response类实现方法
- 2020-09-22ASP和PHP文件操作速度的对比
精彩推荐
- ASP教程
FSO遍历目录实现全站插马的代码
FSO遍历目录实现全站插马的代码...
- ASP教程
asp生成静态HTML(动态读取)
这样的代码多用于我们没有实现设计生成静态的功能,但又想临时将一些动态页面生成静态的,直接获取动态内容并保存为静态的...
- ASP教程
asp 判断上传文件中是否存在危险代码
asp 判断上传文件中是否存在危险代码...
- ASP教程
asp代码实现检测组件是否安装的函数
asp代码实现检测组件是否安装的函数...
- ASP教程
asp知识整理笔记4(问答模式)
继前几篇篇《asp知识整理笔记1》和《asp知识整理笔记2》,《asp知识整理笔记3》新鲜出炉: 23、问题:在ASP文件中读取HTML的表单字段有几种方法? 答:R...
- ASP教程
动网论坛验证码改进 加法验证码(ASPJpeg版)
很多站长都为论坛里太多的垃圾广告抓狂,本程序就是为了对付论坛垃圾广告群发器的。 将验证码改为加法运算,比如验证码显示“25+64等于?”,那么输...
- ASP教程
Discuz!NT 论坛整合ASP程序论坛教程
Discuz!NT 论坛整合ASP程序论坛 实现代码。...
- ASP教程
javascript asp教程第五课--合二为一
两条防线,一个函数: 试问你如何能保证客户端和服务器端具有相同的功能?表单域的验证闪现在我们眼前。别人把你的html复制到另外一个脚本,然后改...