cf_manage_2.asp

1.核心采用.Net、Mssql数据库、存储过程、缓存技术构建

				 End If%></td>
            <td align="center"><%=MyArray_2(1)%></td>
            <td align="center"><%=GetTurnTime(Hour(Cdate(MyArray_2(2))))&":"&GetTurnTime(Minute(Cdate(MyArray_2(2))))&":"&GetTurnTime(Second(Cdate(MyArray_2(2))))%></td>
            <td align="center"> <%If MyArray_2(3)="-" Then%>
              直接从浏览器输入 
              <%Else%> <a href="?Action=urlgo&Url=<%=Server.URLEncode("http://"&BreakUrl(MyArray_2(3),1))%>" target='_blank'><%=BreakUrl(MyArray_2(3),1)%></a>[<a href="?Action=urlgo&Url=<%=Server.URLEncode(MyArray_2(3))%>" target='_blank'>详细</a>] 
              <%End If%></td>
            <td align="center"><%=GetTurnTime(Hour(Cdate(MyArray_2(4))))&":"&GetTurnTime(Minute(Cdate(MyArray_2(4))))&":"&GetTurnTime(Second(Cdate(MyArray_2(4))))%></td>
            <td align="center"> <%If MyArray_2(5)="-" Then%>
              直接从浏览器输入 
              <%Else%> <a href="?Action=urlgo&Url=<%=Server.URLEncode(MyArray_2(5))%>" target='_blank'><%=BreakUrl(MyArray_2(5),2)%></a>[<a href="?Action=urlgo&Url=<%=Server.URLEncode(MyArray_2(5))%>" target='_blank'>详细</a>] 
              <%End If%></td>
            <td align="center"><%=MyArray_2(6)%></td>
          </tr>
          <%
Next%>
        </table>
<%End If%>
<%If Action="lylist" Then%>

<%If RsSet("LyKeep")=0 Then Response.write "系统已经禁用此功能"%>
<table width="98%" align="center" class="tba">
<tr>
            <form name="form6" method="post" action="?">
              <td colspan="7" bgcolor="#FFFFFF">选择查询的日期 
                        <Select  name="adddate" size="1" onChange="window.location=form.adddate.options[form.adddate.selectedIndex].value">
                          <%Sql="Select AddDate From CFCount_Ly_Day Where UserName='"&UserName&"' Group By AddDate Order By AddDate Desc"
Set Rs = Server.CreateObject("ADODB.Recordset")
Rs.open Sql,Conn,1,1
While Not Rs.Eof 
 Response.Write "<option value='"&filename&"?Action=lylist&AddDate="&Rs("AddDate")&"'"
 If Request("AddDate")=Cstr(Rs("AddDate")) Then Response.Write " selected"
 Response.Write ">"&Rs("AddDate")&"</option>"  
Rs.MoveNext
Wend  
%>
                        </select></td>

          </form>

          </tr>
          <%
Px=ChkStr(Request("Px"),1)
AddDate=ChkStr(Request("AddDate"),3)

If Px="" Then  Px="MyCounter"
If AddDate="" Then AddDate=Date()

Call PxFilter(Px,"id,ip,lyhead,addtime,MyCounter,IpCounter,lasttime")

Sql="Select * From CFCount_Ly_Day where UserName='"&UserName&"' And Datediff('d',AddDate,'"&AddDate&"')=0"

Sql=Sql&" 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=15
 totalrs=rs.RecordCount
 totalpage=rs.pageCount
 mypagesize=rs.pagesize
 rs.absolutepage=page
