还是那个老问题,请大家帮忙.

[frankrenping]

本是要每行显示四张图片,但现在只显示一张图片,没有循环了,不知错在何处?请指教.

下面见代码:

<...conn.asp..>
<%
Const New_img=8
dim id
id=request.QueryString("ID")
brrTmp=replace(session("cccc"),",","','")
set rs=server.createobject("adodb.recordset")
sql = "select * from [ladladypic] where Username in ('"&brrTmp&"')"
rs.open sql,conn,1,3
%>
<%i=0
do while not rs.EOF and i<12
i=i+1%>
<%
if i mod 4=0 then
response.Write(" <tr><td>"&rs("Username")&"</td>")
%>
<div class="s4"><ul><a href="usermain.asp">details</a> <a href="sendmail.asp">send mail</a> <a href="addtofile.asp">add to local file</a></ul>
<ul><p><img src="http:\\www.ladlady.com\asp\showimgpicUJ.asp?ID= <%=rs("ID")%>" width='80' height='80' border='0'></p></ul>     
<%
end if
rs.MoveNext
loop
rs.close
%>
</tr>
</table> </td>
<td width="1" valign=top id=demo2></td>
</tr>
</table>
</div>
<%if New_img >4 then%>

<%end if

Response.Write "no photo for temporary"

%>

[frankrenping]

经过修改代码如下,但还是只显示一张图片:

%
Const New_img=8
dim id
id=request.QueryString("ID")
brrTmp=replace(session("cccc"),",","','")
set rs=server.createobject("adodb.recordset")
sql = "select * from [ladladypic] where Username in ('"&brrTmp&"')"
rs.open sql,conn,1,3
if not rs.EOF then
%>
<%i=0
do while not rs.EOF and i<12
i=i+1%>
<%
if i mod 4=1 then
response.Write(" <tr><td>"&rs("Username")&"</td>")
%>
<div class="s4"><ul><a href="usermain.asp">details</a> <a href="sendmail.asp">send mail</a> <a href="addtofile.asp">add to local file</a></ul>
<ul><p><img src="http:\\www.ladlady.com\asp\showimgpicUJ.asp?ID= <%=rs("ID")%>" width='80' height='80' border='0'></p></ul>     
<%
end if
rs.MoveNext
loop
rs.close
%>
</tr>
</table> </td>
<td width="1" valign=top id=demo2></td>
</tr>
</table>
</div>
<%if New_img >4 then%>

<%end if
else
Response.Write "no photo for temporary"
end if
%>

[number123456]

你有几条产品信息？i mod 4 = 0 和 i mod 4 = 1有什么区别？

<table>
  <tr>
<%for i =  1 to 12%>
    <td></td>
<%
    if i mod 4 = 0 then Response.write "</tr><tr>"
  next
%>
  </tr>
</table>

这是每行四列，一共3行的示例，参考一下吧

[tangcheng0]

你用这个试下。

<...conn.asp..> 
<% 
Const New_img=8 
dim id 
id=request.QueryString("ID") 
brrTmp=replace(session("cccc"),",","','") 
set rs=server.createobject("adodb.recordset") 
sql = "select * from [ladladypic] where Username in ('"&brrTmp&"')" 
rs.open sql,conn,1,3 
%> 
<%i=1 
do while not rs.EOF and i <12  
  %> 

<div class="s4"> <ul> <a href="usermain.asp">details </a>  <a href="sendmail.asp">send mail </a>  <a href="addtofile.asp">add to local file </a> </ul> 
<ul> <p> <img src="http:\\www.ladlady.com\asp\showimgpicUJ.asp?ID= <%=rs("ID")%>" width='80' height='80' border='0'> </p> </ul>       
<% 
i=i+1
  if i mod 4=0 then   response.Write(" <tr> <td>"&rs("Username")&" </td>") 
  rs.MoveNext  
loop  
rs.close 
%>  
  </tr> 
  </table> </td> 
<td width="1" valign=top id=demo2> </td> 
</tr> 
</table> 
</div> 
  <%if New_img >4 then%> 

<%end if 

Response.Write "no photo for temporary" 

%> 

[frankrenping]

还是没有图片输出;没有循环可能也不行.最早用循环得到了所有图片,只是不能按位置放置.

[ywfsoft]

是做滚动图片吧
用两个表格试下吧！

[frankrenping]

不是滚动图片,静太显示,按搜索条件显示数据库相应图片.

[不耐烦]

if i mod 4=0 then
<tr>
if i mod 4=1 then
</tr>
就是利用i的值输出<tr> 和</tr>
自己在研究下吧

[number123456]

<%
if i mod 4=0 then
response.Write(" <tr> <td>"&rs("Username")&" </td>")
%>
<div class="s4"> <ul> <a href="usermain.asp">details </a>  <a href="sendmail.asp">send mail </a>  <a href="addtofile.asp">add to local file </a> </ul>
<ul> <p> <img src="http:\\www.ladlady.com\asp\showimgpicUJ.asp?ID= <%=rs("ID")%>" width='80' height='80' border='0'> </p> </ul>     
<%
end if
rs.MoveNext
loop
rs.close
%>

你这段就有问题
if i mod 4 = 0 then
……
end if
表示被4整除的时候显示，那不是整除的时候呢？没有显示，因为你没有写任何其它的内容

[number123456]

<%
Const New_img=8
dim id
id=request.QueryString("ID")
brrTmp=replace(session("cccc"),",","','")
set rs=server.createobject("adodb.recordset")
sql = "select * from [ladladypic] where Username in ('"&brrTmp&"')"
Response.write Sql'输出你的SQL语句，确定是否存在记录rs.open sql,conn,1,3
Response.write Rs.Recordcount'输出一共有多少条记录集%>
<Tr>
<%i=0
do while not rs.EOF and i <12
i=i+1%>
<td>
<%
'if i mod 4=0 then
'response.Write(" <tr> <td>"&rs("Username")&" </td>")
%>
<div class="s4"> <ul> <a href="usermain.asp">details </a>  <a href="sendmail.asp">send mail </a>  <a href="addtofile.asp">add to local file </a> </ul>
<ul> <p> <img src="http:\\www.ladlady.com\asp\showimgpicUJ.asp?ID= <%=rs("ID")%>" width='80' height='80' border='0'> </p> </ul>     
<td>
<%
'end if
rs.MoveNext
if i mod 4 = 0 then Response.write "</tr><tr>"
loop
rs.close
%>
</tr>
</table> </td>
<td width="1" valign=top id=demo2> </td>
</tr>
</table>
</div>
<%if New_img >4 then%>

<%end if

Response.Write "no photo for temporary"

%>

[frankrenping]

记录是存在的有的,只是别的问题.