大家好，我想让图片显示3行3列，下面是部分主要代码，总是提示错误的 'Next',line 55 我不知道错在哪里了，请大家帮帮忙！

<%
Set rs=Server.CreateObject("ADODB.Recordset")
rs.open "select * from products order by id desc",conn,3,1
sumcount=rs.recordcount
if sumcount=0 then
response.Write("no list")
else
page=trim(request("page"))
if page=""then
page=1
end if
rs.pagesize=9
page=cint(page)
if page<1 then page=1
if page>rs.pagecount then page=rs.pagecount
intPageCount = rs.PageCount
rs.Absolutepage=page
%>

<table width="673" border="0" cellpadding="0" cellspacing="0" align="center" style="font-size:12px ">
<% for m=1 to 3 %>
<tr>
<%if rs.eof then %>
暂时还没有。
<%else%>
<% for n=1 to 3
if not rs.eof then
%>
这行显示的是图片及图片名称
<% end if
rs.movenext
next
%>
</tr>
<% next
rs.close
set rs=nothing
%>

[此贴子已经被作者于2007-9-15 11:43:17编辑过]

[QUOTE]大家好，我想让图片显示3行3列，下面是部分主要代码，总是提示错误的 'Next',line 55 我不知道错在哪里了，请大家帮帮忙！[/QUOTE]
少写了个NEXT
一个FOR配一个NEXT

哪里少呢？可以具体点吗？谢了！

<% for m=1 to 3 %>
<tr>
<%if rs.eof then %>
暂时还没有。
<%else%>
<% for n=1 to 3
if not rs.eof then
%>
这行显示的是图片及图片名称
<% end if
rs.movenext
next
%>
</tr>
<% next
rs.close
set rs=nothing
%>

if page=""(这里少个空格)then
page=1
end if

还少2个END IF

[此贴子已经被作者于2007-9-15 12:39:02编辑过]

这行显示的是图片及图片名称
<% end if
rs.movenext
next
%>
是这行的错误，改为
<% rs.movenext
end if
next
end if
%>
这样就对了.

<% set rs=server.CreateObject("adodb.recordset")
strsql="select * from web_pic where Classid=2 order by id desc"
rs.open strsql,conn,3,3
if rs.bof and rs.eof then
%>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="25">&nbsp;&nbsp;&nbsp;&nbsp;对不起,该类暂时没有任何信息!</td>
</tr>
</table>
<p>
<%else
rs.pagesize=12
if pagecount>rs.pagecount or pagecount<=0 then
pagecount=1
end if
rs.AbsolutePage=pagecount
i=1
%>
</p><br>
<% do while not rs.eof %>
<table width="90%" border="0" cellpadding="0" cellspacing="0">
<tr>
<td><table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td align="center" valign="top"><a href="jyzx.asp?action=look&ID=<%=rs("ID")%>"><img src="admin/image/<%=rs("pic")%>" width="100" border="0" alt="<%=rs("Topic")%>"></a></td>
</tr>
<tr>
<td height="30" align="center"><%=rs("Topic")%></td>
</tr>
</table></td>
<%
i=i+1
rs.movenext
if not rs.eof then
%>
<td><table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td align="center" valign="top"><a href="jyzx.asp?action=look&ID=<%=rs("ID")%>"><img src="admin/image/<%=rs("pic")%>" width="100" border="0" alt="<%=rs("Topic")%>"></a></td>
</tr>
<tr>
<td height="30" align="center"><%=rs("Topic")%></td>
</tr>
</table></td>
<%
i=i+1
rs.movenext
if not rs.eof then
%>
<td><table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td align="center" valign="top"><a href="jyzx.asp?action=look&ID=<%=rs("ID")%>"><img src="admin/image/<%=rs("pic")%>" width="100" border="0" alt="<%=rs("Topic")%>"></a></td>
</tr>
<tr>
<td height="30" align="center"><%=rs("Topic")%></td>
</tr>
</table></td>
<%
i=i+1
rs.movenext
if not rs.eof then
%>
</tr>
<% i=i+1
rs.movenext
if i>=rs.PageSize+1 then exit do
end if
end if
end if
loop
%>

这是我个人的做法

好象你少了很多的END IF！检查一下！