isljp 于 2013.09.07 13:18 提问
- 网站用户登录,重试/耗时。请问各位大神刚怎么解决。有赏解决。
-
网站前台用户登录的时候,一直线显示“第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 ifIf 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
%>