循环判断的问题

[afeng888]

当格式为：
1 2
时正常
当格式为：
1 2
3
时出错，代码如下：
<%set rs3=server.CreateObject("adodb.recordset")
sql="select DISTINCT Book_HY from Book order by Book_HY "
rs3.open sql,conn,1,1
%>
<table width="165" border="0" align="center">
<tr>
<td width="200">
<%do while not rs3.eof%>
<a href=Index_HY.asp?Book_HY=<%=rs3("Book_HY")%>>
<%
select case rs3("Book_HY")
case "200300101"
response.write"1"
case "200300102"
response.write"2"
case"200300103"
response.write"3"
end select
%>
</a>
<%
rs3.movenext
%>
<a href=Index_HY.asp?Book_HY=<%=rs3("Book_HY")%>>
<%
select case rs3("Book_HY")
case"200300101"
response.write"1"
case"200300102"
response.write"2"
case"200300103"
response.write"3"
end select
%>

</a> <br>
<%
rs3.movenext
loop
%>
</td>
</tr>
</table>
'-----------------------------------------------------------------
<%set rs4=server.CreateObject("adodb.recordset")
sql1="select DISTINCT Book_ZT from Book order by Book_ZT "
rs4.open sql1,conn,1,1
%>
<table width="165" border="0" align="center">
<tr>
<td width="200">
<%do while not rs4.eof%>
<a href=Index_ZT.asp?Book_ZT=<%=rs4("Book_ZT")%>>
<%
select case rs4("Book_ZT")
case "200300201"
response.write"a"
case "200300202"
response.write"b"
case"200300203"
response.write"c"

end select

%>
</a>
<%
rs4.movenext
%>
<a href=Index_ZT.asp?Book_ZT=<%=rs4("Book_ZT")%>>
<%
select case rs4("Book_ZT")
case "200300201"
response.write"a"
case "200300202"
response.write"b"
case"200300203"
response.write"c"
end select
%>

</a> <br>
<%
rs4.movenext
loop
%>

[afeng888]

救命啊

[afeng888]

帮帮忙啊兄弟们，钱少可以加啊

[afeng888]

兄弟姐妹们，救命啊

[61]

<%
set rs3=server.CreateObject("adodb.recordset")
sql="select DISTINCT Book_HY from c order by Book_HY "
rs3.open sql,conn,1,3
%>
<table width="165" border="0" align="center">
<tr>
<td width="200">
<%while not rs3.eof%>
<a href=Index_HY.asp?Book_HY=<%=rs3("Book_HY")%>>
<%
select case rs3("Book_HY")
case "200300101"
response.write "1"
case "200300102"
response.write "2"
case "200300103"
response.write "3"
end select
%>
</a>
<%
rs3.movenext
%>
<a href=Index_HY.asp?Book_HY=<%=rs3("Book_HY")%>>
<%
select case rs3("Book_HY")
case "200300101"
response.write"1"
case "200300102"
response.write"2"
case "200300103"
response.write"3"
end select
%>
</a> <br>
<%
rs3.movenext
wend
%>
</td>
</tr>
</table>

[afeng888]

情况是这样的，在数据表里有两个字段book_HY、Book_ZT，Book_hy的字段里是200300101-200300109，其中有重复记录，book_ZT是200300201-200300211，也有重复，我想显示在页面上的方式如下：
book_hy
1 2
3 4
5 6
....
book_zt
1 2
3 4
5 6
....
但是上边的代码实现不了

[61]

<%
set rs3=server.CreateObject("adodb.recordset")
sql="select DISTINCT Book_HY from Book order by Book_HY "
rs3.open sql,conn,1,3
%>
<table width="165" border="0" align="center">
<tr>
<%i=0
while not rs3.eof%>
<%
i=i+1
if i>3 then
response.write "</tr><tr>"
i=1
end if
%>
<a href=Index_HY.asp?Book_HY=<%=rs3("Book_HY")%>"
<%
select case rs3("Book_HY")
case "200300101"
response.write "1"
case "200300102"
response.write "2"
case "200300103"
response.write "3"
end select
%>
</a></td>
<%
rs3.movenext
wend
%>
</table>

[xiaoliou]

晕!
说但别的，楼主的信誉分怎么这么低?

[avonqin]

每行2个，共5行显示？

[avonqin]

<%
rs3.movenext
if not rs3.eof then '要加上这句判断才可以（输出完rs3数据后记得加end if判断结束）
%>


<%
rs4.movenext
if not rs4.eof then '一样要加上这句判断才可以（输出完rs4数据后记得加end if判断结束）
%>

[1蓝天1]

up