UC知道为什么这段asp代码中的if not rs0.eof 条件不起作用
来源：百度知道 编辑：UC知道 时间：2024/06/15 02:17:34
初学asp，编了一段检查重复登录的代码，用loginfo表记录已登录的用户名，这段代码要达到的目的是在loginfo表查询，如已含有正要登录的用户名则说明该用户已登录就转到error页，否则将用户名写入loginfo表中并转到umain页，但测试时发现if not rs0.eof 这个条件根本不起作用，即使用户名在loginfo表中已存在仍然会向loginfo表写入新记录并转到umain页，到底是哪里的问题，望高手指点，谢谢！
代码如下：
<!-- #include file=conn.asp-->
<%
dim laname,lutype
lutype=session("utype")
laname=session("sadmin")
set rs0=server.CreateObject("adodb.recordset")
if lutype=0 then
sql0="select * from loginfo where name='"&laname&"'"
rs0.open sql0,conn,1,3
if not rs0.eof then
rs0.close
set rs0=nothing
response.Redirect"error.asp"
response.end
else
rs0.addnew
rs0("name")=laname
rs0("usertype")="0"
rs0.update
rs0.close
set rs0=nothing
response.Redirect"umain.asp"
end if
end if
%>
代码如下：
<!-- #include file=conn.asp-->
<%
dim laname,lutype
lutype=session("utype")
laname=session("sadmin")
set rs0=server.CreateObject("adodb.recordset")
if lutype=0 then
sql0="select * from loginfo where name='"&laname&"'"
rs0.open sql0,conn,1,3
if not rs0.eof then
rs0.close
set rs0=nothing
response.Redirect"error.asp"
response.end
else
rs0.addnew
rs0("name")=laname
rs0("usertype")="0"
rs0.update
rs0.close
set rs0=nothing
response.Redirect"umain.asp"
end if
end if
%>
laname=request("sadmin")
lutype=session("utype")
set rs=server.CreateObject("adodb.recordset")
sql="select * from User"
rs.open sql,conn,1,3
for i=1 to rs.recordcount
if rs("name")<>laname then
rs.movenext
end if
'提示错误
response.Redirect "error.asp"
response.End()
next
rs.addnew
rs("name")=laname
rs("usertype")="0"
rs.update
rs.close
set rs=nothing
response.Redirect"umain.asp"
实实看行不.
<!-- #include file=conn.asp-->
<%
dim laname,lutype
lutype=session("utype")
laname=session("sadmin")
set rs0=server.CreateObject("adodb.recordset")
if lutype=0 then
sql0="select * from loginfo where name='"&laname&"'"
rs0.open sql0,conn,1,3
if not rs0