End If
%>
          <tr class="tba_tr_1"> 
            <td colspan="7"><div align="center"><strong><%=AddDate%> 来源统计[可点击标题排序]</strong></div></td>
          </tr>
          <tr> 
            <td bgcolor="#FFFFFF"><div align="center"><a href="?Action=<%=Action%>&AddDate=<%=AddDate%>&Px=ID"><strong>序号</strong></a></div></td>
            <td bgcolor="#FFFFFF"><div align="center"><a href="?Action=<%=Action%>&AddDate=<%=AddDate%>&Px=LyHead"><strong>来源网站</strong></a></div></td>
            <td bgcolor="#FFFFFF"><div align="center"><strong><a href="?Action=<%=Action%>&AddDate=<%=AddDate%>&Px=MyCounter">PV数量</a></strong></div></td>
			<td bgcolor="#FFFFFF"><div align="center"><a href="?Action=<%=Action%>&AddDate=<%=AddDate%>&Px=IpCounter"><strong>IP数量</strong></a></div></td>
            <td bgcolor="#FFFFFF"><div align="center"><a href="?Action=<%=Action%>&AddDate=<%=AddDate%>&Px=AddTime"><strong>上站时间</strong></a></div></td>
            <td bgcolor="#FFFFFF"><div align="center"><a href="?Action=<%=Action%>&AddDate=<%=AddDate%>&Px=Ip"><strong>最后IP地址</strong></a></div></td>
            <td bgcolor="#FFFFFF"><div align="center"><a href="?Action=<%=Action%>&AddDate=<%=AddDate%>&Px=LastTime"><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 class="td_1"><div align="center"><%=Rs.RecordCount-Rs.Pagesize*(page)+mypagesize%></div></td>
            <td class="td_1"><div align="center"> 
<%If Rs("LyHead")="-" Then
  Response.Write "直接从浏览器输入"
 Else
  Response.Write "<a href=?Action=urlgo&Url="&Server.URLEncode("http://"&Rs("LyHead"))&" target='_blank'>"&Rs("LyHead")&"</a>&nbsp;[<a href=?Action=urlgo&Url="&Server.URLEncode(Rs("Ly"))&" target='_blank'>详细</a>]"
 End If%>
              </div></td>
            <td class="td_1"><div align="center"><%=Rs("MyCounter")%></div></td>
			<td class="td_1"><div align="center"><%=Rs("IpCounter")%></div></td>
            <td class="td_1"><div align="center"><%=GetTurnTime(Hour(Rs("AddTime")))&":"&GetTurnTime(Minute(Rs("AddTime")))&":"&GetTurnTime(Second(Rs("AddTime")))%></div></td>
            <td class="td_1"><div align="center"> 
                <%If Ip=Rs("Ip") Then Response.Write "<font color=ff0000>"%>
                <%=Rs("Ip")%> 
                <%If Ip=Rs("Ip") Then Response.Write "</font>"%>
				<%If RsSet("IpArea")=-1 Then
				  Response.write "<br>"&GetIpArea(Rs("Ip"))
				 End If%>
              </div></td>
            <td class="td_1"><div align="center"><%=GetTurnTime(Hour(Rs("LastTime")))&":"&GetTurnTime(Minute(Rs("LastTime")))&":"&GetTurnTime(Second(Rs("LastTime")))%></div></td>
          </tr>
          <%rs.movenext
mypagesize=mypagesize-1
wend%>


        </table>
<table border="0" align="center" cellpadding="0" cellspacing="1">
  <tr>
    <td valign="top"><div align="right"><a href="?Action=<%=Action%>&AddDate=<%=AddDate%>&Px=<%=Px%>&Page=1">第一页</a>
            <%
if page>1 then%>
            <a href='?Action=<%=Action%>&AddDate=<%=AddDate%>&Px=<%=Px%>&Page=<%=Page-1%>'>上一页</a>
            <%
end if
%>
            <%
if page<rs.pagecount   then%>
            <a href='?Action=<%=Action%>&AddDate=<%=AddDate%>&Px=<%=Px%>&Page=<%=Page+1%>'>下一页</a>
            <%

end if
%>
            <a href="?Action=<%=Action%>&AddDate=<%=AddDate%>&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&"&AddDate="&AddDate&"&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 Action="onlinetj" Then%>
<%
Set Rs= Server.CreateObject("Adodb.RecordSet")
Sql="Select * From CFCount_User Where UserName='"&UserName&"'"
Rs.Open Sql,Conn,1,1
%>
<%If Rs("Online")=0 Then Response.write "你的设置已经禁用此功能<br>"%>
<%If RsSet("OnlineKeep")=0 Then Response.write "系统已经禁用此功能"%>
<%

Myarray=Split(Application("CFCountOnline_"&UserName),"|")
TotalRs=Ubound(Myarray)

