<%
'乘风多用户计数器 Sql版
'作者QQ：178575
'作者EMail：yliangcf@163.com
'作者网站：http://www.qqcf.com
'详细简介：http://www.qqcf.com/cfcount.htm
'上面有程序在线演示，安装演示，使用疑难解答，最新版本下载等内容
'因为这些内容可能时常更新，就没有放在程序里，请自己上网站上查看
'有完整版本的演示
%>
<table class="tb_1">
  <tr class="tr_1"> 
    <td colspan="2">系统状态</td>
  </tr>
  <tr> 
    <td>系统名称：</td>
    <td ><%=RsSet("SysTitle")%> </td>
  </tr>
  <tr> 
    <td>系统注册状态：</td>
    <td colspan="-6"> <%If RsSet("RegState")=0 Then%>
      目前已经禁止新用户申请计数器！ 
      <%Else%>
      目前允许新用户申请计数器，如果只想自己用可以关闭用户注册功能！ 
      <%End If%>
      [<a href="?Action=sysmodify">更改设置</a>]</td>
  </tr>

  <tr> 
    <td>页面来源总数：</td>
    <td><%
Sql="Select Count(*) From CFCount_Ly"
Set Rs=Conn.ExeCute(Sql)
Response.Write Rs(0)
%> </td>
  </tr>
  <tr> 
    <td>今天页面来源数：</td>
    <td><%
Sql="Select Count(*) From CFCount_Ly_Day Where DateDiff(d,AddDate,GetDate())=0"
Set Rs=Conn.ExeCute(Sql)
Response.Write Rs(0)
%> &nbsp;</td>
  </tr>
  <tr> 
    <td>今天的页面统计数：</td>
    <td><%
Sql="Select Count(*) From CFCount_Web_Day Where DateDiff(d,AddDate,GetDate())=0"
Set Rs=Conn.ExeCute(Sql)
Response.Write Rs(0)
%></td>
  </tr>
</table>
  