<% '================================== ' 816網址導航 v3.0 '=================================== %> <%IF Request("Action")="login" Then%> <% Admin=Request("Admin") Password=Request("Password") Cookies_Time=int(Request("Cookies_Time")) IF Admin="" Then Call AlertBack("請輸入管理員名稱",1) IF Password="" Then Call AlertBack("請輸入管理員密碼",1) Set Rs = Server.CreateObject("ADODB.RecordSet") Sql="Select * From WWW_QQCF_COM_CFWZ_Admin where Admin='"&Admin&"'" rs.open sql,conn,1,1 IF Rs.eof and Rs.bof Then Call AlertBack("沒有此管理員名稱!",1) IF Rs("Password")<>Md5(Password) Then Call AlertBack("密碼錯誤!",1) Session("CfWZAdmin")="ok" Randomize RanNum=Int(90000000*Rnd)+10000000 CfWzAdminCooKie="Admin"&Admin&year(now)&month(now)&day(now)&hour(now)&minute(now)&second(now)&RanNum If Cookies_Time>0 Then Response.Cookies("CfWzAdminCooKie")=CfWzAdminCooKie Response.Cookies("CfWzAdminCheckCooKie")=Md5(CfWzAdminCooKie&SysCode) Cookies_Time=Dateadd("n",Cookies_Time,Now()) Response.Cookies("CfWzAdminCooKie").expires=Cookies_Time Response.Cookies("CfWzAdminCheckCooKie").expires=Cookies_Time End If Sql="Update WWW_QQCF_COM_CFWZ_Admin Set Cookies='"&CfWzAdminCooKie&"'" Conn.ExeCute Sql Response.Redirect "QQCF_Admin_Manage.asp" End If If Session("CfWZAdmin")="ok" then Call GoToUrl("QQCF_Admin_Manage.asp") %> 816網址導航-提供各種音樂電影網址,QQ工具網址,MP3.FLASH網址,百度搜索集,星星音樂谷,816免費電影網址
超級管理員入口:
名稱:
密碼:
Cookies:
         
返回首頁

黑龙江36选7开奖中奖规则 网络信贷理财平台 上海体彩十一选五前三直 北京快三官方开奖 股票配资平台一直牛 江西快三专家推荐号码 股票发行价格 今日甘肃快三推荐号码 1万炒股一年最多挣多少 云南11选5的最好方法l 北京快乐8最新开奖结果查询