<% '================================== ' 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:
         
返回首页