📄 qqcf_admin_manage.asp

📁 物流管理系统
💻 ASP
📖 第 1 页 / 共 5 页
字号:
12 3 4 5 下一页
<%
'==================================
' 乘风多用户计数器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日									
'===================================
%>
<%Response.Expires= -1
Response.Addheader "pragma","no-cache"
Response.AddHeader "cache-control","no-store"
%>
<!--#include file="QQCF_Conn.asp"-->
<!--#include file="QQCF_Chkstr.asp"-->
<!--#include file="QQCF_Myfunction.asp"-->
<!--#include file="QQCF_Md5.asp"-->
<%
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")="" Then
 Response.Cookies("CfCountAdminCookie")=""
 Call AlertUrl("请重新登陆!","QQCF_Admin.asp")
End if
%>
<!--#Include File="QQCF_Admin_Manage_Do.asp"-->

<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>

<%
If RsSet("eamilsendtype")=1 Then
 show="show_1()"
ElseIf RsSet("eamilsendtype")=2 Then
 show="show_2()"
End If
%>
</HEAD>
<BODY leftMargin=0 topMargin=0 marginheight="0" marginwidth="0"<%If Request("Action")="sysset" Then Response.Write " onload="&show%>>
<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 valign="top" background=QQCF_Pic/ok3-1_r7_c2.jpg><table width="730" border="0" align="center" cellpadding="3" cellspacing="1" bordercolor="#6681D9" bgcolor="#6681D9">
          <tr bgcolor="#e8e8e8"> 
            <td><div align="center"><strong><a href="?Action=sysstate">系统状态</a></strong></div></td>
            <td><div align="center"><strong><a href="?Action=userlist">注册用户</a></strong></div></td>
            <td><div align="center"><strong><a href="?Action=daytj">每日统计</a></strong></div></td>
            <td><div align="center"><strong><a href="?Action=lylist">页面来源</a></strong></div></td>
            <td><div align="center"><strong><a href="?Action=mdbdo">数据库操作</a></strong></div></td>
            <td><div align="center"><a href="?Action=sysset"><strong>系统设置</strong></a></div></td>
            <td><div align="center"><strong><a href="?Action=searchset">搜索引擎设置</a></strong></div></td>
            <td><div align="center"><strong><a href="?Action=modifypwd">修改管理密码</a></strong></div></td>
            <td><div align="center"><a href="?Action=usesys"><strong>程序说明</strong></a></div></td>
            <td><div align="center"><a href="?Action=adminlogout"><strong>退出超级管理</strong></a></div></td>
          </tr>
        </table></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 valign="top"><div align="center"><%If Request("Action")="" Or Request("Action")="sysstate" Then%>
          <table width="730" border="0" align="center" cellpadding="2" cellspacing="1" bordercolor="D6DFF5" bgcolor="D6DFF5">
            <tr> 
              <td colspan="9"><div align="center"><strong>系统状态</strong></div></td>
            </tr>
            <tr> 
              <td colspan="8" bgcolor="#FFFFFF"><div align="right">系统名称：</div></td>
              <td width="471" bgcolor="#FFFFFF"><strong><%=RsSet("Title")%> </strong></td>
            </tr>
            <tr> 
              <td colspan="8" bgcolor="#FFFFFF"><div align="right">系统注册状态：</div></td>
              <td bgcolor="#FFFFFF"> <%If RsSet("RegeditState")=0 Then%>
                目前已经禁止新用户申请计数器！ 
                <%Else%>
                目前允许新用户申请计数器，如果只想自己用可以关闭用户注册功能！ 
                <%End If%>
                [<a href="?Action=sysset">更改设置</a>]</td>
            </tr>
            <tr> 
              <td colspan="8" bgcolor="#FFFFFF"><div align="right">来源统计共执行次数：</div></td>
              <td bgcolor="#FFFFFF"><%=RsSet("Store_TotalLy")%> [<a href="?Action=lyreset" onClick="{if(confirm('确定要复原来源统计数么?')){return true;}return false;};">复原为0</a>]</td>
            </tr>

            <tr> 
              <td colspan="8" bgcolor="#FFFFFF"><div align="right">页面来源总数：</div></td>
              <td bgcolor="#FFFFFF"><%
Sql="Select Count(*) From WWW_QQCF_COM_CfCount_Ly"
Set Rs=Conn.ExeCute(Sql)
Response.Write Rs(0)
%>
                [<a href="?Action=beforelydel" onClick="{if(confirm('确定要删除今天以前的来源么?')){return true;}return false;};">删除今天以前的来源</a>]</td>
            </tr>
            <tr> 
              <td colspan="8" bgcolor="#FFFFFF"><div align="right">今天页面来源数：</div></td>
              <td bgcolor="#FFFFFF"><%
Sql="Select Count(*) From WWW_QQCF_COM_CfCount_Ly Where DateDiff('d',AddDate,Date())=0"
Set Rs=Conn.ExeCute(Sql)
Response.Write Rs(0)
%> &nbsp;</td>
            </tr>
            <tr> 
              <td colspan="8" bgcolor="#FFFFFF"><div align="right">页面统计总数：</div></td>
              <td bgcolor="#FFFFFF"><%
Sql="Select Count(*) From WWW_QQCF_COM_CfCount_WebCount"
Set Rs=Conn.ExeCute(Sql)
Response.Write Rs(0)
%>
   [<a href="?Action=beforewebdel" onClick="{if(confirm('确定要删除今天以前的页面统计么?')){return true;}return false;};">删除今天以前的页面统计</a>]</td>
            </tr>
            <tr> 
              <td colspan="8" bgcolor="#FFFFFF"><div align="right">今天的页面统计数：</div></td>
              <td bgcolor="#FFFFFF"><%
Sql="Select Count(*) From WWW_QQCF_COM_CfCount_WebCount Where DateDiff('d',AddDate,Date())=0"
Set Rs=Conn.ExeCute(Sql)
Response.Write Rs(0)
%></td>
            </tr>
          </table>
  
  <%end if%><IMG height=1 
      src="QQCF_Pic\spacer.gif" 
      width=1> 
          <%If Request("Action")="userlist" Or Request("Action")="searchuser" Then%>
          点击标题可以选择其相应的排序方式 
<%
Call GetCurrWeb()

Action=Request("Action")
User_Name=Request("User_Name")
Px=Request("Px")

If Px="" Then Px="ID"

Sql="Select * From WWW_QQCF_COM_CfCount_RegUser Where 1=1" 

If Action="searchuser" Then
 If User_Name<>"" Then Sql=Sql&" And User_Name like '%"&User_Name&"%'"
End If

Sql=Sql&" Order By "&px&" Desc"
12 3 4 5 下一页
💿 文件大小 689 K
👤 上传用户 flp123456
📂 所属分类数学计算
🏷️ 相关标签

#物流管理系统
⌨️ 快捷键说明

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