📄 manage.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日
'===================================
%>
<%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"-->
<!--#Include File="QQCF_Getcookie.Asp"-->
<%
If Session("CfCountUser")="" Then
Response.Cookies("CfCountUserCooKie")=""
Call AlertUrl("请重新登陆!","Index.asp")
Else
User_Name=Session("CfCountUser")
End If
%>
<%
Tmp = HttpPath(2)
Ip=Request.ServerVariables("HTTP_X_FORWARDED_FOR")
If Ip= "" Then Ip= Request.ServerVariables("REMOTE_ADDR")
%>
<!--#Include File="QQCF_Manage_Do.asp"-->
<HTML><HEAD><TITLE>用户：<%=User_Name%> <%=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 Request("Action")="jsqset" Then
Set Rs= Server.CreateObject("Adodb.RecordSet")
Sql="Select * From WWW_QQCF_COM_CfCount_RegUser Where User_Name='"&User_Name&"'"
Rs.Open Sql,Conn,1,1
If Rs("CounterShow")=-1 Then
show=show&"ashow_1();"
ElseIf Rs("CounterShow")=0 Then
show=show&"ashow_2();"
End If
If Rs("ImgCounterShow")=-1 Then
show=show&"bshow_1();"
ElseIf Rs("ImgCounterShow")=0 Then
show=show&"bshow_2();"
End If
If Rs("online")=-1 Then
show=show&"cshow_1();"
ElseIf Rs("online")=0 Then
show=show&"cshow_2();"
End If
If Rs("TjOpen")=-1 Then
show=show&"dshow_1();"
ElseIf Rs("TjOpen")=0 Then
show=show&"dshow_2();"
End If
End If
%>
</HEAD>
<BODY leftMargin=0 topMargin=0 marginheight="0" marginwidth="0"<%If Request("Action")="jsqset" Then Response.Write " onload="&show%>>
<!--#include file="QQCF_Manage_Menu.Asp"-->
<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"><a href="?Action=tjsurvey"><strong>统计概况</strong></a></div></td>
<td><div align="center"><a href="?Action=lylist"><strong>来源明细</strong></a></div></td>
<td><div align="center"><a href="?Action=onlinetj"><strong>在线统计</strong></a></div></td>
<td><div align="center"><a href="?Action=webtj"><strong>页面统计</strong></a></div></td>
<td><div align="center"><a href="#" name="link1" id="link1" onClick="MM_showMenu(window.mm_menu_1,-5,20,null,'link1')" onMouseOut="MM_startTimeout();"><strong>统计报表</strong></a></div></td>
<td><div align="center"><a href="#" name="link2" id="link2" onClick="MM_showMenu(window.mm_menu_2,-5,20,null,'link2')" onMouseOut="MM_startTimeout();"><strong>搜索引擎统计</strong></a></div></td>
<td><div align="center"><a href="#" name="link3" id="link3" onClick="MM_showMenu(window.mm_menu_3,-5,20,null,'link3')" onMouseOut="MM_startTimeout();"><strong>计数器设置</strong></a></div></td>
<td><div align="center"><a href="#" name="link4" id="link4" onClick="MM_showMenu(window.mm_menu_4,-5,20,null,'link4')" onMouseOut="MM_startTimeout();"><strong>修改个人资料</strong></a></div></td>
<td><div align="center"><a href="?Action=syshelp"><strong>系统帮助</strong></a></div></td>
<td><div align="center"><a href="?Action=logout"><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">
<%If Request("Action")="" Or Request("Action")="tjsurvey" Then%>
<%
Set RsUser= Server.CreateObject("Adodb.RecordSet")
Sql="Select * From WWW_QQCF_COM_CfCount_RegUser Where User_Name='"&User_Name&"'"
RsUser.Open Sql,Conn,1,1
Sql="Select Top 1 Counter,AddDate From WWW_QQCF_COM_CfCount_Day_Count Where User_Name='"&User_Name&"' Order By Counter Desc"
Set RsTopShow=Conn.Execute(Sql)
Sql="Select Top 1 IpCounter,AddDate From WWW_QQCF_COM_CfCount_Day_Count Where User_Name='"&User_Name&"' Order By IpCounter Desc"
Set RsTopIp=Conn.Execute(Sql)
Sql="Select Top 1 Counter,AddDate From WWW_QQCF_COM_CfCount_Day_Count Where User_Name='"&User_Name&"' And DateDiff('d','"&RsUser("AddTime")&"',AddDate)>0 And DateDiff('d',AddDate,Date())>0 Order By Counter"
Set RsLowShow=Conn.Execute(Sql)
Sql="Select Top 1 IpCounter,AddDate From WWW_QQCF_COM_CfCount_Day_Count Where User_Name='"&User_Name&"' And DateDiff('d','"&RsUser("AddTime")&"',AddDate)>0 And DateDiff('d',AddDate,Date())>0 Order By IpCounter"
Set RsLowIp=Conn.Execute(Sql)
%>
<table width="730" border="0" align="center" cellpadding="2" cellspacing="1">
<tr>
<td><strong>您好用户：<%=User_Name%></strong>
<%
Set Rs= Server.CreateObject("Adodb.RecordSet")
Sql="Select * From WWW_QQCF_COM_CfCount_RegUser Where User_Name='"&User_Name&"'"
Rs.Open Sql,Conn,1,1
If Rs("state")=0 Then Response.Write "<font color=#ff0000>你的账号已被禁用!</font>"
%>
</td>
</tr>
<tr>
<td><strong>常用设置链接</strong>：[<a href="?Action=jsqquickset">计数器基本样式快速设置</a>] [<a href="?Action=jsqset">计数器参数设置</a>] [<a href="?Action=stylelist">计数器图片样式选择</a>] [<a href="?Action=getcode">预览及获得计数器代码</a>] [<a href="?Action=modifypassword">修改密码</a>] </td>
</tr>
</table>
<table width="730" border="0" align="center" cellpadding="2" cellspacing="1" bordercolor="D6DFF5" bgcolor="D6DFF5">
<tr>
<td height="19" colspan="4"> <div align="center"><strong>统计概况</strong></div></td>
</tr>
<tr align="center">
<td width="156" align="left" bordercolor="#33CCCC" bgcolor="#FFFFFF"><div align="right">网站名称：</div></td>
<td colspan="3" align="left" bgcolor="#FFFFFF"><b><%=RsUser("PageName")%></b></td>
</tr>
<tr align="center">
<td align="left" bordercolor="#33CCCC" bgcolor="#FFFFFF"><div align="right">站点地址：</div></td>
<td colspan="3" align="left" bgcolor="#FFFFFF"><a href="<%=RsUser("PageUrl")%>" target="_blank"><%=RsUser("PageUrl")%></a> [<a href="http://www.alexa.com/data/details/traffic_details?q=&url=<%=RsUser("PageUrl")%>" target="_blank">Alexa排名查询</a>] [<a href="http://web.archive.org/web/*/<%=RsUser("PageUrl")%>" target="_blank">历史网页回忆</a>]</td>
</tr>
<tr align="center">
<td align="left" bordercolor="#33CCCC" bgcolor="#FFFFFF"><div align="right">开始统计于：</div></td>
<td colspan="3" align="left" bgcolor="#FFFFFF"><%=RsUser("AddTime")%></td>
</tr>
<tr align="center">
<td align="left" bordercolor="#33CCCC" bgcolor="#FFFFFF"><div align="right">已统计天数：</div></td>
<td colspan="3" align="left" bgcolor="#FFFFFF"><%=DateDiff("d",RsUser("AddTime"),Now())%>天</td>
</tr>
<tr align="center">
<td align="left" bordercolor="#33CCCC" bgcolor="#FFFFFF"><div align="right">在线人数：</div></td>
<td colspan="3" align="left" bgcolor="#FFFFFF">
<%
If IsEmpty(Application(User_Name&"_Online")) Then
OnlineTotal=0
Else
Myarray=Split(Application(User_Name&"_Online"),"|")
OnlineTotal=Ubound(Myarray)
End If
Response.Write OnlineTotal&"人"%></td>
</tr>
<tr align="center">
<td align="left" bordercolor="#33CCCC" bgcolor="#FFFFFF"><div align="center"></div></td>
<td width="62" align="left" bgcolor="#FFFFFF"><div align="center">浏览量
</div></td>
<td width="84" align="left" bgcolor="#FFFFFF"><div align="center">访问量
</div></td>
<td width="407" align="left" bgcolor="#FFFFFF"><div align="center"></div></td>
</tr>
<tr align="center">
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -