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

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

　　前些日子有网友问：将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=0Then
　　
　　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-1Then Response.Write"</tr><tr>"&vbCrLf
　　
　　'If(jj Mod nCol)=(nCol-1)And jj=TotalNumber-1Then Response.Write"</tr>"&vbCrLf
　　
　　If(jj Mod nCol)=(nCol-1)Then
　　
　　If jj<>TotalNumber-1Then
　　
　　Response.Write"</tr><tr>"&vbCrLf
　　
　　Else
　　
　　Response.Write"</tr>"&vbCrLf
　　
　　End If
　　
　　End If
　　
　　jj=jj+1
　　
　　rs.MoveNext
　　
　　Wend
　　
　　If nLeft<>0And nLeft<>nCol Then
　　
　　If nCol<TotalNumber Then
　　
　　For i=1to 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