manage.asp

物流管理系统

          <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=Counter">浏览数量</a></strong></div></td>
            <td bgcolor="#FFFFFF"><div align="center"><a href="?Action=<%=Action%>&AddDate=<%=AddDate%>&Px=Counter"><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>
          <%
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"> 
                <%
  Response.Write "<a href="&Rs("WebUrl")&" target='_blank'>"&Left(BreakUrl(Rs("WebUrl"),2),30)&"</a>&nbsp;[<a href="&Rs("WebUrl")&" target='_blank'>详细</a>]"
%>
              </div></td>
            <td class="td_1"><div align="center"><%=Rs("Counter")%></div></td>
            <td class="td_1"><img src=qqcf_pic/qqcf_redbar.gif width=<%=Rs("Counter")/ThisDayTotal*150%> height=10><%=MyRate(Rs("Counter"),ThisDayTotal)%>%</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%>
          <tr
<%If MyPageSize Mod 2=0 Then
 Response.Write " bgcolor='#ffffff'"
Else
 Response.Write " bgcolor='#e8e8e8'"
End If
%>> 
            <td colspan="5" class="td_1"><table width="724" border="0" cellspacing="0" cellpadding="0">
                    <tr>
                      <form name="form6" method="post" action="?Action=allwebtjdel">
					  <td width="626"><div align="right">
<input type="submit" name="Submit3322" value="删除所有页面统计" onClick="{if(confirm('确定要删除所有页面统计么?')){return true;}return false;};">
                        </div></td></form>
                      <form name="form6" method="post" action="?Action=beforewebtjdel">
                    <td width="150"><div align="right"><input type="submit" name="Submit33222" value="删除今天以前的页面统计" onClick="{if(confirm('确定要删除今天以前的页面统计么?')){return true;}return false;};">
                      </div></td></form>
                    </tr>
                  </table></td>
          </tr>
        </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 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(2)%>天记录，共<%=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>
          </tr>
          <tr>
            <td colspan="4" bgcolor="D6DFF5">
<%
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 border="0" align="center" cellpadding="0" cellspacing="2">
    <tr> 
      <td 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%>页</div></td>
      <td><table width="100%" border="0" cellspacing="0" cellpadding="0">
          <tr> 
            <td><form name="form1" method="post" action="jczx.asp">
                <div align="left"> 
                  <Select  name="page" size="1" class=smallselsect id="select3" style='BACKGROUND-COLOR:#ffffff;font-family: 宋体; font-size: 9pt;' 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>
                </div>
              </form></td>
          </tr>
        </table></td>
    </tr>
  </table>
<%End If%>

<%If Request("Action")="monthtj" Then%>
<table width="730" border="0" align="center" cellpadding="2" cellspacing="1" bordercolor="D6DFF5" bgcolor="D6DFF5">
          <tr> 
            <td colspan="4"><div align="center"><strong>最近12个月访问统计</strong> <br>
              </div></td>
          </tr>
          <tr> 
            <td bgcolor="#FFFFFF"><div align="center"><strong>月份</strong></div></td>
            <td bgcolor="#FFFFFF"><div align="center"><strong>显示数量</strong></div></td>
            <td bgcolor="#FFFFFF"><div align="center"><strong>IP数量</strong></div></td>
            <td bgcolor="#FFFFFF"><strong>在12个月内的比率及数量</strong></td>
          </tr>
          <%
ShowTotal=0