📄 qqcf_admin.asp

📁 动态自定义报表,真正的中国式报表,可自行编辑
💻 ASP
字号:
<%
'==================================
' 乘风网址 v3.1
' 制　作：乘　风
' 开发网站：http://www.qqcf.com
' 程序演示：http://www.qqcf.com/?action=try
' 最新版本下载：http://www.qqcf.com/?action=down
' 声 明:	
' 本软件系免费程序,提供给个人免费使用,除保留版权外无其它任何限制。
' 我们为付费版用户提供升级服务和技术支持。
' 在程序首页保留乘风原创程序版权和链接的免费用户我们也提供一些的升级服务和技术支持。
' 未经作者许可禁止用于任何商业用途。
' 乘风网址功能：
' 1.同时支持Access和Mssql数据库
' 2.完全生成静态页面，包括每个网址转向页面
' 3.支持修改模板，支持二级栏目
' 4.自带4000多条网址数据，支持系统放在网站子目录
' 乘风其它作品：乘风多用户计数器.net,php,access,MsSql版、乘风电影程序、
'　　　　　　　 乘风网站推广系统、乘风广告管理系统、乘风论坛等。
' 此段版权注释不会影响网页打开速度，请勿删除!
'　　　　　　　　　　　2006年12月25日									
'===================================
%>
<!--#include file="Conn.asp"-->
<!--#include file="QQCF_MyFunction.asp"-->
<!--#include file="QQCF_Md5.asp"-->
<!--#include file="QQCF_Getcookie.asp"-->

<%IF Request("Action")="login" Then%>
<%
 Admin=GoBack(ChkStr(Request("Admin"),1),"请输入管理员名称")
 Password=GoBack(ChkStr(Request("Password"),1),"请输入管理员密码")
 Cookies_Time=CInt(ChkStr(Request("Cookies_Time"),2))

 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&GetMySet("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")
%>

<html>
<head>
<title>超级管理员入口</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="QQCF_Pic/style.css" rel="stylesheet" type="text/css">
</head>

<body topmargin="0" leftmargin="0">

<!--#include file="Top.asp"-->
        <br>
        
<table width="300" border="0" align="center" cellpadding="3" cellspacing="1" bordercolor="D6DFF5" bgcolor="D6DFF5">
  <tr bgcolor="D6DFF5"> 
    <td colspan="2"><div align="center">超级管理员入口：</div></td>
  </tr>
  <form name="form1" method="post" action="?action=login">
    <tr bgcolor="#FFFFFF"> 
      <td width="291"><div align="right">名称：</div></td>
      <td width="715"><input name="admin" type="text" id="admin3" size="15"></td>
    </tr>
    <tr bgcolor="#FFFFFF"> 
      <td><div align="right">密码：</div></td>
      <td><input name="password" type="password" id="password4" size="15"></td>
    </tr>
    <tr bgcolor="#FFFFFF"> 
      <td><div align="right">Cookies:</div></td>
      <td><select name="Cookies_time" id="Cookies_Time">
          <option value="0" selected>不保留</option>
          <option value="1440">保留一天</option>
          <option value="43200">保留一个月</option>
          <option value="15768000">保留一年</option>
        </select> </td>
    </tr>
    <tr bgcolor="#FFFFFF"> 
      <td colspan="2"> <div align="center"></div>
        <div align="left"> 　　　　　　　 
          <input type="submit" name="Submit" value="确定">
          　 
          <input type="reset" name="Submit523" value="取消">
        </div></td>
    </tr>
    <tr bgcolor="#FFFFFF">
      <td colspan="2"><div align="center"><a href="index.htm">返回首页</a></div></td>
    </tr>
  </form>
</table>

<br>
<!--#include file="Bottom.asp"-->
</body>
</html>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -