fysystem.asp

一个用户访问记录程序 基本功能 就是记录客户访问情况

<!--#include file="top.asp" -->
<%
'******************************
'
'      飞越访客多用户统计系统
'    飞越   [e-mail] 
'        www.pwsite.net
'
'     版权所有: 动力在线
'
'******************************
%>
<%if errornum<>1 then%>

<div align="center">
  <center>
<table border=1 borderColor=<%=tdc2%> cellPadding=4 cellSpacing=1 width=<%=tdc3%> style="border-collapse: collapse" align=center >
  <tr>
    <td colspan="3" align="center" <%=hColor1%> class=tdc1 height="23"><%=fyear%>操作系统使用分析</td>
  </tr>
  <tr class=tdc1 >
    <td <%=hColor2%> height="22">
    <p align="center">操作系统</td>
    <td <%=hColor2%> height="22">
    <p align="center">访问人数</td>
    <td <%=hColor2%> height="22">
    <p align="center">比例图-报表</td>
  </tr>
<%    
   sql="select count(fid) as alldayweek from fcount where fuser='"&view&"'"
set rs=conn.execute(sql)
maxalldayweek=rs("alldayweek")
rcount=rs("alldayweek")
if maxalldayweek=0 then maxalldayweek=1
set rs=nothing
sql="select fwindows from fcount where fuser='"&view&"' group by fwindows"
set rs=conn.execute(sql)
do while not rs.eof 
sql1="select count(*) as fweek1 from fcount where fwindows='"&rs("fwindows")&"' and fuser='"&view&"'"
set rs1=conn.execute(sql1)
fweek1=rs1("fweek1")

%>
  <tr>
    <td class=tdc bgcolor=<%=tcolor2%> height="20" width=15%><%=rs("fwindows")%></td>
    
    <td class=tdc bgcolor=<%=tcolor2%> height="20" width=15%><%=fweek1%></td>
    <td class=tdc bgcolor=<%=tcolor2%> height="20"><img  src="image/b3.gif"	width="<%=(fweek1/maxalldayweek)*100%>" height="10"%><%=round(((fweek1/maxalldayweek)*100),2)%>%
</td>  </tr>

   <% set rs1=nothing
   rs.movenext
   loop
   set rs=nothing%>
   

 <tr>
    <td colspan="3" align="center" <%=hColor2%> class=tdc1 height="22">总访问人数:<%=rcount%> </td>
  </tr>
</table>
  </center>
</div>
<BR>
<div align="center">
  <center>
<table border=1 borderColor=<%=tdc2%> cellPadding=4 cellSpacing=1 width=<%=tdc3%> style="border-collapse: collapse" align=center >
  <tr>
    <td colspan="3" align="center" <%=hColor1%> class=tdc1 height="23">
    浏览器使用分析</td>
  </tr>
  <tr class=tdc1 >
    <td <%=hColor2%> height="22">
    <p align="center">浏览器&nbsp;&nbsp;&nbsp; </td>
    <td <%=hColor2%> height="22">
    <p align="center">访问人数</td>
    <td <%=hColor2%> height="22">
    <p align="center">比例图-报表</td>
  </tr>
  <% sql="select fsystem from fcount where  fuser='"&view&"'  group by fsystem "
set rs=conn.execute(sql)
do while not rs.eof 
sql1="select count(*) as fweek1 from fcount where fsystem='"&rs("fsystem")&"' and fuser='"&view&"'"
set rs1=conn.execute(sql1)
fweek1=rs1("fweek1")%>
  <tr>
    <td class=tdc bgcolor=<%=tcolor2%> height="20" width=15%><%=rs("fsystem")%></td>
    
    <td class=tdc bgcolor=<%=tcolor2%> height="20" width=15%><%=fweek1%></td>
    <td class=tdc bgcolor=<%=tcolor2%> height="20"><img  src="image/b3.gif"	width="<%=(fweek1/maxalldayweek)*100%>" height="10"%><%=round(((fweek1/maxalldayweek)*100),2)%>%
</td>  </tr>
   <% set rs1=nothing
   rs.movenext
   loop
   set rs=nothing%>
    <tr>
    <td colspan="3" align="center" <%=hColor2%> class=tdc1 height="22">总访问人数:<%=rcount%></td>
  </tr>
</table></center>
</div>
<%else%>
 <!--#include file="error.asp" -->
<%end if%><!--#include file="bq.asp" -->