📄 week.asp
字号:
<!--#include file=conn.asp-->
<html>
<head>
<title>流量统计</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" href="css/command.css" type="text/css">
<%
weekdfor=Dateadd("ww",-1,now())
weekd=Datepart("ww",now())
weekdform=cstr(Datepart("ww",weekdfor))
weekdm=cstr(weekd)
sqlweekdm="select * from kday where kdayuserid='"&session("countuserid")&"' and kdayweeknumber='"&weekdm&"' order by kdayweek"
set rssqlweek=Server.createobject("adodb.recordset")
rssqlweek.open sqlweekdm,conn,1,1
if not rssqlweek.eof then
sqlweekdm2="select sum(kdaycount) from kday where kdayuserid='"&session("countuserid")&"' and kdayweeknumber='"&weekdm&"'"
set rssqlweekdm2=Server.createobject("adodb.recordset")
rssqlweekdm2.open sqlweekdm2,conn,1,1
newrssqlweekdm2=rssqlweekdm2(0)
rssqlweekdm2.close
set rssqlweekdm2=nothing
kwnote="1"
while not rssqlweek.eof
wkdayweek=rssqlweek("kdayweek")
select case wkdayweek
case "1"
tweek1=rssqlweek("kdaycount")'星期日"
case "2"
tweek2=rssqlweek("kdaycount")'"星期一"
case "3"
tweek3=rssqlweek("kdaycount")'"星期二"
case "4"
tweek4=rssqlweek("kdaycount")'"星期三"
case "5"
tweek5=rssqlweek("kdaycount")'"星期四"
case "6"
tweek6=rssqlweek("kdaycount")'"星期五"
case "7"
tweek7=rssqlweek("kdaycount")'"星期六"
end select
rssqlweek.movenext
wend
rssqlweek.close
set rssqlweek=nothing
else
kwnote="2"
rssqlweek.close
set rssqlweek=nothing
end if
sqlweekfor="select * from kday where kdayuserid='"&session("countuserid")&"' and kdayweeknumber='"&weekdform&"'"
set rssqlweekfor=Server.createobject("adodb.recordset")
rssqlweekfor.open sqlweekfor,conn,1,1
if not rssqlweekfor.eof then
while not rssqlweekfor.eof
wkdayweekfor=rssqlweekfor("kdayweek")
select case wkdayweekfor
case "1"
tweekfor1=rssqlweekfor("kdaycount")'星期日"
case "2"
tweekfor2=rssqlweekfor("kdaycount")'"星期一"
case "3"
tweekfor3=rssqlweekfor("kdaycount")'"星期二"
case "4"
tweekfor4=rssqlweekfor("kdaycount")'"星期三"
case "5"
tweekfor5=rssqlweekfor("kdaycount")'"星期四"
case "6"
tweekfor6=rssqlweekfor("kdaycount")'"星期五"
case "7"
tweekfor7=rssqlweekfor("kdaycount")'"星期六"
end select
rssqlweekfor.movenext
wend
rssqlweekfor.close
set rssqlweekfor=nothing
else
rssqlweekfor.close
set rssqlweekfor=nothing
end if
%>
</head>
<body bgcolor="#FFFFFF" text="#000000">
<table width="640" border="0" cellspacing="1" cellpadding="0" align="center" bgcolor="#000000">
<tr>
<td bgcolor="#FFFFFF">
<table width="640" border="0" cellspacing="0" cellpadding="0">
<tr>
<td align="center">
<!--#include file=title.htm-->
</td>
</tr>
<tr>
<td>
<table width="624" border="0" cellspacing="0" cellpadding="0" align="center">
<tr>
<td height="30"><img src="images/little.gif" width="1" height="1"></td>
</tr>
<tr>
<td>
<table width="624" border="0" cellspacing="1" cellpadding="0" align="center" bgcolor="#3366cc">
<tr align="center" valign="bottom">
<td class="navigation" height="18" width="68" bgcolor="#FFFFFF"><font color="#000000"><a href="index.asp?countuser=<%=session("countuserid")%>" class="titlefont">综合统计</a></font></td>
<td width="68" class="navigation" height="18" bgcolor="#FFFFFF"><font color="#000000"><a href="hour.asp" class="titlefont">时统计</a></font></td>
<td width="68" class="navigation" height="18" bgcolor="#FFFFFF"><a href="day.asp" class="titlefont">日统计</a></td>
<td width="67" class="navigation" height="18" bgcolor="#3366cc"><font color="#FFFFFF" class="titlefont">周统计</font></td>
<td width="69" class="navigation" height="18" bgcolor="#FFFFFF"><a href="monther.asp" class="titlefont">月统计</a></td>
<td width="68" class="navigation" height="18" bgcolor="#FFFFFF"><a href="area.asp" class="titlefont">地区</a></td>
<td width="68" class="navigation" height="18" bgcolor="#FFFFFF"><a href="exprace.asp" class="titlefont">浏览器</a></td>
<td width="68" class="navigation" height="18" bgcolor="#FFFFFF"><a href="economy.asp" class="titlefont">操作系统</a></td>
<td width="68" class="navigation" height="18" bgcolor="#FFFFFF"><a href="registor.asp" class="titlefont">注册</a></td>
</tr>
<tr align="center" valign="bottom">
<td class="navigation" height="2" colspan="9" bgcolor="#3366cc"><img src="images/little.gif" width="1" height="1"></td>
</tr>
</table>
</td>
</tr>
<tr>
<td height="18"><img src="images/little.gif" width="1" height="1"></td>
</tr>
<tr>
<td valign="top">
<table width="624" border="0" cellspacing="1" cellpadding="0" bgcolor="#3366cc">
<tr>
<td bgcolor="#FFFFFF" valign="top">
<table width="624" border="0" cellspacing="1" cellpadding="0" bgcolor="#000000">
<tr align="center">
<td colspan="4" height="20" bgcolor="#3366cc"><font color="#FFFFFF" style="letter-spacing:14pt;font-size:14px">周流量统计基本信息</font></td>
</tr>
<tr align="center">
<td width="80" height="20" bgcolor="#E7E7E7"> <font color="#000000">星期</font></td>
<td height="20" bgcolor="#E7E7E7" width="100">访问量</td>
<td height="20" bgcolor="#E7E7E7" width="120">上周同时间访问量</td>
<td height="20" bgcolor="#E7E7E7" width="324">图示</td>
</tr>
<tr bgcolor="#FFFFFF">
<td height="20" align="center">星期一</td>
<td height="20" align="center"><%=tweek2%></td>
<td height="20" align="center"><%=tweekfor2%></td>
<td height="20" width="324">
<table width="324" border="0" cellspacing="0" cellpadding="0" height="12">
<tr>
<td width="200">
<table width="<%if kwnote="1" then response.write (tweek2/newrssqlweekdm2)*200 else response.write 1 end if%>" border="0" cellspacing="0" cellpadding="0" height="13">
<tr>
<td background="images/img.GIF"><img src="images/little.gif" width="1" height="1"></td>
</tr>
</table>
</td>
<td>
<%if kwnote="1" then response.write FormatNumber((tweek2/newrssqlweekdm2)*100,1)&"%" else response.write "0%" end if%>
</td>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -