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

来源:asp之家 时间:2011-04-08 10:51:00 

 

'定义变量 
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,记录集,表格形式
0
投稿

猜你喜欢

  • 用Asp修改注册表

    2008-01-04 12:33:00
  • Python clip与range函数保姆级使用教程

    2022-05-22 09:53:42
  • python实现整数序列求和

    2023-12-14 06:53:10
  • python实现telnet客户端的方法

    2021-04-14 21:07:24
  • 对python中的装包与解包实例详解

    2022-05-08 11:57:59
  • sql server 临时表 查找并删除的实现代码

    2024-01-17 18:49:56
  • 浅谈python抛出异常、自定义异常, 传递异常

    2022-12-22 00:49:31
  • [CSS+JS]同一页面可以重复使用的选项卡

    2009-02-12 12:53:00
  • python实现logistic分类算法代码

    2021-12-24 14:19:15
  • mssql server 存储过程里,bulk insert table from '路径+文件',路径固定,文件名不固定的实现方法

    2024-01-13 17:39:18
  • JavaScript条件判断_动力节点Java学院整理

    2024-04-22 22:24:50
  • vue实现父子组件之间的通信以及兄弟组件的通信功能示例

    2024-05-21 10:15:43
  • C# 连接本地数据库的实现示例

    2024-01-23 09:35:15
  • vue使用代理解决请求跨域问题详解

    2024-05-10 14:15:33
  • vue 计时器组件的实现代码

    2023-07-02 16:59:56
  • 懒懒交流会:ClassName的长命名 VS. 短命名

    2009-11-28 16:08:00
  • thinkphp3.x连接mysql数据库的方法(具体操作步骤)

    2023-11-22 20:04:41
  • python中print格式化输出的问题

    2021-02-25 23:20:30
  • ASP:使用ImageMagickObject组件制作缩略图

    2008-10-21 12:21:00
  • SQL2005查询表结构的SQL语句使用分享

    2024-01-15 21:47:52
  • asp之家 网络编程 m.aspxhome.com