loop缺少do，什么意思啊？

[kinglang]

if request("user")<>"" and request("pwd")<>"" then
do while not rs.eof
if request("user")=rs("名字") and request("pwd")=rs("密码") then
rs.close
response.redirect("main.asp")
else
rs.movenext
loop do
response.write "您的用户名或者密码不对"
rs.close
end if
%>

Microsoft VBScript 编译器错误 错误 '800a040e'

'loop' 语句缺少 'do'

/txl/index.asp, 行24

loop do
^

[jenemery]

把DO去掉

[lj5858]

应该是
if request("user")<>"" and request("pwd")<>"" then
while not rs.eof
if request("user")=rs("名字") and request("pwd")=rs("密码") then
rs.close
wend

[kinglang]

去掉也是一样。

[kinglang]

按问号小生说的，错误就变成了：

Microsoft VBScript 编译器错误 错误 '800a0400'

缺少语句

/txl/index.asp, 行24

wend
^

[m1_1m]

DO去掉并加上end if
<%if request("user")<>"" and request("pwd")<>"" then
do while not rs.eof
if request("user")=rs("名字") and request("pwd")=rs("密码") then
rs.close
response.redirect("main.asp")
else
rs.movenext
end if'要加上
loop 'DO要去掉
response.write "您的用户名或者密码不对"
rs.close
end if
%>


或者
while not rs.eof
if request("user")=rs("名字") and request("pwd")=rs("密码") then
rs.close
response.redirect("main.asp")
else
rs.movenext
end if
wend

[lj5858]

哦，对了，忘加end if了~~~~：）

[dgseamaple]

改为这样:
if request("user")<>"" and request("pwd")<>"" then
do while not rs.eof
if request("user")=rs("名字") and request("pwd")=rs("密码" then
rs.close
response.redirect("main.asp")
else
response.write "您的用户名或者密码不对"
end if
rs.movenext
loop
rs.close
%>

[kinglang]

对了，正是差了一个end if .

真粗心。谢了。马上加分。