📄 fymonth.asp
字号:
<!--#include file="top.asp" -->
<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)'判断当前月份
function monthss(text)
select case text
Case "1"
response.write("一月")
Case "2"
response.write("二月")
Case "3"
response.write("三月")
Case "4"
response.write("四月")
Case "5"
response.write("五月")
Case "6"
response.write("六月")
Case "7"
response.write("七月")
Case "8"
response.write("八月")
Case "9"
response.write("九月")
Case "10"
response.write("十月")
Case "11"
response.write("十一月")
Case "12"
response.write("十二月")
end select
end function
%>
<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 fyear='"&fyear&"'"
set rs=conn.execute(sql)
maxalldayweek=rs("alldayweek")
if maxalldayweek=0 then maxalldayweek=1
set rs=nothing
rcount=0
for i= 1 to 12
sql="select count(*) as fweek1 from fcount where fyear='"&fyear&"' and fmonth='"&i&"' group by fmonth "
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%><%=monthss(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" <%=hColor2%> 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" <%=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 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 12
sql="select count(*) as fweek1 from fcount where fmonth='"&i&"' group by fmonth "
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%><%=monthss(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" <%=hColor2%> class=tdc1 height="22">总访问人数:<%=rcount%> <a href=fymonth.asp> 今年统计</a></td>
</tr>
</table></center>
</div>
<%end if
set rs=nothing%><!--#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>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -