📄 fyday.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=350 width=600><% if request.querystring("action")="" then%>
<%
fyear=year(now)'判断当前年份
fmonth=month(now)'判断当前月份
fday=day(now)'判断当前日期
%>
<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" background="image/b1.gif" class=tdc1 height="23"><%=fyear%>年<%=fmonth%>月统计</td>
</tr>
<tr class=tdc1 >
<td background="image/b2.gif" height="22">
<p align="center">日期</td>
<td background="image/b2.gif" height="22">
<p align="center">访问人数</td>
<td background="image/b2.gif" height="22">
<p align="center">比例图-报表</td>
</tr>
<%
sql="select count(fid) as alldayweek from fcount where fyear='"&fyear&"' and fmonth='"&fmonth&"'"
set rs=conn.execute(sql)
maxalldayweek=rs("alldayweek")
if maxalldayweek=0 then maxalldayweek=1
set rs=nothing
rcount=0
for i= 1 to 31
sql="select count(*) as fweek1 from fcount where fyear='"&fyear&"' and fmonth='"&fmonth&"' and fday='"&i&"' group by fday "
set rs=conn.execute(sql)
if not rs.eof then
fweek1=rs("fweek1")
else
fweek1=0
end if
%>
<tr>
<td class=tdc bgcolor=<%=tcolor2%> height="20" width=15%><%=i%></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>
<%rcount=rcount+fweek1
next
%>
<tr>
<td colspan="3" align="center" background="image/b2.gif" class=tdc1 height="22">总访问人数:<%=rcount%> <a href=?action=all> 所有月统计</a></td>
</tr>
</table>
</center>
</div>
<%else%>
<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" background="image/b1.gif" class=tdc1 height="23">所有月统计</td>
</tr>
<tr class=tdc1 >
<td background="image/b2.gif" height="22">
<p align="center">日期</td>
<td background="image/b2.gif" height="22">
<p align="center">访问人数</td>
<td background="image/b2.gif" height="22">
<p align="center">比例图-报表</td>
</tr>
<%sql="select count(fid) as alldayweek from fcount"
set rs=conn.execute(sql)
maxalldayweek=rs("alldayweek")
if maxalldayweek=0 then maxalldayweek=1
set rs=nothing
rcount=0
for i= 1 to 31
sql="select count(*) as fweek1 from fcount where fday='"&i&"' group by fday "
set rs=conn.execute(sql)
if not rs.eof then
fweek1=rs("fweek1")
else
fweek1=0
end if
%>
<tr>
<td class=tdc bgcolor=<%=tcolor2%> height="20" width=15%><%=i%></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>
<%rcount=rcount+fweek1
next
%>
<tr>
<td colspan="3" align="center" background="image/b2.gif" class=tdc1 height="22">总访问人数:<%=rcount%> <a href=fyday.asp> 今月统计</a></td>
</tr>
</table></center>
</div>
<%end if%><!--#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 + -