Question

asp图片换行要求3行4列

<%
sql="select prono,title,nomflag,picflag from product where nomflag='1' and state='1' order by nomflag desc"
rs.Open sql,cn,1,1,1
do while not rs.EOF
%>
<TABLE cellSpacing=5 cellPadding=0 width="18%" border=0>
<TBODY>
<TR>
<TD><TABLE cellSpacing=0 cellPadding=0 width=166 align=center
border=0>
<TBODY>
<TR>
<TD width="166"><a href="product_display.asp?keyno=<%=rs("prono")%>"><img src="admin/pic_display.asp?code=product&keyno=<%=rs("prono")%>" width="200" height="150" border="0"></a></TD>
</TR>

<TR>
<TD class=green style="PADDING-TOP: 5px"
align=middle>名称：<a href="product_display.asp?keyno=<%=rs("prono")%>" class="a02"><%if len(rs("Title")) > 10 then Response.write left(rs("Title"),9)&"..." else Response.write rs("Title") end if%></a></TD>
</TR>
</TBODY>
</TABLE></TD>
</TR>
</TBODY>
</TABLE>
<%

rs.MoveNext
loop
rs.Close
%>
错误类型：
Microsoft VBScript 编译器错误 (0x800A03F9)
缺少 'Then'
/lxs/web/default.asp, line 730, column 5
if I mode 4 = 0 Then Response.write("</tr><tr>")
----^ 楼下的

Answer 1

<%
Set rs = Server.CreateObject("ADODB.RecordSet")
sql="select Top 12 prono,title,nomflag,picflag from product where nomflag='1' and state='1' order by nomflag desc" '这里查12条。因为三行四列只有12个
rs.Open sql,cn,1,1,1
if Not rs.Eof then
i = 0
%>
<TABLE cellSpacing=5 cellPadding=0 width="18%" border=0>
<TBODY>
<TR>
<%do while not rs.EOF
i = i + 1%>
<TD>

<TABLE cellSpacing=0 cellPadding=0 width=166 align=center
border=0>
<TBODY>
<TR>
<TD width="166"><a href="product_display.asp?keyno=<%=rs("prono")%>"><img src="admin/pic_display.asp?code=product&keyno=<%=rs("prono")%>" width="200" height="150" border="0"></a></TD>
</TR>

<TR>
<TD class=green style="PADDING-TOP: 5px"
align=middle>名称：<a href="product_display.asp?keyno=<%=rs("prono")%>" class="a02"><%if len(rs("Title")) > 10 then Response.write left(rs("Title"),9)&"..." else Response.write rs("Title") end if%></a></TD>
</TR>
</TBODY>
</TABLE>

</TD> <%
if I mod 4 = 0 Then Response.write("</tr><tr>") '这里设置换行。
rs.MoveNext
loop %>
</TR>
</TBODY>
</TABLE>
<%

End if
rs.Close
Set rs = Nothing
%>

不好意思,刚才把mod打成了mode了.见笑了!!

Answer 2

是i mod 4 = 0