多列显示搜索结果

<%
TotalNumber = rs.RecordCount
If TotalNumber = 0 Then
Response.Write "没有记录输出。"
Else
Dim jj,nLeft,cCol
jj = 0
nCol = 2
nLeft = nCol- (TotalNumber Mod nCol)

If nLeft = nCol Then nLeft = 0
Response.Write "<table width=100% border=0 cellpadding=0 cellspacing=0 align=left><tr valign=top>"
i=1
do While not rs.EOF
i=i+1
Response.Write "<td><table border=0 cellpadding=3 cellspacing=1><tr><td align=center>"
'======================
此处放要循环的
'======================
Response.Write "</td></tr></table></td>"
If (jj Mod nCol) = (nCol - 1) Then
If jj <> TotalNumber - 1 Then
Response.Write "</tr><tr align=center valign=bottom>" & vbCrLf
Else
Response.Write "</tr>" & vbCrLf
End If
End If
jj = jj + 1
if i>4 then exit do
rs.MoveNext
loop
If nLeft <> 0 And nLeft <> nCol Then
If nCol < TotalNumber Then
For i = 1 to nLeft
Response.Write "<td>&nbsp;</td>"
Next
End If
Response.Write "</tr>"
End If
Response.Write "</table>"
End If
%>