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

原创 2004年09月21日 18:37: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>&nbsp;</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列的的表格形式显示的方法

前些日子有网友问:将ASP纪录集输出成n列的的表格形式显示的方法,现在写了一个,方便大家使用。定义变量Dim cn,rs,SqlSql = "select CustomerID from Orde...
  • hejishan
  • hejishan
  • 2008年03月11日 12:04
  • 211

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

将ASP纪录集输出成n列的的表格形式显示的方法,现在写了一个,方便大家使用。定义变量Dim cn,rs,SqlSql = "select CustomerID from Orders" 记录总数Dim...
  • luoboqingcai
  • luoboqingcai
  • 2004年09月27日 16:55
  • 775

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

定义变量 Dim cn,rs,Sql Sql = "select CustomerID from Orders"  记录总数 Dim TotalNumbe Set cn = Server.Create...
  • piperzero
  • piperzero
  • 2008年11月03日 10:08
  • 814

孟宪会老师关于"将ASP纪录集输出成n列的的表格形式显示的方法"

定义变量Dim cn,rs,SqlSql = "select CustomerID from Orders" 记录总数Dim TotalNumbeSet cn = Server.CreateObjec...
  • sharpcn
  • sharpcn
  • 2004年08月26日 13:28
  • 915

xml 将xml文档以表格的形式输出

在此我引用了w3school中的一个demo,我们还是来看看具体的例子吧: index.html
  • tashanhongye
  • tashanhongye
  • 2015年10月25日 12:17
  • 438

ASP输出成n列的表格形式显示的方法,多行多列

http://www.corange.cn/archives/2008/01/141.html
  • piperzero
  • piperzero
  • 2008年08月23日 15:11
  • 877

读入一个自然数,将n分解为质因子连乘的形式输出(筛法)

为了提高速度,采用筛法来求质因子: #include #include #include #include using namespace std; int main () { in...
  • qsort_
  • qsort_
  • 2016年07月13日 21:21
  • 1118

PHP查询MySql数据库,将结果用表格输出实例

在用PHP开发网站时,MySql数据库查询结果用表格输出,对于初学PHP程序开发的同学可能有一些难度。 本文以实例形式演示了PHP查询MySql数据库,并将结果用表格输出的功能,希望对大家的PHP编...
  • mrliu02
  • mrliu02
  • 2015年04月24日 23:16
  • 5185

C4练习题-质因子分解

质因子分解 Time Limit: 3000/1000MS (Java/Others)     Memory Limit: 65535/65535KB (Java/Others) ...
  • llzhh
  • llzhh
  • 2016年07月14日 11:29
  • 407

EXTJs 实现表格数据显示-----JSON

首先创建三个文件:grid04.html、grid04.js、grid04.jsongrid04.html内容如下: grid04.html ...
  • sz_bdqn
  • sz_bdqn
  • 2009年07月01日 19:31
  • 6042
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:将ASP纪录集输出成n列的的表格形式显示的方法
举报原因:
原因补充:

(最多只允许输入30个字)