⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 qqcf_admin.asp

📁 物流管理系统
💻 ASP
字号:
🔍 
<%
'==================================
' 乘风多用户计数器v3.8
' 制　作：乘　风
' 开发网站：http://www.qqcf.com
' 程序演示：http://www.qqcf.com/?action=try
' 最新版本下载：http://www.qqcf.com/?action=down
' 声 明:	
' 本软件系免费程序,提供给个人免费使用,除保留版权外无其它任何限制。
' 我们为付费版用户提供升级服务和技术支持。
' 在程序首页保留乘风原创程序版权和链接的免费用户我们也提供一些的升级服务和技术支持。
' 未经作者许可禁止用于任何商业用途。
' 乘风多用户计数器特有的功能：
' 1.计数器数字图片和统计图标两种机制共存，众多设置可调。
' 2.Script脚本和Img非脚本两种方式调用计数器，Img非脚本方式计数器可以在任何能插入图片的地方使用。
' 3.独有的错误自动修复机制，能在计数器发生错误后自动修复。
' 4.完全杜绝并发线程容易对数据库造成的损坏，在流量大的网站上使用表现很稳定。
' 5.缓存机制，在缓存中保存数据，操作常见动作，大量减少对数据库的增加，删除频繁的操作。
' 6.稳定性、安全性、速度上表现都很优秀，功能齐全，代码集成程度高、完全公开，专业制作，完全免费。
' 乘风其它作品：乘风多用户计数器MsSql版、乘风多用户记数器php版、乘风电影程序、
'　　　　　　　 乘风网站推广系统、乘风网址程序，乘风广告管理系统、乘风论坛等。
' 此段版权注释不会影响网页打开速度，请勿删除!
'　　　　　　　　　　　2006年7月19日									
'===================================
%>
<!--#include file="QQCF_Conn.asp"-->
<!--#include file="QQCF_Chkstr.asp"-->
<!--#include file="QQCF_Myfunction.asp"-->
<!--#include file="QQCF_Md5.asp"-->
<%
IF Request("Action")="login" Then
 Admin=GoBack(Request("Admin"),"请输入管理员名称")
 Password=GoBack(Request("Password"),"请输入管理员密码")
 Cookies_Time=int(Request("Cookies_Time"))
 CheckCode=Trim(Request("CheckCode"))

 If Session("ValidCode")<>CheckCode Then Call AlertUrl("四位数字的验证码输入错误!","QQCF_Admin.asp")

 Set Rs = Server.CreateObject("ADODB.Recordset")
 Sql="Select * From WWW_QQCF_COM_CfCount_Admin where Admin='"&Admin&"'"
 rs.open sql,conn,1,1
 IF Rs.eof and Rs.bof Then Call AlertUrl("没有此管理员名称!","QQCF_Admin.asp")
 IF Rs("Password")<>Md5(Password) Then Call AlertUrl("密码错误!","QQCF_Admin.asp")

 Session("CfCountAdmin")="ok"
 Randomize
 RanNum=int(90000000*rnd)+10000000
 CfCountAdminCooKie=year(now)&month(now)&day(now)&hour(now)&minute(now)&second(now)&RanNum

 Ip = Request.ServerVariables("HTTP_X_FORWARDED_FOR")
 If Ip = "" Then Ip=Request.ServerVariables("REMOTE_ADDR")

 If Cookies_Time>0 Then
  Response.Cookies("CfCountAdminCookie")=CfCountAdminCookie
  Cookies_Time=Dateadd("n",Cookies_Time,Now())
  Response.Cookies("CfCountAdminCookie").expires=Cookies_Time
 End If

 Cookies_Time=Dateadd("d",365,Now())
 Response.Cookies("CfCountggCookie")="yes"
 Response.Cookies("CfCountggCookie").expires=Cookies_Time


 Sql="Update a_b_cCfCount_Admin Set Ip='"&Ip&"',LoginTotal=LoginTotal+1,LastLoginTime=#" &Now()&"#,Cookies='"&CfCountAdminCooKie&"'"
 Conn.ExeCute Sql

 Response.Redirect "QQCF_Admin_Manage.asp"
