qqcf_manage.asp

1.40种记数器图片样式自由选择

            <a href='?Action=<%=Action%>&Px=<%=Px%>&Page=<%=Page+1%>'>下一页</a>
            <%
end if
%>
            <a href="?Action=<%=Action%>&Px=<%=Px%>&Page=<%=totalpage%>">最后一页</a> 页次：<font color="#ff0000"><%=page%></font>/<%=totalpage%>页&nbsp;&nbsp;共<%=totalrs%>条记录&nbsp;&nbsp;每页显示<%=rs.pagesize%>条</div></td>
    <form name="form1" method="post" action="jczx.asp">
      <td>
        <Select  name="page" size="1" id="page" onChange="window.location=form.page.options[form.page.selectedIndex].value">
          <%for i=1 to totalpage    
   response.write "<option value="&filename&"?Action="&Action&"&Px="&Px&"&Page="& i     
   if page=i then     
     response.write " selected"    
   end if    
   response.write ">转到第"& i &"页</option>"    
next    
%>
        </select>
      </td>
    </form>
  </tr>
</table>
  <div align="center"> </div>
<%End If%>

<%If Request("Action")="onlinetj" Then%>
  <table width="730" border="0" align="center" cellpadding="2" cellspacing="1" bordercolor="D6DFF5" bgcolor="D6DFF5">
          <tr> 
            <td colspan="9"><div align="center"><strong>在线人数统计[可点击标题排序] 
                <%
Sql="Select Count(*) From WWW_QQCF_COM_CfCount_Online Where User_Name='"&User_Name&"'"
Set Rs=Conn.ExeCute(Sql)
Response.Write "共有人<font color=ff0000>"&Rs(0)&"</font>在线"

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

Action=Request("Action")
Px=Request("Px")
If Px="" Then Px="Online_LastTime"
Call PxFilter(Px,"id,online_ip,ly,online_addtime,currweb,visittotal,readtotal,online_lasttime")

Set Rs= Server.CreateObject("Adodb.RecordSet")
Sql="Select * From WWW_QQCF_COM_CfCount_Online Where User_Name='"&User_Name&"' Order By "&Px&" Desc"
Rs.Open Sql,Conn,1,1

If Not Rs.Eof Then
IF Not IsNumeric(Request("Page")) Or IsEmpty(Request("Page")) Then
 Page=1
Else
 Page=Int(Abs(Request("Page")))
End if
Rs.PageSize=15
TotalRs=Rs.RecordCount
TotalPage=Rs.PageCount
MyPageSize=Rs.Pagesize
Rs.AbsolutePage=Page
End If

%>
                </strong></div></td>
          </tr>
          <tr> 
            <td width="27" bgcolor="#FFFFFF"><div align="center"><a href="?Action=<%=Action%>&Px=ID"><strong>序号</strong></a></div></td>
            <td width="54" bgcolor="#FFFFFF"><div align="center"><a href="?Action=<%=Action%>&Px=Online_Ip"><strong>IP</strong></a></div></td>
            <td bgcolor="#FFFFFF"><div align="center"><strong><a href="?Action=<%=Action%>&Px=VisitTotal">第几次光临</a></strong></div></td>
            <td bgcolor="#FFFFFF"><div align="center"><strong><a href="?Action=<%=Action%>&Px=Ly">来源页面</a></strong></div></td>
            <td bgcolor="#FFFFFF"><div align="center"><a href="?Action=<%=Action%>&Px=Online_AddTime"><strong>进站时间</strong></a></div></td>
            <td bgcolor="#FFFFFF"><div align="center"><strong><a href="?Action=<%=Action%>&Px=CurrWeb">最后活动页面</a></strong></div></td>
            <td bgcolor="#FFFFFF"><div align="center"><a href="?Action=<%=Action%>&Px=Online_LastTime"><strong>最后活动</strong></a></div></td>
            <td bgcolor="#FFFFFF"><div align="center"><strong>此次停留</strong></div></td>
            <td bgcolor="#FFFFFF"><div align="center"><a href="?Action=<%=Action%>&Px=ReadTotal"><strong>共浏览几页</strong></a></div></td>
          </tr>
          <%while not rs.eof and mypagesize>0%>
          <tr
<%If mypagesize Mod 2=0 Then
 Response.Write " bgcolor='#ffffff'"
Else
 Response.Write " bgcolor='#e8e8e8'"
End If
%>> 
            <td bgcolor="#FFFFFF" class="td_1"><div align="center"><%=Rs.RecordCount-Rs.Pagesize*(page)+mypagesize%></div></td>
            <td bgcolor="#FFFFFF" class="td_1"><div align="center"> 
                <%If Ip=Rs("Online_Ip") Then Response.Write "<font color=ff0000>"%>
                <%=Rs("Online_Ip")%> 
                <%If Ip=Rs("Online_Ip") Then Response.Write "</font>"%>
              </div></td>
            <td bgcolor="#FFFFFF" class="td_1"><div align="center"><%=Rs("VisitTotal")%></div></td>
            <td bgcolor="#FFFFFF" class="td_1"><div align="center"> 
                <%If Rs("Ly")="-" Then%>
                直接从浏览器输入 
                <%Else%>
                <a href="http://<%=BreakUrl(Rs("Ly"),1)%>" target='_blank'><%=BreakUrl(Rs("Ly"),1)%></a>[<a href="<%=Rs("Ly")%>" target='_blank'>详细</a>] 
                <%End If%>
              </div></td>
            <td bgcolor="#FFFFFF" class="td_1"><div align="center"><%=GetTurnTime(Hour(Rs("Online_AddTime")))&":"&GetTurnTime(Minute(Rs("Online_AddTime")))&":"&GetTurnTime(Second(Rs("Online_AddTime")))%></div></td>
            <td bgcolor="#FFFFFF" class="td_1"><div align="center">
                <%If Rs("CurrWeb")="-" Then%>
                Img调用无法记录当前页 
                <%Else%>
			<a href="<%=Rs("CurrWeb")%>" target='_blank'><%=Left(BreakUrl(Rs("CurrWeb"),2),30)%></a>
			<%End if%>
			</div></td>
            <td bgcolor="#FFFFFF" class="td_1"><div align="center"><%=GetTurnTime(Hour(Rs("Online_LastTime")))&":"&GetTurnTime(Minute(Rs("Online_LastTime")))&":"&GetTurnTime(Second(Rs("Online_LastTime")))%></div></td>
            <td bgcolor="#FFFFFF" class="td_1"><div align="center"><%=DateDiff("n",Rs("Online_AddTime"),Rs("Online_LastTime"))%>分钟</div></td>
            <td bgcolor="#FFFFFF" class="td_1"><div align="center"><%=Rs("ReadTotal")%></div></td>
          </tr>
          <%rs.movenext
mypagesize=mypagesize-1
wend%>
          <form name="form6" method="post" action="?Action=onlinedel">
            <tr bgcolor="#FFFFFF"> 
              <td colspan="9"><div align="right">(注：红色IP为你自己的IP)
<input type="submit" name="Submit332" value="删除所有在线记录" onClick="{if(confirm('确定要删除么?')){return true;}return false;};">
                </div></td>
            </tr>
          </form>
        </table>

<table border="0" align="center" cellpadding="0" cellspacing="1">
    <tr> 
      <td height="21" valign="top"><div align="right"><a href="?Action=<%=Action%>&Px=<%=Px%>&Page=1">第一页</a> 
          <%
if page>1 then%>
          <a href='?Action=<%=Action%>&Px=<%=Px%>&Page=<%=Page-1%>'>上一页</a> 
          <%
end if
%>
          <%
if page<rs.pagecount   then%>
          <a href='?Action=<%=Action%>&Px=<%=Px%>&Page=<%=Page+1%>'>下一页</a> 
          <%
end if
%>
          <a href="?Action=<%=Action%>&Px=<%=Px%>&Page=<%=TotalPage%>">最后一页</a> 
          页次：<font color="#ff0000"><%=Page%></font>/<%=TotalPage%>页&nbsp;&nbsp;共<%=TotalRs%>条记录&nbsp;&nbsp;每页显示<%=Rs.PageSize%>条</div></td>
      <form name="form1" method="post" action="jczx.asp">
        <td> <Select  name="page" size="1" id="select2" onChange="window.location=form.page.options[form.page.selectedIndex].value">
            <%For I=1 To TotalPage    
   Response.Write "<option value="&Filename&"?Action="&Action&"&Px="&Px&"&Page="&I    
   If Page=I Then     
     Response.Write " Selected"    
   End If    
   Response.write ">转到第"&I&"页</option>"    
Next    
%>
          </select> </td>
      </form>
    </tr>
  </table>

<%End If%>

<%If Request("Action")="daytj" Then%>
        <table width="730" border="0" align="center" cellpadding="2" cellspacing="1" bordercolor="D6DFF5" bgcolor="D6DFF5">
          <tr> 
            <td bgcolor="#FFFFFF">
<%
Sql="Select Sum(Counter),Sum(IpCounter),Count(ID) From WWW_QQCF_COM_CfCount_Day_Count Where User_Name='"&User_Name&"'"
Set Rs=Conn.ExeCute(Sql)

If TotalRs=0 Then
 AvgVisit=0
 AvgIp=0
Else
 AvgVisit=Int(Rs(0)/TotalRs)
 AvgIp=Int(Rs(1)/TotalRs)
End If
%>
              共有<%=Rs(3)%>天记录，共<%=Rs(0)%>次浏览，<%=Rs(1)%>个IP，平均每天<%=AvgVisit%>次访问，平均每天IP<%=AvgIp%>个</td>
          </tr>
          <tr> 
            <td bgcolor="#FFFFFF"> <%
Sql="Select Top 1 IpCounter,AddDate From WWW_QQCF_COM_CfCount_Day_Count Where User_Name='"&User_Name&"' Order By IpCounter Desc"
Set Rs1=Conn.ExeCute(Sql)
BestHightIp=Rs1("IpCounter")
BestHightIpDate=Rs1("AddDate")

Sql="Select Top 1 IpCounter,AddDate From WWW_QQCF_COM_CfCount_Day_Count Where User_Name='"&User_Name&"' Order By IpCounter"
Set Rs1=Conn.ExeCute(Sql)
BestLowIp=Rs1("IpCounter")
BestLowIpDate=Rs1("AddDate")

Sql="Select Top 1 Counter,AddDate From WWW_QQCF_COM_CfCount_Day_Count Where User_Name='"&User_Name&"' And DateDiff('d',AddDate,Date())>0 Order By Counter Desc"
Set Rs1=Conn.ExeCute(Sql)
BestHightVisit=Rs1("Counter")
BestHightVisitDate=Rs1("AddDate")

Sql="Select Top 1 Counter,AddDate From WWW_QQCF_COM_CfCount_Day_Count Where User_Name='"&User_Name&"' And DateDiff('d',AddDate,Date())>0 Order By Counter"
Set Rs1=Conn.ExeCute(Sql)
BestLowVisit=Rs1("Counter")
BestLowVisitDate=Rs1("AddDate")
%> </td>
          </tr>
        </table> 
        <table width="730" border="0" align="center" cellpadding="2" cellspacing="1" bordercolor="D6DFF5" bgcolor="D6DFF5">
          <tr> 
            <td colspan="4"><div align="center"><strong>日访问统计[可点击标题排序]</strong> 
                <%
Action=Request("Action")
Px=request("Px")
If Px="" Then Px="ID"
Call PxFilter(Px,"id,counter,ipcounter,adddate")

