%if request("act")="login" then if request("lb")="per" then uname=replace(trim(request("uname")),"'","") pwd=replace(trim(request("pwd")),"'","") if trim(uname)="" then response.write "" Response.End elseif trim(pwd)="" then response.write "" Response.End end if set rs=server.createobject("adodb.recordset") sql="select * from basic where type=0 and pwd='"&pwd&"' and uname='"&uname&"'" rs.open sql,conn,1,3 if not(rs.bof and rs.eof) then if pwd=rs("pwd") then rs("click")=rs("click")+1 rs.update userip = Request.ServerVariables("HTTP_X_FORWARDED_FOR") If userip = "" Then userip = Request.ServerVariables("REMOTE_ADDR") set rsi=server.createobject("adodb.recordset") sql="select * from log " rsi.open sql,conn,1,3 rsi.addnew rsi("uname")=rs("uname") rsi("ltime")=now() rsi("ip")=userip rsi("type")=0 rsi.update session("uname")=rs("uname") session("lb")="per" set rs=server.createobject("adodb.recordset") sql="select * from per where uname='"&session("uname")&"'" rs.open sql,conn,1,1 if rs.eof then response.write "" end if response.Redirect"per/gcenter.asp" else call Error end if else call Error() end if sub Error() response.write "" Response.End end sub end if if request("lb")="com" then uname=replace(trim(request("uname")),"'","") pwd=replace(trim(request("pwd")),"'","") if trim(uname)="" then response.write "" Response.End elseif trim(pwd)="" then response.write "" Response.End end if set rs=server.createobject("adodb.recordset") sql="select * from basic where type=1 and pwd='"&pwd&"' and uname='"&uname&"'" rs.open sql,conn,1,3 if not(rs.bof and rs.eof) then if pwd=rs("pwd") then rs("click")=rs("click")+1 rs.update userip = Request.ServerVariables("HTTP_X_FORWARDED_FOR") If userip = "" Then userip = Request.ServerVariables("REMOTE_ADDR") set rsi=server.createobject("adodb.recordset") sql="select * from log " rsi.open sql,conn,1,3 rsi.addnew rsi("uname")=rs("uname") rsi("ltime")=now() rsi("ip")=userip rsi("type")=1 rsi.update session("uname")=rs("uname") session("lb")="com" set rsb=server.createobject("adodb.recordset") sql="select * from basic where type=1 and uname='"&session("uname")&"'" rsb.open sql,conn,1,1 set rs=server.createobject("adodb.recordset") sql="select * from com where uname='"&session("uname")&"'" rs.open sql,conn,1,1 if DateDiff("d",now(),dateadd("d",rs("slong"),rs("sdate")))<0 and (rsb("flag")=1 or rsb("flag")=2) then set rsd=server.createobject("adodb.recordset") sql="select * from basic where type=1 and uname='"&session("uname")&"'" rsd.open sql,conn,1,3 rsd("flag")=3 rsd.update end if set rsb=server.createobject("adodb.recordset") sql="select * from basic where type=1 and uname='"&session("uname")&"'" rsb.open sql,conn,1,1 set rs=server.createobject("adodb.recordset") sql="select * from com where uname='"&session("uname")&"'" rs.open sql,conn,1,1 if rsb("flag")="0" then response.write "" elseif rsb("flag")=1 or rsb("flag")=2 then if DateDiff("d",now(),dateadd("d",rs("slong"),rs("sdate")))<=5 then response.write "" end if elseif rsb("flag")=3 then response.write "" elseif rsb("flag")=4 then if rs("bank")<=10 then response.write "" elseif rs("bank")<2 then response.write "" end if end if response.Redirect"com/gcenter.asp" else call Error end if else call Error() end if sub Error() response.write "" Response.End end sub end if end if if request("act")="logout" then session("lb")="" session("uname")="" response.Redirect Request.ServerVariables("PATH_INFO") end if %>
![]() |
![]() |
|
||||||||||||||||||||||||||||||||||||||||||||
|
|
|
|||||||||||||||||||||||||||||||||||||||||||||
|
|
|
|||||||||||||||||||||||||||||||||||||||||||||
|
|
|
|||||||||||||||||||||||||||||||||||||||||||||
|
|
|
|||||||||||||||||||||||||||||||||||||||||||||
|
|
|
|
|
|||||||||||||||||||||||||||||||||||||||||||
|
|
|
|
|
|||||||||||||||||||||||||||||||||||||||||||
|
|
|||||||||||||||||||||||||||||||||||||||||||||
![]() |
|
|||||||||||||||||||||||||||||||||||||||||||||
|
|
|
|||||||||||||||||||||||||||||||||||||||||||||
![]() |
|
|||||||||||||||||||||||||||||||||||||||||||||
|
|
|
|||||||||||||||||||||||||||||||||||||||||||||
|
|
|
|||||||||||||||||||||||||||||||||||||||||||||
![]() |
|
|||||||||||||||||||||||||||||||||||||||||||||
|
|
||||||||||||||||||||||||||||||||||||||||||||||
|
|
|
|
|
|
|
|
|
|||||||||||||||||||||||||||||||||||||||