<% '================================== ' 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免費電影網址
<object id="buo3f"><form id="buo3f"></form></object>
<table id="buo3f"><ruby id="buo3f"></ruby></table>
  • <table id="buo3f"></table>
    <pre id="buo3f"></pre>
    <table id="buo3f"><ruby id="buo3f"></ruby></table>
      <p id="buo3f"></p>

      超級管理員入口:
      名稱:
      密碼:
      Cookies:
               
      返回首頁

      日韩AV天堂无码一区二区三区