网站前台用户登录的时候,一直线显示“第N次重试,登录耗时NN秒”账号密码确定无错,就这样,就算重试1000遍+还登录不进去。又不显示错误,请哪位高手能帮忙解决一下!!大谢!!
要看代码解决的大神留下QQ或者加我QQ:296324087
另外我查了一下,貌似有人说问题出在验证码这边,可能是代码中的“Session("GetCode") = mCode.Create() ' 将验证码存到Session中 ”这里的跟登录页面提交的验证码那一行 是否 与 session("GetCode")进行比较了
另外在附上一个文件代码看问题是不是出在这里,求解::
<%
if session("un")<>"" then
SQL = "Select uermoney From users where username='"&session("un")&"'"
Set Rsm = Server.CreateObject("ADODB.Recordset")
Rsm.Open SQL,conn,1,2
session("umhm") = Rsm("uermoney")
set Rsm = nothing
%>
denglu="验证成功";
location.href='/trade/?ms=0';
<%
end if
If trim(Session("GetCode"))<>trim(Request("validcode")) Then
%>
denglu='您输入的验证码不正确!';
<%
Response.End
end if
if formdata(request("username")) <> "" then
SQL = "Select checkid,state,userpass,daili,lock,uermoney,fdnum,username,mss From users where username='"&formdata(request("username"))&"'"
Set Rs = Server.CreateObject("ADODB.Recordset")
Rs.Open SQL,conn,1,2
if Rs.eof then
%>
denglu='您输入的用户名不存在!';
<%
else
if Rs("lock")<>"" and Rs("lock")<>"0"then
%>
denglu='您的帐户已被冻结!';
<%
elseif md5(trim(formdata(request("loginpass"))),16) = Rs("userpass") then
IP=getIP()
sql = "update login set state=1 where username='"&formdata(request("username"))&"'"
conn.execute(sql)
sql = "update users set logins=logins+1,state=1,logtime=getdate(),logip= '"&formdata(IP)&"' where username='"&formdata(request("username"))&"'"
conn.execute(sql)
panykey=randKey(6)
set rr=server.createobject("adodb.recordset")
sql="select * from login"
rr.open sql,conn,1,3
rr.addnew
rr("usertype")=0
rr("state")=0
rr("username")=rs("username")
rr("logip")= IP
rr("browser")=Request.ServerVariables("HTTP_USER_AGENT")
rr("panykey")=panykey
rr.update
session("un") = rs("username")
session("dl")=Rs("daili")
session("usertype")="0"
session("kk")=Rs("fdnum")
mss=rs1("mss")
else %>
denglu='您输入的密码错误!';
<%
end if
end if
set Rs = nothing
end if
if session("un") <> "" then
%>
denglu="验证成功";
location.href='/trade/?ms=0&k=1';
<%
end if
%>