UC知道ASP代码提示缺少 'Loop'
来源：百度知道 编辑：UC知道 时间：2024/06/07 08:30:04
首先先谢谢你能进来看到这篇文章，
我也是刚开始接触asp+access能帮我看下怎样解决是我最大荣幸。
我先把代码贴出来
<%
sqllar = "select MidCode from Db_ProdClass"
set rs=Server.CreateObject("ADODB.RecordSet")
rs.open sqllar,conn,1,1
if rs.eof and rs.bof
thenresponse.write "暂无信息"
else
Do While Not rs.eof
%>
<div>【<%=RS("midcode")%>】</div>
<%sqllar = "select MidCode,ProdNum,ProdName FROM Db_prodmain where MidCode='"&midcode&"' order by addDate"
Set rs1=Server.CreateObject("ADODB.RecordSet")
rs1.Open sqllar,conn,1,1 if rs1.bof and rs1.eof
thenresponse.write "暂无产品信息"
else
Do While Not rs.eof
%>
<A href="product_view.asp?ProdNum=<%=Cstr(rs1("ProdNum"))%>"><%=left(rs1("ProdName"),12)%></A>
<%
rs.movenext
loop
set
我也是刚开始接触asp+access能帮我看下怎样解决是我最大荣幸。
我先把代码贴出来
<%
sqllar = "select MidCode from Db_ProdClass"
set rs=Server.CreateObject("ADODB.RecordSet")
rs.open sqllar,conn,1,1
if rs.eof and rs.bof
thenresponse.write "暂无信息"
else
Do While Not rs.eof
%>
<div>【<%=RS("midcode")%>】</div>
<%sqllar = "select MidCode,ProdNum,ProdName FROM Db_prodmain where MidCode='"&midcode&"' order by addDate"
Set rs1=Server.CreateObject("ADODB.RecordSet")
rs1.Open sqllar,conn,1,1 if rs1.bof and rs1.eof
thenresponse.write "暂无产品信息"
else
Do While Not rs.eof
%>
<A href="product_view.asp?ProdNum=<%=Cstr(rs1("ProdNum"))%>"><%=left(rs1("ProdName"),12)%></A>
<%
rs.movenext
loop
set
<%
sqllar = "select MidCode from Db_ProdClass"
set rs=Server.CreateObject("ADODB.RecordSet")
rs.open sqllar,conn,1,1
if rs.eof and rs.bof
thenresponse.write "暂无信息"
else
Do While Not rs.eof
%>
<div>【<%=RS("midcode")%>】</div>
<%sqllar = "select MidCode,ProdNum,ProdName FROM Db_prodmain where MidCode='"&midcode&"' order by addDate"
Set rs1=Server.CreateObject("ADODB.RecordSet")
rs1.Open sqllar,conn,1,1
if rs1.bof and rs1.eof then
response.write "暂无产品信息"
else
Do While Not rs1.eof
%>
<A href="product_view.asp?ProdNum=<%=Cstr(rs1("ProdNum"))%>"><%=left(rs1("ProdName"),12)%></A>
<%
rs1.movenext
loop
end if
rs.movenext
loop
set rs=no