End If
%>


<HTML><HEAD><TITLE><%=RsSet("Title")%></TITLE>
<META http-equiv=Content-Type content="text/html; charset=gb2312">
<LINK href="QQCF_Pic/ok3.css" type=text/css rel=stylesheet>
 <script language=JavaScript>
function check()
{
  if(window.document.form1.admin.value=="")
  {
     alert("请输入管理员名称!");
	 window.document.form1.admin.focus();
	 return false;
  }
  if(window.document.form1.password.value=="")
  {
     alert("请输入管理员密码!");
	 window.document.form1.password.focus();
	 return false;
  }
 if(window.document.form1.checkcode.value=="")
  {
     alert("请输入四位数字的验证码!");
	 window.document.form1.checkcode.focus();
	 return false;
  }
  return true;
}

</script>
</HEAD>
<BODY leftMargin=0 topMargin=0 marginheight="0" marginwidth="0">
<TABLE cellSpacing=0 cellPadding=0 width=760 align=center border=0>
  <TBODY>
  <TR>
    <TD bgColor=#000000 colSpan=3><IMG height=1 
      src="QQCF_Pic/spacer.gif" width=1></TD></TR>
  <TR>
    <TD width=1 bgColor=#000000><IMG height=1 
      src="QQCF_Pic\spacer.gif" 
      width=1></TD>
    <TD bgColor=#ce3300 height=10><IMG height=1 
      src="QQCF_Pic\spacer.gif" 
      width=1></TD>
    <TD width=1 bgColor=#000000><IMG height=1 
      src="QQCF_Pic\spacer.gif" 
      width=1></TD></TR></TBODY></TABLE>
<TABLE cellSpacing=0 cellPadding=0 width=760 align=center bgColor=#ffffff 
border=0>
  <TBODY>
  <TR>
    <TD width=1 bgColor=#000000 height=12><IMG height=1 
      src="QQCF_Pic\spacer.gif" 
      width=1></TD>
    <TD width=10 bgColor=#ce3000><IMG height=1 
      src="QQCF_Pic\spacer.gif" 
      width=1></TD>
    <TD><IMG height=1 
      src="QQCF_Pic\spacer.gif" 
      width=1></TD>
    <TD width=40><IMG height=12 src="QQCF_Pic/ok3-3_r2_c15.gif" 
      width=40></TD>
    <TD width=200 bgColor=#ce3000><IMG height=1 
      src="QQCF_Pic\spacer.gif" 
      width=1></TD>
    <TD width=1 bgColor=#000000><IMG height=1 
      src="QQCF_Pic\spacer.gif" 
      width=1></TD></TR></TBODY></TABLE>
<TABLE cellSpacing=0 cellPadding=0 width=760 align=center bgColor=#ffffff 
border=0>
  <TBODY>
    <TR> 
      <TD width=1 bgColor=#000000><IMG height=1 
      src="QQCF_Pic\spacer.gif" 
      width=1></TD>
      <TD width=10 bgColor=#ce3000><IMG height=1 
      src="QQCF_Pic\spacer.gif" 
      width=1></TD>
      <TD width=14><IMG height=1 
      src="QQCF_Pic\spacer.gif" 
      width=1></TD>
      <TD><a href="http://www.qqcf.com" target="_blank"><IMG src="<%=RsSet("LogoUrl")%>" width="480" height="60" border="0"></a></TD>
      <TD width=10 bgColor=#ce3000><IMG height=1 
      src="QQCF_Pic\spacer.gif" 
      width=1></TD>
      <TD width=1 bgColor=#000000><IMG height=1 
      src="QQCF_Pic\spacer.gif" 
      width=1></TD>
    </TR>
  </TBODY>
</TABLE>
<TABLE height=6 cellSpacing=0 cellPadding=0 width=760 align=center 
bgColor=#ffffff border=0>
  <TBODY>
  <TR>
    <TD width=1 bgColor=#000000><IMG height=1 
      src="QQCF_Pic\spacer.gif" 
      width=1></TD>
    <TD width=10 bgColor=#ce3000><IMG height=1 
      src="QQCF_Pic\spacer.gif" 
      width=1></TD>
    <TD><IMG height=1 
      src="QQCF_Pic\spacer.gif" 
      width=1></TD>
    <TD width=10 bgColor=#ce3000><IMG height=1 
      src="QQCF_Pic\spacer.gif" 
      width=1></TD>
    <TD width=1 bgColor=#000000><IMG height=1 
      src="QQCF_Pic\spacer.gif" 
      width=1></TD></TR></TBODY></TABLE>
<TABLE height=28 cellSpacing=0 cellPadding=0 width=760 align=center border=0>
  <TBODY>
  <TR>
    <TD width=1 bgColor=#000000 height=12><IMG height=1 
      src="QQCF_Pic\spacer.gif" 
      width=1></TD>
    <TD width=10 bgColor=#ce3000><IMG height=1 
      src="QQCF_Pic\spacer.gif" 
      width=1></TD>
      <TD background=QQCF_Pic/ok3-1_r7_c2.jpg>&nbsp; </TD>
    <TD width=10 bgColor=#ce3000><IMG height=1 
      src="QQCF_Pic\spacer.gif" 
      width=1></TD>
    <TD width=1 bgColor=#000000><IMG height=1 
      src="QQCF_Pic\spacer.gif" 
      width=1></TD></TR></TBODY></TABLE>
<TABLE height=12 cellSpacing=0 cellPadding=0 width=760 align=center 
bgColor=#ffffff border=0>
  <TBODY>
  <TR>
    <TD width=1 bgColor=#000000><IMG height=1 
      src="QQCF_Pic\spacer.gif" 
      width=1></TD>
    <TD width=10 bgColor=#ce3000><IMG height=1 
      src="QQCF_Pic\spacer.gif" 
      width=1></TD>
    <TD><IMG height=1 
      src="QQCF_Pic\spacer.gif" 
      width=1>
        
<%
If Session("CfCountAdmin")="" Then
  If Request.Cookies("CfCountAdminCooKie")<>"" then
   CfCountAdminCooKie=Request.Cookies("CfCountAdminCooKie")
   If RsSet("Cookies")=CfCountAdminCooKie Then Session("CfCountAdmin")="ok"
  End If
End If
If Session("CfCountAdmin")="ok" Then Response.Redirect "QQCF_Admin_Manage.asp"%>
<br>
        <table width="300" border="0" align="center" cellpadding="5" cellspacing="1" bordercolor="D6DFF5" bgcolor="D6DFF5">
          <tr> 
            <td colspan="2" bgcolor="D6DFF5"><div align="center"><strong>超级管理员入口</strong></div></td>
          </tr>
          <form name="form1" method="post" action="?action=login" onsubmit="return check()">
            <tr> 
              <td width="291" bgcolor="#FFFFFF"><div align="right">名称：</div></td>
              <td width="715" bgcolor="#FFFFFF"><input name="admin" type="text" id="admin3" size="15"></td>
            </tr>
            <tr> 
              <td bgcolor="#FFFFFF"><div align="right">密码：</div></td>
              <td bgcolor="#FFFFFF"><input name="password" type="password" id="password4" size="15"></td>
            </tr>
            <tr> 
              <td bgcolor="#FFFFFF"><div align="right">Cookie：</div></td>
              <td bgcolor="#FFFFFF"><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>
                <TD bgcolor="#FFFFFF"><div align="right">验证码：</div></TD>
                <TD bgcolor="#FFFFFF"><INPUT id=checkcode type=text size=4 name=checkcode><IMG height=14 src="QQCF_CheckCode.Asp"></TD>
              </TR>
            <tr> 
              <td colspan="2" bgcolor="#FFFFFF"> <div align="center"> 
                  <input type="submit" name="Submit" value="确定">
                  　 
                  <input type="reset" name="Submit523" value="取消">
                </div></td>
            </tr>
          </form>
        </table>      


