注册 登录  
 加关注
   显示下一条  |  关闭
温馨提示!由于新浪微博认证机制调整,您的新浪微博帐号绑定已过期,请重新绑定!立即重新绑定新浪微博》  |  关闭

汇总技巧

你快乐我快乐.... 汇集各类技巧,传播技巧,让我们共同熟练运用技巧..

 
 
 

日志

 
 

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

2011-06-04 19:12:34|  分类: ◆ASP技巧 |  标签: |举报 |字号 订阅

  下载LOFTER 我的照片书  |

前些日子有网友问:将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 bordertr"  vbCrL
While not rs.EO
Response.Write "td"  rs("CustomerID")  "/td"  vbCrL
'If (jj Mod nCol) = (nCol - 1) And jj  TotalNumber - 1 Then Response.Write "/trtr"  vbCrL
'If (jj Mod nCol) = (nCol - 1) And jj = TotalNumber-1 Then Response.Write "/tr"  vbCrL
If (jj Mod nCol) = (nCol - 1) Then
If jj  TotalNumber - 1 Then
Response.Write "/trtr"  vbCrL
Else
Response.Write "/tr"  vbCrL
End I
End I
jj = jj + 1
rs.MoveNext
Wend
If nLeft  0 And nLeft  nCol Then
If nCol  TotalNumber Then
For i = 1 to nLeft
Response.Write "tdnbsp;/td"  vbCrL
Next
End I
Response.Write "/tr"  vbCrL
End I
Response.Write "/table"
End I
rs.Close
Set rs = Nothing
cn.Close
Set cn = Nothing
Response.End 

  评论这张
 
阅读(127)| 评论(0)
推荐 转载

历史上的今天

在LOFTER的更多文章

评论

<#--最新日志,群博日志--> <#--推荐日志--> <#--引用记录--> <#--博主推荐--> <#--随机阅读--> <#--首页推荐--> <#--历史上的今天--> <#--被推荐日志--> <#--上一篇,下一篇--> <#-- 热度 --> <#-- 网易新闻广告 --> <#--右边模块结构--> <#--评论模块结构--> <#--引用模块结构--> <#--博主发起的投票-->
 
 
 
 
 
 
 
 
 
 
 
 
 
 

页脚

网易公司版权所有 ©1997-2017