view.asp

物流管理系统

          <tr align="center"> 
            <td align="left" bordercolor="#33CCCC" bgcolor="#FFFFFF"><div align="right">昨日流量：</div></td>
            <td align="left" bgcolor="#FFFFFF"><div align="center"><%=Rs("Counter")%></div></td>
            <td align="left" bgcolor="#FFFFFF"><div align="center"><%=Rs("IpCounter")%></div></td>
            <td align="left" bgcolor="#FFFFFF">最高浏览量： <%=RsTopShow("Counter")%> PV (发生在: <%=RsTopShow("AddDate")%>)</td>
          </tr>
          <%
Sql="Select Sum(Counter),Sum(IpCounter) From WWW_QQCF_COM_CfCount_Day_Count Where User_Name='"&User_Name&"' And DateDiff('m',AddDate,Date())=0"
Set Rs=Conn.Execute(Sql)
%>
          <tr align="center"> 
            <td align="left" bordercolor="#33CCCC" bgcolor="#FFFFFF"><div align="right">本月累计：</div></td>
            <td align="left" bgcolor="#FFFFFF"><div align="center"><%=Rs(0)%></div></td>
            <td align="left" bgcolor="#FFFFFF"><div align="center"><%=Rs(1)%></div></td>
            <td align="left" bgcolor="#FFFFFF">&nbsp;</td>
          </tr>
          <%
Sql="Select Sum(Counter),Sum(IpCounter) From WWW_QQCF_COM_CfCount_Day_Count Where User_Name='"&User_Name&"' And DateDiff('yyyy',AddDate,Date())=0"
Set Rs2=Conn.Execute(Sql)
%>
          <tr align="center"> 
            <td align="left" bordercolor="#33CCCC" bgcolor="#FFFFFF"><div align="right">今年累计：</div></td>
            <td align="left" bgcolor="#FFFFFF"><div align="center"><%=Rs2(0)%></div></td>
            <td align="left" bgcolor="#FFFFFF"><div align="center"><%=Rs2(1)%></div></td>
            <td align="left" bgcolor="#FFFFFF">最低访问量： <%=RsLowIp("IpCounter")%> IP (发生在: <%=RsLowIp("AddDate")%>)</td>
          </tr>
          <tr align="center"> 
            <td align="left" bordercolor="#33CCCC" bgcolor="#FFFFFF"><div align="right">平均每日：</div></td>
            <td align="left" bgcolor="#FFFFFF"><div align="center"><%=Int(RsUser("RealShowTotal")/DateDiff("d",RsUser("AddTime"),Now())+1)%></div></td>
            <td align="left" bgcolor="#FFFFFF"><div align="center"><%=Int(RsUser("RealIpTotal")/DateDiff("d",RsUser("AddTime"),Now())+1)%></div></td>
            <td align="left" bgcolor="#FFFFFF">最低浏览量： <%=RsLowShow("Counter")%> Pv (发生在: <%=RsLowShow("AddDate")%>)</td>
          </tr>
          <tr align="center"> 
            <td align="left" bordercolor="#33CCCC" bgcolor="#FFFFFF"><div align="right">预计今日：</div></td>
            <td align="left" bgcolor="#FFFFFF"><div align="center"> 
                <%
			MyTime=DateDiff("n",Date(),Now())
			If MyTime=0 Then MyTime=1
			Response.write Int(TodayShow*1440/MyTime)
			%>
              </div></td>
            <td align="left" bgcolor="#FFFFFF"><div align="center"> 
                <%Response.write Int(TodayIp*1440/MyTime)%>
              </div></td>
            <td align="left" bgcolor="#FFFFFF">&nbsp;</td>
          </tr>
        </table>
<%End If%>

