将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 "
" & rs("CustomerID") & " | " & vbCrLf 'If (jj Mod nCol) = (nCol - 1) And jj <> TotalNumber - 1 Then Response.Write "
" & vbCrLf Next End If Response.Write "" & vbCrLf End If Response.Write " |