?? fymonth.asp
字號(hào):
<HTML><HEAD><TITLE>中華健康網(wǎng)--免費(fèi)網(wǎng)站流量分析系統(tǒng)</TITLE>
<META http-equiv=Content-Language content=zh-cn>
<META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=gb2312">
<META NAME="Generator" CONTENT="免費(fèi)統(tǒng)計(jì),計(jì)數(shù)器,免費(fèi)計(jì)數(shù)器,流量統(tǒng)計(jì)">
<META NAME="Author" CONTENT="免費(fèi)統(tǒng)計(jì),計(jì)數(shù)器,免費(fèi)計(jì)數(shù)器,流量統(tǒng)計(jì)">
<META NAME="Keywords" CONTENT="免費(fèi)統(tǒng)計(jì),計(jì)數(shù)器,免費(fèi)計(jì)數(shù)器,流量統(tǒng)計(jì),htm,asp,sql,mssql">
<META NAME="Description" CONTENT="免費(fèi)統(tǒng)計(jì),計(jì)數(shù)器,免費(fèi)計(jì)數(shù)器,流量統(tǒng)計(jì)">
<link rel="stylesheet" href="images/css.css" type="text/css"></HEAD><BODY bgColor=#e1e1e1 topMargin=60>
<TABLE width=569 height=327 border=0 align="center" cellPadding=0 cellSpacing=0
borderColor=#111111 class=ttbb
style="BORDER-RIGHT: 1px dotted; BORDER-TOP: 1px dotted; BORDER-LEFT: 1px dotted; BORDER-BOTTOM: 1px dotted; BORDER-COLLAPSE: collapse">
<TBODY>
<TR>
<TD style="POSITION: relative" width=569 bgColor=#ffffff colSpan=3 height=45><div id="9126" style="position:absolute; left:0px; top:-31px; border-style:none;"><img src="images/logo.gif" width="560" height="78" border="0"></div></TD>
</TR>
<tr align="center">
<td width=569 height=24 colspan=3 bgcolor=#0374b8>
<!--#include file="head.asp" -->
<%if request("view")<>"" then
view=request("view")
url1="?view="&view&"&"
else
url1="?"
end if
%>
<%if errornum<>1 then%>
<% if request.querystring("action")="" then%>
<%
fyear=year(now)'判斷當(dāng)前年份
fmonth=month(now)'判斷當(dāng)前月份
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
%>
</td>
</tr>
<TR>
<TD vAlign=top width=569 bgColor=#66ccff height=194 rowSpan=2><P align=center><IMG height=260 src="images/free.gif" width=52 border=0></P></TD>
<TD colSpan=2 valign="top" background="images/bg.gif" bgColor="#66ccff" class=bgimage>
<div align="center">
<div align="center">
<center>
<table border=0 cellPadding=0 cellSpacing=0 width=98% style="border-collapse: collapse" align=center>
<tr>
<td colspan="3" align="center" class=tdc1 height="23"><font color="#990000"><strong><%=fyear%>年統(tǒng)計(jì)</strong></font></td>
</tr>
<tr class=tdc1 >
<td height="22"> <p align="center">月份</td>
<td height="22"> <p align="center">訪問人數(shù)</td>
<td height="22"> <p align="center">比例圖-報(bào)表</td>
</tr>
<%
sql="select count(fid) as alldayweek from fcount where fyear='"&fyear&"' and fuser='"&view&"'"
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 fuser='"&view&"' 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 height="20" width=15%><%=monthss(i)%></td>
<td class=tdc height="20" width=15%><%=fweek1%></td>
<td class=tdc height="20"><img src="images/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" class=tdc1 height="22">總訪問人數(shù):<%=rcount%>
<a href=<%=url1%>action=all> 所有年統(tǒng)計(jì)</a></td>
</tr>
</table>
</center>
</div>
<%else%>
<div align="center">
<center>
<table border=0 cellPadding=0 cellSpacing=0 width=98% style="border-collapse: collapse" align=center>
<tr>
<td colspan="3" align="center" class=tdc1 height="23"><strong><font color="#990000">所有年統(tǒng)計(jì)</font></strong></td>
</tr>
<tr class=tdc1 >
<td height="22"> <p align="center">月份</td>
<td height="22"> <p align="center">訪問人數(shù)</td>
<td height="22"> <p align="center">比例圖-報(bào)表</td>
</tr>
<% sql="select count(fid) as alldayweek from fcount where fuser='"&view&"' "
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&"' and fuser='"&view&"' 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 height="20" width=15%><%=monthss(i)%></td>
<td class=tdc height="20" width=15%><%=fweek1%></td>
<td class=tdc height="20"><img src="images/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" class=tdc1 height="22">總訪問人數(shù):<%=rcount%>
<a href=fymonth.asp<%=url%>> 今年統(tǒng)計(jì)</a></td>
</tr>
</table>
</center>
</div>
<%end if
set rs=nothing%>
<%else%>
<!--#include file="error.asp" -->
<%end if%></div>
</TD>
</TR>
<TR>
<TD align=right width=569 bgColor=#66ccff height=14></TD>
<TD align=right width=569 bgColor=#66ccff height=14><IMG height=20 src="images/bottomr.gif" width=20 border=0></TD>
</TR>
</TBODY>
</TABLE>
</BODY></HTML>?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號(hào)
Ctrl + =
減小字號(hào)
Ctrl + -