Question

ASP让ACC记录 横4满4换行显示（看下面简单代码）

<!--#include virtual="conn.asp" -->
<%
Set Rs=Server.CreateObject("ADODB.RecordSet")
SqlStr="select top 6 * from shop"
Rs.Open SqlStr,conn,1,1
%>

<table width="200" border="0.5">
<tr>
<td><%=(Rs.Fields.Item("sp_title").Value)%></td>
</tr>
<tr>
<td><%=(Rs.Fields.Item("sp_pic").Value)%></td>
</tr>
<tr>
<td><%=(Rs.Fields.Item("sp_price").Value)%>;</td>
</tr>
</table>
求大神帮忙实现 让记录横着显示4个 满4个后自动换行 数据库连接没有问题、、求帮忙

Answer 1

你好，这个需要循环显示的。

<table width="200" border="0.5"><%
Set Rs=Server.CreateObject("ADODB.RecordSet") 
SqlStr="select top 6 * from shop" 
Rs.Open SqlStr,conn,1,1
i=0
do while not rs.eof
i=i+1:
%>
  <tr>
    <td><%=(Rs.Fields.Item("sp_title").Value)%></td><td><%=(Rs.Fields.Item("sp_pic").Value)%></td><td><%=(Rs.Fields.Item("sp_price").Value)%></td><td>&nbsp;</td>
  </tr>
	if i>=6 then exit do
 	rs.movenext
	loop
end if
%>
</table>

Answer 2

<!--#include virtual="conn.asp" -->
<table border="1" width="100%">
<tr>
<%
Set Rs=Server.CreateObject("ADODB.RecordSet")
SqlStr="select * from shop"
Rs.Open SqlStr,conn,1,1
do while not rs.eof
i=i+1
%>
<td>
<table width="200" border="0">
<tr>
<td><%=(Rs.Fields.Item("sp_title").Value)%></td>
</tr>
<tr>
<td><%=(Rs.Fields.Item("sp_pic").Value)%></td>
</tr>
<tr>
<td><%=(Rs.Fields.Item("sp_price").Value)%>;</td>
</tr>
</table>
</td>
<%
if i mod 4 = 0 then
Response.Write "</tr><tr>"
end if
rs.movenext
loop
rs.close
%>
</tr>
</table>