📄 hour.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">
<%
timem=month(now())
timed=day(now())
timedm=cstr(timed)
timeformer=day(Dateadd("d",-1,now()))
timeformerdm=cstr(timeformer)
if len(timedm)=1 then
timedm="0"&timedm
end if
if len(timeformerdm)=1 then
timeformerdm="0"&timeformerdm
end if
sqltime="select * from ktime where ktimeuserid='"&session("countuserid")&"' and ktimeday='"&timedm&"' "
set rssqltime=Server.createobject("adodb.recordset")
rssqltime.open sqltime,conn,1,1
if not rssqltime.eof then
sqltime2="select sum(ktimecount) from ktime where ktimeuserid='"&session("countuserid")&"' and ktimeday='"&timedm&"' "
set rssqltime2=Server.createobject("adodb.recordset")
rssqltime2.open sqltime2,conn,1,1
newsqltime2=rssqltime2(0)
rssqltime2.close
set rssqltime2=nothing
knote="1"
while not rssqltime.eof
ktimehour=rssqltime("ktimehour")
ktimecountt=rssqltime("ktimecount")
select case ktimehour
case "0"
ktimehour0=ktimecountt
case "1"
ktimehour1=ktimecountt
case "2"
ktimehour22=ktimecountt'取ktimehour2变量名时和某变量冲突
case "3"
ktimehour3=ktimecountt
case "4"
ktimehour4=ktimecountt
case "5"
ktimehour5=ktimecountt
case "6"
ktimehour6=ktimecountt
case "7"
ktimehour7=ktimecountt
case "8"
ktimehour8=ktimecountt
case "9"
ktimehour9=ktimecountt
case "10"
ktimehour10=ktimecountt
case "11"
ktimehour11=ktimecountt
case "12"
ktimehour12=ktimecountt
case "13"
ktimehour13=ktimecountt
case "14"
ktimehour14=ktimecountt
case "15"
ktimehour15=ktimecountt
case "16"
ktimehour16=ktimecountt
case "17"
ktimehour17=ktimecountt
case "18"
ktimehour18=ktimecountt
case "19"
ktimehour19=ktimecountt
case "20"
ktimehour20=ktimecountt
case "21"
ktimehour21=ktimecountt
case "22"
ktimehour22=ktimecountt
case "23"
ktimehour23=ktimecountt
end select
rssqltime.movenext
wend
rssqltime.close
set rssqltime=nothing
else
knote="2"
newsqltime2=0
rssqltime.close
set rssqltime=nothing
end if
sqltime2="select * from ktime where ktimeuserid='"&session("countuserid")&"' and ktimeday='"&timeformerdm&"' "
set rssqltime2=Server.createobject("adodb.recordset")
rssqltime2.open sqltime2,conn,1,1
if not rssqltime2.eof then
while not rssqltime2.eof
ktimehour2=rssqltime2("ktimehour")
ktimecount2=rssqltime2("ktimecount")
select case ktimehour2
case "0"
ktimehourfor0=ktimecount2
case "1"
ktimehourfor1=ktimecount2
case "2"
ktimehourfor2=ktimecount2
case "3"
ktimehourfor3=ktimecount2
case "4"
ktimehourfor4=ktimecount2
case "5"
ktimehourfor5=ktimecount2
case "6"
ktimehourfor6=ktimecount2
case "7"
ktimehourfor7=ktimecount2
case "8"
ktimehourfor8=ktimecount2
case "9"
ktimehourfor9=ktimecount2
case "10"
ktimehourfor10=ktimecount2
case "11"
ktimehourfor11=ktimecount2
case "12"
ktimehourfor12=ktimecount2
case "13"
ktimehourfor13=ktimecount2
case "14"
ktimehourfor14=ktimecount2
case "15"
ktimehourfor15=ktimecount2
case "16"
ktimehourfor16=ktimecount2
case "17"
ktimehourfor17=ktimecount2
case "18"
ktimehourfor18=ktimecount2
case "19"
ktimehourfor19=ktimecount2
case "20"
ktimehourfor20=ktimecount2
case "21"
ktimehourfor21=ktimecount2
case "22"
ktimehourfor22=ktimecount2
case "23"
ktimehourfor23=ktimecount2
end select
rssqltime2.movenext
wend
rssqltime2.close
set rssqltime2=nothing
else
rssqltime2.close
set rssqltime2=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="69" bgcolor="#FFFFFF"><font color="#000000"><a href="index.asp?countuser=<%=session("countuserid")%>" class="titlefont">综合统计</a></font></td>
<td width="69" class="navigation" height="18" bgcolor="#3366cc"><font color="#FFFFFF" class="titlefont">时统计</font></td>
<td width="69" class="navigation" height="18" bgcolor="#FFFFFF"><a href="day.asp" class="titlefont">日统计</a></td>
<td width="69" class="navigation" height="18" bgcolor="#FFFFFF"><a href="week.asp" class="titlefont">周统计</a></td>
<td width="69" class="navigation" height="18" bgcolor="#FFFFFF"><a href="monther.asp" class="titlefont">月统计</a></td>
<td width="69" class="navigation" height="18" bgcolor="#FFFFFF"><a href="area.asp" class="titlefont">地区</a></td>
<td width="69" class="navigation" height="18" bgcolor="#FFFFFF"><a href="exprace.asp" class="titlefont">浏览器</a></td>
<td width="69" class="navigation" height="18" bgcolor="#FFFFFF"><a href="economy.asp" class="titlefont">操作系统</a></td>
<td width="69" 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="font-size:12pt"><%=timem%>月<%=timed%>日</font> <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">0 </td>
<td height="20" align="center"><%=ktimehour0%></td>
<td height="20" align="center"><%=ktimehourfor0%></td>
<td height="20" width="324">
<table width="324" border="0" cellspacing="0" cellpadding="0" height="12">
<tr>
<td width="200">
<table width="<%if knote="1" then response.write (ktimehour0/newsqltime2)*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 knote="1" then response.write FormatNumber((ktimehour0/newsqltime2)*100,1)&"%" else response.write "0%" end if%>
</td>
</tr>
</table>
</td>
</tr>
<tr>
<td height="20" align="center" bgcolor="#E7E7E7">1 </td>
<td height="20" bgcolor="#E7E7E7" align="center"><%=ktimehour1%></td>
<td height="20" bgcolor="#E7E7E7" align="center"><%=ktimehourfor1%></td>
<td height="20" bgcolor="#E7E7E7" width="324">
<table width="324" border="0" cellspacing="0" cellpadding="0" height="12">
<tr>
<td width="200">
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -