一个循环问题,郁闷死我了,大虾救命啊!

jzlwl01 2005-07-23 10:34:24

<% dim j
j=0
do while not rs.eof %>
<TD width=140 border="0" align=center>
产品代码</TD>
<TD width=1 background=images/b3.gif></TD>
<% rs.movenext
j=j+1
if rs.eof then
exit do
end if
if j>=4 then exit do
loop
rs.close
set rs= nothing %>
</TR></TBODY></TABLE>
<% end if %>

就是这样一个循环程序,他显示的产品数是一行四个,显示一行,我要把他变成一行四个,显示两行的产品.

也可以下载程序www.gourdchina.com/4new.rar

...全文

172 18 打赏收藏转发到动态举报

写回复

用AI写文章

18 条回复

切换为时间正序

请发表友善的回复…

发表回复

vvzy 2005-07-23

打赏
举报

<%
set rs=server.createobject("adodb.recordset")
Sql="Select Top 8 * from Product"
rs.Open Sql,conn,1,3

%>
<tr>
<%
do while not rs.eof
i=i+1
if i=5 then
response.write("</tr><tr>")
end if
Response.write("<td width=25%>显示产品</td>")
rs.movenext
loop
%>
</tr>

这样可以显示两行,每一行4条记录

renniliao 2005-07-23

打赏
举报

我就是用你的源代码改的阿

renniliao 2005-07-23

打赏
举报

不会吧？

jzlwl01 2005-07-23

打赏
举报

我试了你们的方法了，都没什么变化啊，大家再帮看看吧,下载一下源代码帮我看看

renniliao 2005-07-23

打赏
举报

以上代码你覆盖你眼来的页面就行，看看是不是你要的东西。

renniliao 2005-07-23

打赏
举报

给你！
<META http-equiv=Content-Type content="text/html; charset=gb2312">
<% set rs=server.CreateObject("adodb.recordset")
rs.open "select top 4 id,name,pic,price1,price2,adddate from product order by adddate desc",conn,1,1
if rs.eof and rs.bof then
response.write "<table CELLSPACING=0 CELLPADDING=0 BORDER=0 WIDTH=""100%""><tr><td align=center>对不起，请您先到后台添加商品！</td></tr></table>"
else
%>

<TABLE cellSpacing=0 cellPadding=0 width=564 align=center border=0>
<TBODY>
<tr>
<td colSpan=8 height=30><img src="images/newarrivals.gif" border="0" usemap="#Map"></td>
</tr>
<TR>
<TD background=images/b4.gif colSpan=8 height=1></TD>
</TR>
<TR>
<% dim j
j=0
do while not rs.eof %>
<TD width=140 border="0" align=center> <TABLE cellSpacing=0 cellPadding=0 width="140" border=0>
<TBODY>
<tr>
<td height="80" colspan="2" align="center"> <A HREF=product.asp?id=<%=rs("id")%> TARGET=_blank>
<IMG ALT=上市日期<%=trim(rs("adddate"))%> SRC=<%if trim(rs("pic"))="" then %>
images/emptybook.gif
<% else %>
<% = trim(rs("pic")) %>
<% end if%> BORDER=0 width="<% = webimg9 %>" height="<% = webimg10 %>"></A>
<hr width="20%"></td>
</tr>
<TR>
<TD colSpan=2> <FONT COLOR=#FF6600><%=trim(rs("name"))%></FONT></TD>
</TR>
<TR height=20>
<TD width="40%" align=right>市场价：</TD>
<TD width="60%"><%=trim(rs("price1"))%> 元</TD>
</TR>
<TR height=20>
<TD align=right>会员价：</TD>
<TD><FONT COLOR=#FF6600><%=trim(rs("price2"))%></FONT> 元</TD>
</TR>
<TR height=20>
<TD align=right>节　省：</TD>
<TD><%=Cstr(rs("price1")-rs("price2"))%> 元</TD>
</TR>
<TR>
<TD align="right"><a href=# onClick="javascript:window.open('cart.asp?id=<% = rs("id") %>','','width=632,height=388,toolbar=no, status=no, menubar=no, resizable=yes, scrollbars=yes');return false;"><img src=images/skin/default/cart.gif width=50 height=19 align=absmiddle border=0></a></TD>
<TD align="center"><a href=# onClick="javascript:window.open('addto.asp?id=<% = rs("id") %>&action=add','','width=632,height=388,toolbar=no, status=no, menubar=no, resizable=yes, scrollbars=yes');return false;"><img src=images/skin/default/addto.gif width=50 height=19 align=absmiddle border=0></a></TD>
</TR>
</TBODY>
</TABLE></TD>
<TD width=1 rowspan="2" background=images/b3.gif></TD>
<% rs.movenext
j=j+1
if rs.eof then
exit do
end if
if j>=4 then exit do
loop
rs.close
set rs= nothing %>
</TR>
<TR>
<TD border="0" align=center><TABLE cellSpacing=0 cellPadding=0 width="140" border=0>
<TBODY>
<tr>
<td height="80" colspan="2" align="center"> <A HREF=product.asp?id=<%=rs("id")%> TARGET=_blank>
<IMG ALT=上市日期<%=trim(rs("adddate"))%> SRC=<%if trim(rs("pic"))="" then %>
images/emptybook.gif
<% else %>
<% = trim(rs("pic")) %>
<% end if%> BORDER=0 width="<% = webimg9 %>" height="<% = webimg10 %>"></A>
<hr width="20%"></td>
</tr>
<TR>
<TD colSpan=2> <FONT COLOR=#FF6600><%=trim(rs("name"))%></FONT></TD>
</TR>
<TR height=20>
<TD width="40%" align=right>市场价：</TD>
<TD width="60%"><%=trim(rs("price1"))%> 元</TD>
</TR>
<TR height=20>
<TD align=right>会员价：</TD>
<TD><FONT COLOR=#FF6600><%=trim(rs("price2"))%></FONT> 元</TD>
</TR>
<TR height=20>
<TD align=right>节　省：</TD>
<TD><%=Cstr(rs("price1")-rs("price2"))%> 元</TD>
</TR>
<TR>
<TD align="right"><a href=# onClick="javascript:window.open('cart.asp?id=<% = rs("id") %>','','width=632,height=388,toolbar=no, status=no, menubar=no, resizable=yes, scrollbars=yes');return false;"><img src=images/skin/default/cart.gif width=50 height=19 align=absmiddle border=0></a></TD>
<TD align="center"><a href=# onClick="javascript:window.open('addto.asp?id=<% = rs("id") %>&action=add','','width=632,height=388,toolbar=no, status=no, menubar=no, resizable=yes, scrollbars=yes');return false;"><img src=images/skin/default/addto.gif width=50 height=19 align=absmiddle border=0></a></TD>
</TR>
</TBODY>
</TABLE></TD>
</TR>
</TBODY>
</TABLE>
<% end if %>
<map name="Map">
<area shape="rect" coords="43,3,126,22" href="newarrivals.asp" target="_blank" alt="新品上市排行">
<area shape="rect" coords="504,5,550,21" href="newarrivals.asp" target="_blank" alt="新品上市排行">
</map>

jzlwl01 2005-07-23

打赏
举报

我要实现的效果在www.gourdchina.com/tupian.gif

renniliao 2005-07-23

打赏
举报

我感觉这样的分之逻辑问题应该仔细想想啊？肯定自己能弄明的。

jackycxg 2005-07-23

打赏
举报

大家都说了，我怎么办，不过我的方法和大家的还是有点不一样
<table>
<%
j=0
do while not rs.eof
if j mod 4=0 then response.write "<tr>"
%>
<TD width=140 border="0" align=center>产品代码</TD>
<TD width=1 background=images/b3.gif></TD>
<% rs.movenext
j=j+1
if j mod 4=0 then response.write "</tr>"
loop
rs.close
set rs= nothing %>
<TABLE>
<% end if %>

studyingvb 2005-07-23

打赏
举报

