循环判断的问题
当格式为:
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
%>