请帮我看ASP查错

来源：百度知道 编辑：UC知道 时间：2024/06/27 12:25:25
<%
mylost=request("myteam")
set conn=server.createobject("ADODB.Connection")
conn.Open("driver={Microsoft Access Driver (*.mdb)};dbq="&_
Server.MapPath("nba.mdb"))
set rs=server.createobject("adodb.recordset")
sql="select * from vs1 where lteam='"&mylost&"'"
rs.open sql,conn
for i=0 to rs.recordcount-1
if rs.eof or rs.bof then exit for

%>
<html>

<%=rs("lteam")%>负于<%=rs("wteam")%>
<A HREF="delete.asp?lteam=<%=rs("lteam")%>">删除</A>
<A HREF="ok.asp?lteam=<%=rs("lteam")%>&wteam=<%=rs("wteam")%>">确认</A>

</html>
<%

rs.movenext()
next
rs.close
conn.close
%>

有记录的呀,但就是转到后没任何显示,也没报错,看不出哪错了

把rs.open sql,conn改成rs.open sql,conn,1,1
默认的游标类型 rs.recordcount为-1的

<html>
<%
mylost=request("myteam")
set conn=server.createobject("ADODB.Connection")
conn.Open("driver={Microsoft Access Driver (*.mdb)};dbq="&Server.MapPath("nba.mdb"))
set rs=server.createobject("adodb.recordset")
sql="select * from vs1 where lteam='"&mylost&"'"
rs.open sql,conn,1,1
do while not rs.eof
%>
<%=rs("lteam")%>负于<%=rs("wteam")%>
<A HREF="delete.asp?lteam=<%=rs("lteam")%>">删除</A>
<A HREF="ok.asp?lteam=<%=rs("lteam")%>&wteam=<%=rs("wteam")%>">确认</A> <hr />
<%
rs.movenext
loop
rs.close
conn.close
%>
</html>

覆盖刷新看效果。

PS：提供建站开发服务，有需要的朋友可百度HI我。