<table width="568" border="0" cellpadding="0" cellspacing="0">
<tr>
<%
i=1
j=1
do while not rs.eof
%>
<td height="140"> <table width="120" border="0" cellpadding="0" cellspacing="0">
<tr>
<td width="568" height="5"> </td>
</tr>
</table>
<table width="105" border="0" align="center" cellpadding="1" cellspacing="1" bgcolor="999999" class="f12">
<tr>
<td width="121" bgcolor="#ebebeb"> <div align="center"><a href="#" target="_blank"><img src#" width=100 height=100 border="0"></a></div></td>
</tr>
<tr>
<td height="26" bgcolor="#ebebeb"><div align="center">编号</div></td>
</tr>
</table></td>
<%if j mod 4=0 then%>
</tr>
<tr>
<%end if%>
<%
j=j+1
i=i+1
if i>8 then exit do
rs.movenext
loop
%>
</tr>
</table>
这个对的.上面的写错数字了.

studyingvb 2005-07-23

打赏
举报

hj3793 2005-07-23

打赏
举报

<%
Sql="Select Top 8 * from Product"
rs.Open Sql,Cn,1,3
if rs.RecordCount>0 then
for i=1 to 2
if rs.eof then exif for
%>
<tr>
<%
for j=1 to 4
if not rs.eof then
Response.write("<td width=25%>显示产品</td>")
rs.movenext
else
Response.write("<td width=25%> </td>")
end if
next
%>
</tr>
<%
next
end if
%>

------------------------------------
一行四个，显示两行

poonzsp 2005-07-23

打赏
举报

分页的时候把MaxPerPage的值设为 8 就可以拉

QQgenie 2005-07-23

打赏
举报

没说清要什么样子的!

jzlwl01 2005-07-23

打赏
举报

成功了，大家辛苦了,我用的 dulong007的程序

lirong 2005-07-23

打赏
举报

<%
set rs=server.createobject("adodb.recordset")
Sql="Select Top 8 * from Product"
rs.Open Sql,conn,1,3
%>
...
<%
j=0
do while not rs.eof or j<8 %>
<tr>
<%
i=j
for k=1 to 4
i=i+1
%>
<td>
<table>
<TD width=140 border="0" align=center>
产品代码</TD>
<TD width=1 background=images/b3.gif></TD>
</TR></TBODY></TABLE>
</td>
<%
rs.movenext
next
%>
</tr>
<% j=j+4
loop
%>

renniliao 2005-07-23

打赏
举报

