Question

asp 查询结果一表格形式输出

<%
Set rslist = Server.CreateObject("ADODB.Recordset")
sql="select Title from Aboutus order by Aboutusorder"
rslist.open sql,conn,1,3%>
<tr>
<td height="20" valign="top"><div align="left"><a href="Aboutus.asp?Title=<%=rslist("Title")%>">

<tr>
<%
for j=0 to 1
%>
<td> <%=rslist("Title")%></td>
<%
rslist.movenext
if rslist.eof then
if (rslist.recordcount mod 2=1) then response.write("<td> </td>")
exit for
next
%>
</tr>
<%
If rslist.EOF Then Exit For
Next
%>
</a></div> 提示 next错误 希望高手指点下

Answer 1

你这段语句问题很多，也许你没粘贴全吧。1、第一行的<tr><td>后面都没有闭合，这样虽然不报错，但是显示出来的格式会面目全非。2、第一个if语句是块if语句，必须有end if，好像也没有，这样程序会报错。3、你只有一个for循环，且只循环两次，应该是只是显示一行的。前面应该还有for。<%
Set rslist = Server.CreateObject("ADODB.Recordset")
sql="select Title from Aboutus order by Aboutusorder"
rslist.open sql,conn,1,3do while not rs.eof
%>
<tr>

<%
for j=0 to 1
%>
<td height="20" valign="top" align="left"><a href="Aboutus.asp?Title=<%=rslist("Title")%>"><%=rslist("Title")%></a></td>
<%
rslist.movenext
if rslist.eof then
if (rslist.recordcount mod 2=1) then response.write("<td> </td>")
exit for
end ifnext
%>
</tr>
<%
loop
%>

Answer 2

只有一个for,但是后面有两个地方有next啊，错误很明显啊。