📄 fysystem.asp
字号:
<!--#include file="top.asp" -->
<%
'******************************
'
' 『头发乱了』访客单用户统计系统
' 张金义 2001_jinge@sohu.com
' http://www.99321.com
'
' 版权所有: 哈哈大侠
'
'*******************************
%>
<BODY aLink=#90d5e5 bgColor=#ffffff link=#90d5e5 text=#666666 topMargin=0
vLink=#90d5e5>
<DIV align=center><BR>
<TABLE border=0 cellPadding=0 cellSpacing=0
style="COLOR: #272727; FONT-SIZE: 10pt">
<TBODY>
<TR>
<TD height=18 width=18><IMG height=18 src="img/t-ani2-a1.gif" width=18></TD>
<TD background=img/t-ani2-a2.gif></TD>
<TD height=18 width=26><IMG height=18 src="img/t-ani2-a3.gif" width=26></TD></TR>
<TR>
<TD background=img/t-ani2-a4.gif></TD>
<TD bgColor=#ffffff height=30 width=600><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"
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 group by fwindows"
set rs=conn.execute(sql)
do while not rs.eof
sql1="select count(*) as fweek1 from fcount where fwindows='"&rs("fwindows")&"'"
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">浏览器 </td>
<td <%=hColor2%> height="22">
<p align="center">访问人数</td>
<td <%=hColor2%> height="22">
<p align="center">比例图-报表</td>
</tr>
<% sql="select fsystem from fcount group by fsystem"
set rs=conn.execute(sql)
do while not rs.eof
sql1="select count(*) as fweek1 from fcount where fsystem='"&rs("fsystem")&"'"
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>
<!--#include file="bq.asp" --></TD>
<TD background=img/t-ani2-a5.gif></TD></TR>
<TR>
<TD height=26 width=18><IMG height=26 src="img/t-ani2-a6.gif" width=18></TD>
<TD background=img/t-ani2-a7.gif></TD>
<TD height=26 width=26><IMG height=26 src="img/t-ani2-a8.gif" width=26></TD></TR></TBODY></TABLE></DIV>
</BODY>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -