📄 fyweek.asp
字号:
<HTML><HEAD><TITLE>中华健康网--免费网站流量分析系统</TITLE>
<META http-equiv=Content-Language content=zh-cn>
<META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=gb2312">
<META NAME="Generator" CONTENT="免费统计,计数器,免费计数器,流量统计">
<META NAME="Author" CONTENT="免费统计,计数器,免费计数器,流量统计">
<META NAME="Keywords" CONTENT="免费统计,计数器,免费计数器,流量统计,htm,asp,sql,mssql">
<META NAME="Description" CONTENT="免费统计,计数器,免费计数器,流量统计">
<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)'判断当前年份
fmonth=month(now)'判断当前月份
fday=day(now)'判断当前日期
fweek=weekday(now)'判断当前星期
fweeknum=Datepart("ww",now())'判断当前周数
function weekss(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("星期六")
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 width=98% border=0 align=center cellPadding=0 cellSpacing=0 style="border-collapse: collapse" >
<tr>
<td colspan="3" align="center" class=tdc1 height="23"><font color="#990000"><strong><%=date()%>-周统计</strong></font></td>
</tr>
<tr class=tdc1 >
<td height="22" width="15%"> <p align="center">星期</td>
<td height="22" width="15%"> <p align="center" >访问人数</td>
<td height="22"> <p align="center">比例图-报表</td>
</tr>
<%
sql="select count(fid) as alldayweek from fcount where fyear='"&fyear&"' and fuser='"&view&"' and fmonth='"&fmonth&"' and fweeknum='"&fweeknum&"'"
set rs=conn.execute(sql)
maxalldayweek=rs("alldayweek")
if maxalldayweek=0 then maxalldayweek=1
set rs=nothing
rcount=0
for i= 1 to 7
sql="select count(*) as fweek1 from fcount where fyear='"&fyear&"' and fuser='"&view&"' and fmonth='"&fmonth&"' and fweeknum='"&fweeknum&"' and fweek='"&i&"' group by fweek "
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%"><%=weekss(i)%></td>
<td class=tdc height="20"><%=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">总访问人数:<%=rcount%>
<a href=<%=url1%>action=all> 所有星期统计</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">所有星期统计</font></strong></td>
</tr>
<tr class=tdc1 >
<td height="22" width="15%"> <p align="center">星期</td>
<td height="22" width="15%"> <p align="center">访问人数</td>
<td 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")
if maxalldayweek=0 then maxalldayweek=1
set rs=nothing
rcount=0
for i= 1 to 7
sql="select count(*) as fweek1 from fcount where fweek='"&i&"' and fuser='"&view&"' group by fweek "
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%"><%=weekss(i)%></td>
<td class=tdc height="20"><%=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">总访问人数:<%=rcount%>
<a href=fyweek.asp<%=url%>> 今周统计</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>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -