淩晨乄无敌模式

<% if Request.QueryString("save")=1 then dim rs,sql,username,password username=requeststr("username",2,2) password=md5(requeststr("password",2,2)) if not IsObject(conn) then LinkData end if Set rs = Server.CreateObject("ADODB.Recordset") sql="select top 1 * from users where username='"&username&"'" rs.open sql,conn,1,3 if rs.BOF and rs.EOF then Response.Write "

用户名或密码错误

" rs.Close set rs=nothing closedata else if rs("userpassword")=password then if rs("isclose")=true then Response.Write "

帐号被锁定

" rs.Close set rs=nothing closedata else session("username")=username session("password")=password session("userid")=rs("userid") if rs("userweb")=true then session("jionweb")=rs("userid") else if rs("jionwebsh")=true then session("jionweb")=rs("jionweb") else session("jionweb")=0 end if end if rs("loginnum")=rs("loginnum")+1 if datediff("n",rs("lastlogintime"),now())>60 then rs("userscore")=rs("userscore")+1 end if rs("lastlogintime")=now() rs("lastip")=getIP() rs.Update rs.Close set rs=nothing closedata Response.Write "" Response.Write "登陆成功,正在进入我的公会..." end if else Response.Write "

用户名或密码错误

" rs.Close set rs=nothing closedata end if end if else %> 淩晨乄无敌模式

首页

公会新闻

公会公告

公会相册

我的博客

公会论坛

朋友圈

网站DKP系统

╔╦╗╔╦╗╔╦╗╔╦╗╔╦╗╔╦╗

╠歡╣╠迎╣╠光╣╠临╣╠淩╣╠晨╣

╚╩╝╚╩╝╚╩╝╚╩╝╚╩╝╚╩╝