登陆出现问题求救

<[email=%@LANGUAGE=]%@LANGUAGE=\"VBSCRIPT[/email]\" CODEPAGE=\"65001\"%>
<% Option Explicit %>
<%Response.Charset=\"utf-8\"%>
<!--#include file=\"../Include/Const.asp\"-->
<!--#include file=\"../Include/ConnSiteData.asp\"-->
<!--#include file=\"../Include/Md5.asp\"-->
<%
if request.QueryString(\"Action\")=\"Out\" then
   session.contents.remove \"MemName\"
   session.contents.remove \"GroupID\"
   session.contents.remove \"GroupLevel\"
   session.contents.remove \"MemLogin\"
   response.redirect Cstr(request.ServerVariables(\"HTTP_REFERER\"))
   response.end
end if
Public ErrMsg(3)
   ErrMsg(0)=\"·登录名不正确，请返回。\"
   ErrMsg(1)=\"·登录密码不正确，请返回。\"
   ErrMsg(2)=\"·帐号非使用状态，请返回。\"
dim LoginName,LoginPassword,VerifyCode,MemName,Password,GroupID,GroupName,Working,rs,sql
LoginName=trim(request.form(\"LoginName\"))
LoginPassword=Md5(request.form(\"LoginPassword\"))
set rs = server.createobject(\"adodb.recordset\")
sql=\"select * from NwebCn_Members where MemName=\'\"&LoginName&\"\'\"
rs.open sql,conn,1,3
if rs.bof and rs.eof then
   WriteMsg(ErrMsg(0))
   response.end
else
   MemName=rs(\"MemName\")
   Password=rs(\"Password\")
   GroupID=rs(\"GroupID\")
   GroupName=rs(\"GroupName\")
   Working=rs(\"Working\")
end if
if LoginPassword<>Password then
   WriteMsg(ErrMsg(1))
   response.end
end if
if not Working then
   WriteMsg(ErrMsg(2))
   response.end
end if

if UCase(LoginName)=UCase(MemName) and LoginPassword=Password then
   rs(\"LastLoginTime\")=now()
   rs(\"LastLoginIP\")=Request.ServerVariables(\"Remote_Addr\")
   rs(\"LoginTimes\")=rs(\"LoginTimes\")+1
   rs.update
   rs.close
   set rs=nothing
   session(\"MemName\")=MemName
   session(\"GroupID\")=GroupID
   \'===========
   set rs = server.createobject(\"adodb.recordset\")
   sql=\"select * from NwebCn_MemGroup where GroupID=\'\"&GroupID&\"\'\"
   rs.open sql,conn,1,1
   session(\"GroupLevel\")=rs(\"GroupLevel\")
   rs.close
   set rs=nothing
  \'===========
   session(\"MemLogin\")=\"Succeed\"
   session.timeout=60
   response.redirect Cstr(request.ServerVariables(\"HTTP_REFERER\"))
   response.end
end if
%>


老是出现用户名不存在.但我的用户名是正确的.

帮忙顶起来.呵呵.

抢个地板咯

不会吧.就这样啊

应该把提交部分代码也贴上来 看看是否表单的对象名称错误。

可尝试在“rs.open sql,conn,1,3”上插入一行 “response.write sql:response.end()”捕捉下sql语句，查看获取的值是否正确，再在数据库中执行看看。这样操作对比下基本上是找到问题原因的。

谢谢各位我找出问题了.

看下语句错了没有啊