网络编程
位置：首页>> 网络编程>> Asp编程>> 将ASP记录集输出成n列的表格形式显示的方法

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

　来源：asp之家　发布时间：2011-04-08 10:51:00　

标签：ASP,记录集,表格形式

 

'定义变量 
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

0
投稿

猜你喜欢

手机版 网络编程 asp之家 www.aspxhome.com