我快疯了！！快来帮我看看这段asp代码！！
不加doloop一切都挺正常加了就出错！代码如下：<!DOCTYPEhtmlPUBLIC"-//W3C//DTDXHTML1.0Transitional//EN""htt...
不加do loop 一切都挺正常 加了就出错！代码如下：
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>明细</title>
<style type="text/css">
<!--
#Layer1 {
position:absolute;
left:267px;
top:161px;
width:301px;
height:64px;
z-index:1;
}
-->
</style>
</head>
<% dim x
request("lxname")
if request("lxname") <> "" then
x=request("lxname")
set conn=server.createobject("ADODB.connection")
conn.open "DRIVER=Driver do Microsoft Access (*.mdb);UID=sa;PWD=1qaz@wsx;DBQ="&Server.MapPath("../lx.mdb")
set rst=server.CreateObject("ADODB.recordset")
sql="select * from lxuser where id="+x
rst.open sql,conn,1,1
end if
%>
<body>
<div id="Layer1">
<table border="2">
<tr><td>会员名</td><td>密码</td><td>是否男</td></tr>
<%do while Not rst.EOF%>
<TR><TD><%=rst("lxname")%></TD><TD><%=rst("lxcode")%></TD><TD><%=rst("lxsex")%></TD></TR>
<%loop %>
</table></div>
<%
rst.close
set rst=nothing
conn.close
set conn=nothing
%>
</body>
</html>
我这是按金鹰教程上一步步做下来的呀？不好意思 那个res.movenext是我调整的时候 忘加上去了，不是它的事！
高手们 你们的答案都不对呀！请试试过再回答好吗？ 展开
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>明细</title>
<style type="text/css">
<!--
#Layer1 {
position:absolute;
left:267px;
top:161px;
width:301px;
height:64px;
z-index:1;
}
-->
</style>
</head>
<% dim x
request("lxname")
if request("lxname") <> "" then
x=request("lxname")
set conn=server.createobject("ADODB.connection")
conn.open "DRIVER=Driver do Microsoft Access (*.mdb);UID=sa;PWD=1qaz@wsx;DBQ="&Server.MapPath("../lx.mdb")
set rst=server.CreateObject("ADODB.recordset")
sql="select * from lxuser where id="+x
rst.open sql,conn,1,1
end if
%>
<body>
<div id="Layer1">
<table border="2">
<tr><td>会员名</td><td>密码</td><td>是否男</td></tr>
<%do while Not rst.EOF%>
<TR><TD><%=rst("lxname")%></TD><TD><%=rst("lxcode")%></TD><TD><%=rst("lxsex")%></TD></TR>
<%loop %>
</table></div>
<%
rst.close
set rst=nothing
conn.close
set conn=nothing
%>
</body>
</html>
我这是按金鹰教程上一步步做下来的呀？不好意思 那个res.movenext是我调整的时候 忘加上去了，不是它的事！
高手们 你们的答案都不对呀！请试试过再回答好吗？ 展开
展开全部
如果接受到的lxname为空,那么肯定会报错,应该把end if 调后面
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>明细</title>
<style type="text/css">
<!--
#Layer1 {
position:absolute;
left:267px;
top:161px;
width:301px;
height:64px;
z-index:1;
}
-->
</style>
</head>
<% dim x
request("lxname")
if request("lxname") <> "" then
x=request("lxname")
set conn=server.createobject("ADODB.connection")
conn.open "DRIVER=Driver do Microsoft Access (*.mdb);UID=sa;PWD=1qaz@wsx;DBQ="&Server.MapPath("../lx.mdb")
set rst=server.CreateObject("ADODB.recordset")
sql="select * from lxuser where id="+x
rst.open sql,conn,1,1
if not (rs.eof and rs.bof) then
%>
<body>
<div id="Layer1">
<table border="2">
<tr><td>会员名</td><td>密码</td><td>是否男</td></tr>
<%do while Not rst.EOF%>
<TR><TD><%=rst("lxname")%></TD><TD><%=rst("lxcode")%></TD><TD><%=rst("lxsex")%></TD></TR>
<%loop %>
</table></div>
<%
rst.close
set rst=nothing
conn.close
set conn=nothing
%>
</body>
</html>
<% else
response.write "没有此ID的用户"
end if
end if %>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>明细</title>
<style type="text/css">
<!--
#Layer1 {
position:absolute;
left:267px;
top:161px;
width:301px;
height:64px;
z-index:1;
}
-->
</style>
</head>
<% dim x
request("lxname")
if request("lxname") <> "" then
x=request("lxname")
set conn=server.createobject("ADODB.connection")
conn.open "DRIVER=Driver do Microsoft Access (*.mdb);UID=sa;PWD=1qaz@wsx;DBQ="&Server.MapPath("../lx.mdb")
set rst=server.CreateObject("ADODB.recordset")
sql="select * from lxuser where id="+x
rst.open sql,conn,1,1
if not (rs.eof and rs.bof) then
%>
<body>
<div id="Layer1">
<table border="2">
<tr><td>会员名</td><td>密码</td><td>是否男</td></tr>
<%do while Not rst.EOF%>
<TR><TD><%=rst("lxname")%></TD><TD><%=rst("lxcode")%></TD><TD><%=rst("lxsex")%></TD></TR>
<%loop %>
</table></div>
<%
rst.close
set rst=nothing
conn.close
set conn=nothing
%>
</body>
</html>
<% else
response.write "没有此ID的用户"
end if
end if %>
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
展开全部
都没有用rst.movenext,怎么能移动到 rst.EOF去呢？循环无法结束，至少也会超时吧。而且你的查询应该是只返回一条记录才对，为什么要用循环？
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
展开全部
将do while Not rst.EOF改成DO WHILE rst.EOF = False试试
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
展开全部
<%do while Not rst.EOF%>
<TR><TD><%=rst("lxname")%></TD><TD><%=rst("lxcode")%></TD><TD><%=rst("lxsex")%></TD></TR>
<%
rst.movenext
loop
%>
<TR><TD><%=rst("lxname")%></TD><TD><%=rst("lxcode")%></TD><TD><%=rst("lxsex")%></TD></TR>
<%
rst.movenext
loop
%>
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
展开全部
同意amboxy的回答，没有移动到下一条
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
更多回答（3）
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
