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

'定义变量
Dimcn,rs,Sql

Sql="selectCustomerIDfromOrders"

'记录总数
DimTotalNumbe
Setcn=Server.CreateObject("ADODB.Connection")
cn.Open"Provider=SQLOLEDB.1;UserID=sa;InitialCatalog=NorthWind;DataSource=.;Password=;"

Setrs=Server.CreateObject("ADODB.Recordset")
rs.OpenSql,cn,3,1
TotalNumber=rs.RecordCount
IfTotalNumber=0Then
Response.Write"没有记录输出。"
Else
Dimjj,nLeft,cCol
jj=0
nCol=415
nLeft=nCol-(TotalNumberModnCol)
IfnLeft=nColThennLeft=0
Response.Write"<tableborder><tr>"&vbCrLf
Whilenotrs.EOF
Response.Write"<td>"&rs("CustomerID")&"</td>"&vbCrLf
'If(jjModnCol)=(nCol-1)Andjj<>TotalNumber-1ThenResponse.Write"</tr><tr>"&vbCrLf
'If(jjModnCol)=(nCol-1)Andjj=TotalNumber-1ThenResponse.Write"</tr>"&vbCrLf

If(jjModnCol)=(nCol-1)Then
Ifjj<>TotalNumber-1Then
Response.Write"</tr><tr>"&vbCrLf
Else
Response.Write"</tr>"&vbCrLf
EndIf
EndIf
jj=jj+1
rs.MoveNext
Wend
IfnLeft<>0AndnLeft<>nColThen
IfnCol<TotalNumberThen
Fori=1tonLeft
Response.Write"<td>&nbsp;</td>"&vbCrLf
Next
EndIf
Response.Write"</tr>"&vbCrLf
EndIf
Response.Write"</table>"
EndIf
rs.Close
Setrs=Nothing
cn.Close
Setcn=Nothing
Response.End