If TotalRs>1 Then
 MyArray_2=Split(Myarray(TotalRs-1),"\")
 Time_1=MyArray_2(2)
 MyArray_2=Split(Myarray(0),"\")
 Time_2=MyArray_2(2)
 TotalTime=DateDiff("n",Cdate(Time_2),Cdate(Time_1))
End If

IF not IsNumeric(Request("Page")) Or IsEmpty(Request("Page")) Then
 Page=1
Else
 Page=Int(Abs(Request("Page")))
End If

MyPageSize=10
MyPageSize2=10
MyPageSize3=MyPageSize

If TotalRs Mod MyPageSize=0 Then
 TotalPage=TotalRs/MyPageSize
Else
 TotalPage=Int(TotalRs/MyPageSize)+1
 MyPageSize2=TotalRs Mod MyPageSize
 If Page=TotalPage Then
  MyPageSize3=MyPageSize2
 End If
End If
I=0
%>
<table width="98%" align="center" class="tba">
<tr class="tba_tr_1">
            <td colspan="8" align="center"><strong>在线人数统计</strong><%If TotalRs>1 Then Response.write "&nbsp;["&TotalTime&"分钟内有"&TotalRs&"个人访问]"%></td>
          </tr>
          <tr> 
            <td align="center"> <p align="center"><strong>序号</strong></td>
            <td align="center"><strong>IP</strong></td>
            <td align="center"><strong>访问次数</strong></td>
            <td align="center"><strong>访问时间</strong></td>
            <td align="center"><strong>来源页面</strong></td>
            <td align="center"><strong>最后访问时间</strong></td>
            <td align="center"><strong>最后浏览页面</strong></td>
            <td align="center"><strong>共浏览几页</strong></td>
          </tr>
<%While I<MyPageSize3%>
<%J=(TotalPage-Page)*MyPageSize+MyPageSize2-I%>
<%
If J>0 Then
MyArray_2=Split(MyArray(J-1),"\")
If Ubound(MyArray_2)=6 Then
%>
          <tr> 
            <td align="center"><%=J%></td>
            <td align="center"> <%If Ip=MyArray_2(0) Then Response.Write "<font color=ff0000>"%> <%=MyArray_2(0)%> <%If Ip=MyArray_2(0) Then Response.Write "</font>"%>
							<%If RsSet("IpArea")=-1 Then
				  Response.write "<br>"&GetIpArea(MyArray_2(0))
				 End If%></td>
            <td align="center"><%=MyArray_2(1)%></td>
            <td align="center"><%=GetTurnTime(Hour(Cdate(MyArray_2(2))))&":"&GetTurnTime(Minute(Cdate(MyArray_2(2))))&":"&GetTurnTime(Second(Cdate(MyArray_2(2))))%></td>
            <td align="center"> <%If MyArray_2(3)="-" Then%>
              直接从浏览器输入 
              <%Else%> <a href="?Action=urlgo&Url=<%=Server.URLEncode("http://"&BreakUrl(MyArray_2(3),1))%>" target='_blank'><%=BreakUrl(MyArray_2(3),1)%></a>[<a href="?Action=urlgo&Url=<%=Server.URLEncode(MyArray_2(3))%>" target='_blank'>详细</a>] 
              <%End If%></td>
            <td align="center"><%=GetTurnTime(Hour(Cdate(MyArray_2(4))))&":"&GetTurnTime(Minute(Cdate(MyArray_2(4))))&":"&GetTurnTime(Second(Cdate(MyArray_2(4))))%></td>
            <td align="center"> <%If MyArray_2(5)="-" Then%>
              直接从浏览器输入 
              <%Else%> <a href="?Action=urlgo&Url=<%=Server.URLEncode(MyArray_2(5))%>" target='_blank'><%=BreakUrl(MyArray_2(5),2)%></a>[<a href="?Action=urlgo&Url=<%=Server.URLEncode(MyArray_2(5))%>" target='_blank'>详细</a>] 
              <%End If%></td>
            <td align="center"><%=MyArray_2(6)%></td>
          </tr>
<%
End If
End If

I=I+1
Wend%>
            <tr> 
              <td colspan="9" bgcolor="#FFFFFF"><div align="right">(注：红色IP为你自己的IP) </div></td>
            </tr>
        </table>
		<table border="0" align="center" cellpadding="0" cellspacing="1">
    <tr> 
      <td height="21" valign="top"><div align="right"><a href="?Action=<%=Action%>&Page=1">第一页</a> 
          <%
if page>1 then%>
          <a href='?Action=<%=Action%>&Page=<%=Page-1%>'>上一页</a> 
          <%
end if
%>
          <%
if page<TotalPage   then%>
          <a href='?Action=<%=Action%>&Page=<%=Page+1%>'>下一页</a> 
          <%
end if
%>
          <a href="?Action=<%=Action%>&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=?Action="&Action&"&Page="&I    
   If Page=I Then     
     Response.Write " Selected"    
   End If    
   Response.write ">转到第"&I&"页</option>"    
Next    
%>
          </select> </td>
      </form>
    </tr>
  </table>

<%End If%>

<%If Action="webtj" Then%>

<%If RsSet("WebKeep")=0 Then Response.write "系统已经禁用此功能"%>
<table width="98%" align="center" class="tba">
<tr>
            <form name="form6" method="post" action="?">
              <td colspan="5" bgcolor="#FFFFFF">选择查询的日期 
                <Select  name="adddate" size="1" onChange="window.location=form.adddate.options[form.adddate.selectedIndex].value">
                  <%Sql="Select AddDate From CFCount_Web_Day Where UserName='"&UserName&"' Group By AddDate Order By AddDate Desc"
Set Rs = Server.CreateObject("ADODB.Recordset")
Rs.open Sql,Conn,1,1
While Not Rs.Eof 
 Response.Write "<option value='"&filename&"?Action=webtj&AddDate="&Rs("AddDate")&"'"
 If Request("AddDate")=Cstr(Rs("AddDate")) Then Response.Write " selected"
 Response.Write ">"&Rs("AddDate")&"</option>"  
Rs.MoveNext
Wend  
%>
                </select></td>
            </form>
          </tr>
          <%
Px=ChkStr(Request("Px"),1)
AddDate=ChkStr(Request("AddDate"),3)

If Px="" Then  Px="MyCounter"
If AddDate="" Then AddDate=Cstr(Date)

Call PxFilter(Px,"id,weburl,MyCounter,adddate,lasttime")

If AddDate<>"" Then
 If IsDate(Cdate(AddDate))=False Then Call AlertBack("输入了错误的时间",1)
End if

Sql="Select Sum(MyCounter) From CFCount_Web_Day where UserName='"&UserName&"' And Datediff('d',AddDate,'"&AddDate&"')=0 And WebUrl<>'-'"
Set Rs=Conn.execute(Sql)
ThisDayTotal=Rs(0)
If ThisDayTotal=0 Then ThisDayTotal=1

Sql="Select * From CFCount_Web_Day where UserName='"&UserName&"' And Datediff('d',AddDate,'"&AddDate&"')=0 And WebUrl<>'-'"

Sql=Sql&" 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=15
 totalrs=rs.RecordCount
 totalpage=rs.pageCount
 mypagesize=rs.pagesize
 rs.absolutepage=page
End If
%>
          <tr class="tba_tr_1"> 
            <td colspan="5"><div align="center"><strong><%=AddDate%> 页面浏览统计[可点击标题排序]</strong></div></td>
          </tr>
          <tr> 
            <td bgcolor="#FFFFFF"><div align="center"><a href="?Action=<%=Action%>&AddDate=<%=AddDate%>&Px=ID"><strong>序号</strong></a></div></td>
            <td bgcolor="#FFFFFF"><div align="center"><a href="?Action=<%=Action%>&AddDate=<%=AddDate%>&Px=WebUrl"><strong>网站页面</strong></a></div></td>
            <td bgcolor="#FFFFFF"><div align="center"><strong><a href="?Action=<%=Action%>&AddDate=<%=AddDate%>&Px=MyCounter">浏览数量</a></strong></div></td>
            <td bgcolor="#FFFFFF"><div align="center"><a href="?Action=<%=Action%>&AddDate=<%=AddDate%>&Px=MyCounter"><strong>所占此天的比例</strong></a></div></td>
            <td bgcolor="#FFFFFF"><div align="center"><a href="?Action=<%=Action%>&AddDate=<%=AddDate%>&Px=LastTime"><strong>最后访问时间</strong></a></div></td>
          </tr>
          <%