<div align="center"><br><a href="Index.asp">
  返回首页</a><br>

</div>

		
		</TD>
    <TD width=10 bgColor=#ce3000><IMG height=1 
      src="QQCF_Pic\spacer.gif" 
      width=1></TD>
    <TD width=1 bgColor=#000000><IMG height=1 
      src="QQCF_Pic\spacer.gif" 
      width=1></TD></TR></TBODY></TABLE>
<TABLE height=12 cellSpacing=0 cellPadding=0 width=760 align=center 
bgColor=#ffffff border=0>
  <TBODY>
  <TR>
    <TD width=1 bgColor=#000000><IMG height=1 
      src="QQCF_Pic\spacer.gif" 
      width=1></TD>
    <TD width=10 bgColor=#ce3000><IMG height=1 
      src="QQCF_Pic\spacer.gif" 
      width=1></TD>
    <TD><IMG height=1 
      src="QQCF_Pic\spacer.gif" 
      width=1></TD>
    <TD width=10 bgColor=#ce3000><IMG height=1 
      src="QQCF_Pic\spacer.gif" 
      width=1></TD>
    <TD width=1 bgColor=#000000><IMG height=1 
      src="QQCF_Pic\spacer.gif" 
      width=1></TD></TR></TBODY></TABLE>
<TABLE cellSpacing=0 cellPadding=0 width=760 align=center bgColor=#ffffff 
border=0>
  <TBODY>
  <TR>
    <TD width=1 bgColor=#000000 height=12><IMG height=1 
      src="QQCF_Pic\spacer.gif" 
      width=1></TD>
    <TD width=200 bgColor=#ce3000><IMG height=1 
      src="QQCF_Pic\spacer.gif" 
      width=1></TD>
    <TD width=41><IMG height=14 src="QQCF_Pic/ok3-3_r15_c12.gif" 
      width=41></TD>
    <TD vAlign=top width=373>
      <P align=center></P></TD>
    <TD vAlign=top width=133>
      <P align=center> </P></TD>
    <TD width=10 bgColor=#ce3000><IMG height=1 
      src="QQCF_Pic\spacer.gif" 
      width=1></TD>
    <TD width=1 bgColor=#000000><IMG height=1 
      src="QQCF_Pic\spacer.gif" 
      width=1></TD></TR></TBODY></TABLE>
<TABLE cellSpacing=0 cellPadding=0 width=760 align=center border=0>
  <TBODY>
  <TR>
    <TD width=1 bgColor=#000000 rowSpan=2><IMG height=1 
      src="QQCF_Pic\spacer.gif" 
      width=1></TD>
    <TD bgColor=#ce3300 height=5><IMG height=1 
      src="QQCF_Pic\spacer.gif" 
      width=1></TD>
    <TD width=1 bgColor=#000000 rowSpan=2><IMG height=1 
      src="QQCF_Pic\spacer.gif" 
      width=1></TD></TR>
  <TR>
    <TD bgColor=#ce3300 height=5>
      <P align=center> <A href="http://www.qqcf.com" target=_blank><FONT 
      color=#ffffff>乘风原创程序开发 [&nbsp;<%=RsSet("Title")%>&nbsp;]提供计数服务</FONT></A></FONT></A></P></TD></TR>
  <TR>
    <TD bgColor=#000000 colSpan=3><IMG height=1 
      src="QQCF_Pic/spacer.gif" width=1></TD></TR></TBODY></TABLE>
</BODY></HTML>

<%Call ConnClose()%>

⌨️ 快捷键说明

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