服务器之家:专注于服务器技术及软件下载分享
分类导航

PHP教程|ASP.NET教程|Java教程|ASP教程|编程技术|正则表达式|C/C++|IOS|C#|Swift|Android|JavaScript|易语言|

服务器之家 - 编程语言 - ASP教程 - 将ASP记录集输出成n列的表格形式显示的方法

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

2019-09-18 10:38asp教程网 ASP教程

asp 表格形式显示数据,方便多行多列内容的输出。

  1. '定义变量  
  2. Dim cn,rs,Sql  
  3. Sql = "select CustomerID from Orders"  
  4. '记录总数  
  5. Dim TotalNumbe  
  6. Set cn = Server.CreateObject("ADODB.Connection")  
  7. cn.Open "Provider=SQLOLEDB.1;User ID=sa;Initial Catalog=NorthWind;Data Source=.;Password=;"  
  8. Set rs = Server.CreateObject("ADODB.Recordset")  
  9. rs.Open Sql, cn, 3, 1  
  10. TotalNumber = rs.RecordCount  
  11. If TotalNumber = 0 Then  
  12. Response.Write "没有记录输出。"  
  13. Else  
  14. Dim jj,nLeft,cCol  
  15. jj = 0  
  16. nCol = 415  
  17. nLeft = nCol- (TotalNumber Mod nCol)  
  18. If nLeft = nCol Then nLeft = 0  
  19. Response.Write "<table border><tr>" & vbCrLf  
  20. While not rs.EOF  
  21. Response.Write "<td>" & rs("CustomerID") & "</td>" & vbCrLf  
  22. 'If (jj Mod nCol) = (nCol - 1) And jj <> TotalNumber - 1 Then Response.Write "</tr><tr>" & vbCrLf  
  23. 'If (jj Mod nCol) = (nCol - 1) And jj = TotalNumber-1 Then Response.Write "</tr>" & vbCrLf  
  24. If (jj Mod nCol) = (nCol - 1) Then  
  25. If jj <> TotalNumber - 1 Then  
  26. Response.Write "</tr><tr>" & vbCrLf  
  27. Else  
  28. Response.Write "</tr>" & vbCrLf  
  29. End If  
  30. End If  
  31. jj = jj + 1  
  32. rs.MoveNext  
  33. Wend  
  34. If nLeft <> 0 And nLeft <> nCol Then  
  35. If nCol < TotalNumber Then  
  36. For i = 1 to nLeft  
  37. Response.Write "<td> </td>" & vbCrLf  
  38. Next  
  39. End If  
  40. Response.Write "</tr>" & vbCrLf  
  41. End If  
  42. Response.Write "</table>"  
  43. End If  
  44. rs.Close  
  45. Set rs = Nothing  
  46. cn.Close  
  47. Set cn = Nothing  
  48. Response.End 

延伸 · 阅读

精彩推荐