asp 循环换行问题 急急急

来源:百度知道 编辑:UC知道 时间:2024/06/01 17:14:20
<table width="96%" border="0" cellspacing="0" cellpadding="0">
<tr>
<%
sql = "select top 8 prono, title from product where state='1' and nomflag='1' and picflag='1' order by sortnum desc, prono desc"
rs.Open sql,cn,0,1,1
do while not rs.EOF
%>
<td align="center">
<a href="products_display.asp?prono=<%=rs("prono")%>" target="_blank"><img src="admin/pic_display.asp?code=product&keyno=<%=rs("prono")%>" width="103" height="93" border="0" style="border:1px solid #000000;"></a>
<br></br>
<a href="products_display.asp?prono=<%=rs("prono")%>" target="_blank" class="a11"><font color="#990000">&l

rs.Open sql,cn,0,1,1
n=1
do while not rs.EOF
%>
<td align="center">
<a href="products_display.asp?prono=<%=rs("prono")%>" target="_blank"><img src="admin/pic_display.asp?code=product&keyno=<%=rs("prono")%>" width="103" height="93" border="0" style="border:1px solid #000000;"></a>
<br></br>
<a href="products_display.asp?prono=<%=rs("prono")%>" target="_blank" class="a11"><font color="#990000"><%=substr(rs("title"), 10)%></font></a>
</td>
<%
rs.MoveNext
if n=4 then
response.write "</tr><tr>"
end if
n=n+1
loop

for i=1 to 8
response.write(i)
if (i mode 4=0) and i<>8 then resp