Sql="Select * From WWW_QQCF_COM_CfCount_Day_Count Where User_Name='"&User_Name&"' Order By "&Px&" Desc"

Set Rs=Server.CreateObject("Adodb.RecordSet")
Rs.Open Sql,Conn,1,1
If Not Rs.Eof Then
If not IsNumeric(Request("page")) Or IsEmpty(Request("page")) Then
 page=1
Else
 Page=Int(Abs(Request("page")))
End if
rs.pagesize=10
totalrs=rs.RecordCount
totalpage=rs.pageCount
mypagesize=rs.pagesize
rs.absolutepage=page
End If

%>
                <br>
              </div></td>
          </tr>
          <tr> 
            <td bgcolor="#FFFFFF"><div align="center"><a href="?Action=<%=Action%>&Px=AddDate"><strong>日期</strong></a></div></td>
            <td bgcolor="#FFFFFF"><div align="center"><strong><a href="?Action=<%=Action%>&Px=Counter">显示数量</a></strong></div></td>
            <td bgcolor="#FFFFFF"><div align="center"><a href="?Action=<%=Action%>&Px=IpCounter"><strong>IP数量</strong></a></div></td>
            <td bgcolor="#FFFFFF"><div align="center"><a href="?Action=<%=Action%>&Px=Counter"><strong>在十天内的比率</strong></a></div></td>
          </tr>
          <%While Not Rs.Eof And MyPageSize>0%>
          <%
ShowTotal=0
IpTotal=0
Sql="Select Sum(Counter),Sum(IpCounter) From WWW_QQCF_COM_CfCount_Day_Count Where User_Name='"&User_Name&"' And DateDiff('d',AddDate,'"&Rs("AddDate")&"')<10"
Set Rs1=Conn.Execute(Sql)
ShowTotal=Rs1(0)
IpTotal=Rs1(1)
If ShowTotal=0 Then ShowTotal=1
If IpTotal=0 Then IpTotal=1
%>
          <tr> 
            <td bgcolor="#FFFFFF"><div align="center"><%=Rs("AddDate")%></div></td>
            <td bgcolor="#FFFFFF"><div align="center"><%=Rs("Counter")%><br>
              </div></td>
            <td bgcolor="#FFFFFF"><div align="center"><%=Rs("IpCounter")%></div></td>
            <td bgcolor="#FFFFFF"><img src=qqcf_pic/QQCf_BlueBar.gif width=<%=Rs("Counter")/ShowTotal*300%> height=10><%=MyRate(Rs("Counter"),ShowTotal)%>%<br>
              <img src=qqcf_pic/QQCf_GreenBar.gif width=<%=Rs("IpCounter")/IpTotal*300%> height=10><%=MyRate(Rs("IpCounter"),IpTotal)%>%</td>
          </tr>
          <%Rs.MoveNext
MyPageSize=MyPageSize-1
Wend%>
          <tr bgcolor="#FFFFFF"> 
            <td colspan="4"><div align="center">图例： <img src=qqcf_pic/QQCf_BlueBar.gif width=30 height=10>显示数，<img src=qqcf_pic/QQCf_GreenBar.gif width=30 height=10>IP数</div></td>
          </tr>
          <tr> 
            <td colspan="4" bgcolor="D6DFF5"> <%
Sql="Select Sum(Counter),Sum(IpCounter) From WWW_QQCF_COM_CfCount_Day_Count Where User_Name='"&User_Name&"'"
Set Rs1=Conn.ExeCute(Sql)

If TotalRs=0 Then
 AvgVisit=0
 AvgIp=0
Else
 AvgVisit=Int(Rs1(0)/TotalRs)
 AvgIp=Int(Rs1(1)/TotalRs)
End If
%>
              共有<%=TotalRs%>天记录，共<%=Rs1(0)%>次浏览，<%=Rs1(1)%>个IP，平均每天<%=AvgVisit%>次访问，平均每天IP<%=AvgIp%>个</td>