从SQL Server数据库显示记录到ASP Classic表中
问题描述:
我能够从表中的SQL Server数据库中显示我的记录。而现在,我正试图将它们放置在3列& 2列表中。这意味着如果总共有两条记录,它们应该并排出现,而不是一个接一个地出现。我可以使用下面的代码重复记录。从SQL Server数据库显示记录到ASP Classic表中
<%
Sub B00_DisplayRecords()
Do while not registerRS.eof
counter=counter+1
if counter=41 then
counter=0
counter=counter+1
end if
%>
<tr>
<th width="50" font class="tblhdr" style="width:400px;"><%=registerRS.Fields("SchoolId")%> - <%=registerRS.Fields("Organization")%></td>
<th width="50" font class="tblhdr" style="width:400px;"><%=registerRS.Fields("SchoolId")%> - <%=registerRS.Fields("Organization")%></td>
</tr>
<tr>
<td width="50" font class="pgcont" valing=left style="width:400px;" align="left">ProductId: <%=registerRS.Fields("ProductId")%></td>
<td width="50" font class="pgcont" valing=left style="width:400px;" align="left">ProductId: <%=registerRS.Fields("ProductId")%></td>
</tr>
<tr>
<td width="50" font class="pgcont" valing=left style="width:400px;" align="left">Qty: <%=registerRS.Fields("Qty")%></td>
<td width="50" font class="pgcont" valing=left style="width:400px;" align="left">Qty: <%=registerRS.Fields("Qty")%></td>
</tr>
<tr>
<td width="50" font class="pgcont" valing=left style="width:400px;" align="left">Class: <%=registerRS.Fields("class")%></td>
<td width="50" font class="pgcont" valing=left style="width:400px;" align="left">Class: <%=registerRS.Fields("class")%></td>
</tr>
<%
registerRS.movenext
loop
registerRS.close
set registerRS=nothing
End sub
%>
答
Do until rs.eof
r = r + 1
If r = 1 then
Response.write "<tr>"
End if
' data display
If r = 3 then
Response.write "</tr>"
End if
If r = 3 then r = 1
Rs.movenext
Loop
If r = 2 ' write extra td and end tr
If r = 1 ' write 2 td and end tr
你可以只使用换行符。看起来不像任何记录会包装。按照下面所述制作专栏,但将每条记录放在一个单独的td中 –