再一次发给你，试试吧。因为我这里没有库，不能测试啊。
<META http-equiv=Content-Type content="text/html; charset=gb2312">
<% set rs=server.CreateObject("adodb.recordset")
rs.open "select top 4 id,name,pic,price1,price2,adddate from product order by adddate desc",conn,1,1
if rs.eof and rs.bof then
response.write "<table CELLSPACING=0 CELLPADDING=0 BORDER=0 WIDTH=""100%""><tr><td align=center>对不起，请您先到后台添加商品！</td></tr></table>"
else
%>
<TABLE cellSpacing=0 cellPadding=0 width=564 align=center border=0>
<TBODY>
<tr><td colSpan=8 height=30><img src="images/newarrivals.gif" border="0" usemap="#Map"></td></tr>
<TR>
<TD background=images/b4.gif colSpan=8 height=1></TD>
</TR>
<TR>
<% dim j
j=0
do while not rs.eof %>
<TD width=140 border="0" align=center>
<TABLE cellSpacing=0 cellPadding=0 width="140" border=0>
<TBODY>
<tr><td height="80" colspan="2" align="center">
<A HREF=product.asp?id=<%=rs("id")%> TARGET=_blank>
<IMG ALT=上市日期<%=trim(rs("adddate"))%> SRC=<%if trim(rs("pic"))="" then %>
images/emptybook.gif
<% else %>
<% = trim(rs("pic")) %>
<% end if%> BORDER=0 width="<% = webimg9 %>" height="<% = webimg10 %>"></A><hr width="20%"></td></tr>
<TR>
<TD colSpan=2> <FONT COLOR=#FF6600><%=trim(rs("name"))%></FONT></TD>
</TR>
<TR height=20>
<TD width="40%" align=right>市场价：</TD>
<TD width="60%"><%=trim(rs("price1"))%> 元</TD>
</TR>
<TR height=20>
<TD align=right>会员价：</TD>
<TD><FONT COLOR=#FF6600><%=trim(rs("price2"))%></FONT> 元</TD>
</TR>
<TR height=20>
<TD align=right>节　省：</TD>
<TD><%=Cstr(rs("price1")-rs("price2"))%> 元</TD>
</TR>
<TR>
<TD align="right"><a href=# onClick="javascript:window.open('cart.asp?id=<% = rs("id") %>','','width=632,height=388,toolbar=no, status=no, menubar=no, resizable=yes, scrollbars=yes');return false;"><img src=images/skin/default/cart.gif width=50 height=19 align=absmiddle border=0></a></TD>
<TD align="center"><a href=# onClick="javascript:window.open('addto.asp?id=<% = rs("id") %>&action=add','','width=632,height=388,toolbar=no, status=no, menubar=no, resizable=yes, scrollbars=yes');return false;"><img src=images/skin/default/addto.gif width=50 height=19 align=absmiddle border=0></a></TD>
</TR>
</TBODY>
</TABLE></TD>
<TD width=1 background=images/b3.gif></TD>
<% rs.movenext
j=j+1
if rs.eof then
exit do
end if
if j>=4 then exit do
loop
rs.movefirst
%>
</TR>
<TR>
<% dim j
j=0
do while not rs.eof %>
<TD width=140 border="0" align=center>
<TABLE cellSpacing=0 cellPadding=0 width="140" border=0>
<TBODY>
<tr><td height="80" colspan="2" align="center">
<A HREF=product.asp?id=<%=rs("id")%> TARGET=_blank>
<IMG ALT=上市日期<%=trim(rs("adddate"))%> SRC=<%if trim(rs("pic"))="" then %>
images/emptybook.gif
<% else %>
<% = trim(rs("pic")) %>
<% end if%> BORDER=0 width="<% = webimg9 %>" height="<% = webimg10 %>"></A><hr width="20%"></td></tr>
<TR>
<TD colSpan=2> <FONT COLOR=#FF6600><%=trim(rs("name"))%></FONT></TD>
</TR>
<TR height=20>
<TD width="40%" align=right>市场价：</TD>
<TD width="60%"><%=trim(rs("price1"))%> 元</TD>
</TR>
<TR height=20>
<TD align=right>会员价：</TD>
<TD><FONT COLOR=#FF6600><%=trim(rs("price2"))%></FONT> 元</TD>
</TR>
<TR height=20>
<TD align=right>节　省：</TD>
<TD><%=Cstr(rs("price1")-rs("price2"))%> 元</TD>
</TR>
<TR>
<TD align="right"><a href=# onClick="javascript:window.open('cart.asp?id=<% = rs("id") %>','','width=632,height=388,toolbar=no, status=no, menubar=no, resizable=yes, scrollbars=yes');return false;"><img src=images/skin/default/cart.gif width=50 height=19 align=absmiddle border=0></a></TD>
<TD align="center"><a href=# onClick="javascript:window.open('addto.asp?id=<% = rs("id") %>&action=add','','width=632,height=388,toolbar=no, status=no, menubar=no, resizable=yes, scrollbars=yes');return false;"><img src=images/skin/default/addto.gif width=50 height=19 align=absmiddle border=0></a></TD>
</TR>
</TBODY>
</TABLE></TD>
<TD width=1 background=images/b3.gif></TD>
<% rs.movenext
j=j+1
if rs.eof then
exit do
end if
if j>=4 then exit do
loop
rs.close
set rs= nothing %>
</TR>
</TBODY></TABLE>
<% end if %>
<map name="Map">
<area shape="rect" coords="43,3,126,22" href="newarrivals.asp" target="_blank" alt="新品上市排行">
<area shape="rect" coords="504,5,550,21" href="newarrivals.asp" target="_blank" alt="新品上市排行">
</map>

jzlwl01 2005-07-23