记录集横向换行显示

记录集横向换行显示

将Dim Repeat1__numRows
......
<%
的代码换为如下:

Dim tblstr, j, k
If Recordset1.RecordCount Mod 3 = 0 Then
j = Recordset1.RecordCount
Else
j = Recordset1.RecordCount + 3 - (Recordset1.RecordCount Mod 3)
End If
k = 1
Recordset1.MoveFirst
tblstr = " "
While (k <= j)
tblstr = tblstr & ""
For i = 1 To 3
If k <= Recordset1.RecordCount Then
tblstr = tblstr + ""
Else
tblstr = tblstr + ""
End If
k = k + 1
If Not Recordset1.EOF Then Recordset1.MoveNext
Next
tblstr = tblstr & ""

Wend
tblstr = tblstr & "

" & Recordset1.Fields.Item("name").Value & "

空位

"

response.write tblstr

a