 |
|
|
 首页 |
名片设计 CorelDRAW Illustrator AuotoCAD Painter 其他软件 Photoshop Fireworks Flash |
|
前些日子有网友问：将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> </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列的的表格形式显示的方式 · 将HTML表格转变为ASP+数据列表（DataList） · ASP实现在WEB中显示电子表格数据(一)显示数据表格的应用 · asp实现在web中显示电子表格数据（三）创建数据表列表和名字范围 · 从ASP迁移至ASP+ --HTML表格转变为ASP+列表 |
  |
| 快精灵印艺坊 版权所有 |
首页 会员中心在线印刷在线编辑付款方式索取样品设计指南连锁门店
|
||