<%If RsUser("TodayLyOpen")=-1 Then%><br>
<%
Myarray=Split(Application(User_Name&"_Ly"),"|")
%>

  <table width="730" border="0" align="center" cellpadding="2" cellspacing="1" bordercolor="D6DFF5" bgcolor="D6DFF5">
          <tr> 
            <td colspan="8" align="center"><strong>最新访问记录</strong></td>
          </tr>
          <tr bgcolor="#FFFFFF"> 
            <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>
          <%
		  If Ubound(Myarray)>10 Then
		   K=Ubound(Myarray)-10
		  Else
		   K=0
		  End if
		  
		  For I=Ubound(Myarray)-1 TO K Step -1
		  J=J+1%>
          <%
		  If MyArray(I)="" Then MyArray(I)="\"
		  MyArray_2=Split(MyArray(I),"\")%>
          <tr> 
            <td align="center" bgcolor="#FFFFFF"><%=J%></td>
            <td align="center" bgcolor="#FFFFFF"> <%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" bgcolor="#FFFFFF"><%=MyArray_2(1)%></td>
            <td align="center" bgcolor="#FFFFFF"><%=GetTurnTime(Hour(Cdate(MyArray_2(2))))&":"&GetTurnTime(Minute(Cdate(MyArray_2(2))))&":"&GetTurnTime(Second(Cdate(MyArray_2(2))))%></td>
            <td align="center" bgcolor="#FFFFFF"> <%If MyArray_2(3)="-" Then%>
              直接从浏览器输入 
              <%Else%> <a href="http://<%=BreakUrl(MyArray_2(3),1)%>" target='_blank'><%=BreakUrl(MyArray_2(3),1)%></a>[<a href="<%=MyArray_2(3)%>" target='_blank'>详细</a>] 
              <%End If%></td>
            <td align="center" bgcolor="#FFFFFF"><%=GetTurnTime(Hour(Cdate(MyArray_2(4))))&":"&GetTurnTime(Minute(Cdate(MyArray_2(4))))&":"&GetTurnTime(Second(Cdate(MyArray_2(4))))%></td>
            <td align="center" bgcolor="#FFFFFF"> <%If MyArray_2(5)="-" Then%>
              直接从浏览器输入 
              <%Else%> <a href="<%=MyArray_2(5)%>" target='_blank'><%=BreakUrl(MyArray_2(5),2)%></a>[<a href="<%=MyArray_2(5)%>" target='_blank'>详细</a>] 
              <%End If%></td>
            <td align="center" bgcolor="#FFFFFF"><%=MyArray_2(6)%></td>
          </tr>
          <%
Next%>
        </table>
        <br>

        <table width="730" border="0" align="center" cellpadding="2" cellspacing="1" bordercolor="D6DFF5" bgcolor="D6DFF5">
          <%
Ip=Request.ServerVariables("HTTP_X_FORWARDED_FOR")
If Ip= "" Then Ip= Request.ServerVariables("REMOTE_ADDR")

Sql="Select Sum(Counter) From WWW_QQCF_COM_CfCount_Ly where User_Name='"&User_Name&"' And Datediff('d',AddDate,Date())=0"
Set Rs=Conn.execute(Sql)
ThisDayTotal=Rs(0)
If ThisDayTotal=0 Then ThisDayTotal=1

Sql="Select * From WWW_QQCF_COM_CfCount_Ly where User_Name='"&User_Name&"' And Datediff('d',AddDate,Date())=0 Order By Counter Desc"
Set Rs = Server.CreateObject("ADODB.Recordset")
Rs.open Sql,Conn,1,1
%>
          <tr> 
            <td colspan="7"><div align="center"><strong><%=Date()%> 来源统计</strong></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>来源数量</strong></div></td>
            <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"><div align="center"><strong>最后访问时间</strong></div></td>
          </tr>
<%
I=0
While Not Rs.Eof
I=I+1
%>
          <tr
<%If I Mod 2=0 Then
 Response.Write " bgcolor='#ffffff'"
Else
 Response.Write " bgcolor='#e8e8e8'"
End If
%>> 
            <td class="td_1"><div align="center"><%=I%></div></td>
            <td class="td_1"><div align="center"> 
                <%If Rs("LyHead")="-" Then
  Response.Write "直接从浏览器输入"
 Else
  Response.Write "<a href=http://"&Rs("LyHead")&" target='_blank'>"&Rs("LyHead")&"</a>&nbsp;[<a href="&Rs("Ly")&" target='_blank'>详细</a>]"
 End If%>
              </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("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>"%>

              </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
wend%></form>
        </table>

<%End If%>
        <%If RsUser("OnlineOpen")=-1 Then%><br>

        <%
Myarray=Split(Application(User_Name&"_Online"),"|")
%>

  <table width="730" border="0" align="center" cellpadding="2" cellspacing="1" bordercolor="D6DFF5" bgcolor="D6DFF5">
          <tr> 
            <td colspan="8" align="center"><strong>最新在线</strong></td>
          </tr>
          <tr bgcolor="#FFFFFF"> 
            <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>
          <%
		  If Ubound(Myarray)>10 Then
		   K=Ubound(Myarray)-10
		  Else
		   K=0
		  End if
		  
		  For I=Ubound(Myarray)-1 TO K Step -1
		  J=J+1%>
          <%
		  If MyArray(I)="" Then MyArray(I)="\"
		  MyArray_2=Split(MyArray(I),"\")%>
          <tr> 
            <td align="center" bgcolor="#FFFFFF"><%=J%></td>
            <td align="center" bgcolor="#FFFFFF"> <%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" bgcolor="#FFFFFF"><%=MyArray_2(1)%></td>
            <td align="center" bgcolor="#FFFFFF"><%=GetTurnTime(Hour(Cdate(MyArray_2(2))))&":"&GetTurnTime(Minute(Cdate(MyArray_2(2))))&":"&GetTurnTime(Second(Cdate(MyArray_2(2))))%></td>
            <td align="center" bgcolor="#FFFFFF"> <%If MyArray_2(3)="-" Then%>
              直接从浏览器输入 
              <%Else%> <a href="http://<%=BreakUrl(MyArray_2(3),1)%>" target='_blank'><%=BreakUrl(MyArray_2(3),1)%></a>[<a href="<%=MyArray_2(3)%>" target='_blank'>详细</a>] 
              <%End If%></td>
            <td align="center" bgcolor="#FFFFFF"><%=GetTurnTime(Hour(Cdate(MyArray_2(4))))&":"&GetTurnTime(Minute(Cdate(MyArray_2(4))))&":"&GetTurnTime(Second(Cdate(MyArray_2(4))))%></td>
            <td align="center" bgcolor="#FFFFFF"> <%If MyArray_2(5)="-" Then%>
              直接从浏览器输入 
              <%Else%> <a href="<%=MyArray_2(5)%>" target='_blank'><%=BreakUrl(MyArray_2(5),2)%></a>[<a href="<%=MyArray_2(5)%>" target='_blank'>详细</a>] 
              <%End If%></td>
            <td align="center" bgcolor="#FFFFFF"><%=MyArray_2(6)%></td>
          </tr>
          <%
Next%></table>
        <%End If%>
		
        <%If RsUser("TodayHourOpen")=-1 Then%><br>
  <%
AddDate=Date()

Sql="Select Sum(Counter),Sum(IpCounter) From WWW_QQCF_COM_CfCount_Hour_Count where User_Name='"&user_name&"' And AddDate=#"&AddDate&"#"
Set Rs=Conn.Execute(Sql)
ShowTotal=Rs(0)
IpTotal=Rs(1)
If ShowTotal=0 Then ShowTotal=1
If IpTotal=0 Then IpTotal=1

Sql="Select AddHour,AddDate From WWW_QQCF_COM_CfCount_Hour_Count Where User_Name='"&user_name&"' And AddDate=#"&AddDate&"# Group By AddHour,AddDate Order By AddHour Desc"
Set Rs = Server.CreateObject("ADODB.Recordset")
Rs.open Sql,Conn,1,1
%>

        <table width="730" border="0" align="center" cellpadding="2" cellspacing="1" bordercolor="D6DFF5" bgcolor="D6DFF5">
          <tr bgcolor="D6DFF5">