登陆出现问题求救

iaoogu 发表于 2008-11-13 15:00:40

<%@LANGUAGE=\"VBSCRIPT\" CODEPAGE=\"65001\"%>
<% Option Explicit %>
<%Response.Charset=\"utf-8\"%>



<%
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
%>

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

b2b888 发表于 2008-11-13 20:56:12

帮忙顶起来.呵呵.

lqlovely 发表于 2008-11-13 23:37:57

ttioo7 发表于 2008-11-14 08:38:29

抢个地板咯

iaoogu 发表于 2008-11-14 14:53:53

不会吧.就这样啊

忆风发表于 2008-11-14 20:07:25

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

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

iaoogu 发表于 2008-11-16 09:40:17

谢谢各位我找出问题了.

长兴发表于 2008-12-2 14:16:21

看下语句错了没有啊

页: [1]

搜虎精品社区's Archiver

登陆出现问题求救

帮忙顶起来.呵呵.