📄 day.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">
<%
dayd=month(now())'//当前月
dayddm=cstr(dayd)
daydfor=Dateadd("m",-1,now())
daydfordm=cstr(month(daydfor))
if len(dayddm)=1 then
dayddm="0"&dayddm
end if
if len(daydfordm)=1 then
daydfordm="0"&daydfordm
end if
sqldayddm2="select sum(kdaycount) from kday where kdaymonth='"&dayddm&"' and kdayuserid='"&session("countuserid")&"'"
set rssqldayddm2=Server.Createobject("adodb.recordset")
rssqldayddm2.open sqldayddm2,conn,1,1
newsqldayddm2=rssqldayddm2(0)
rssqldayddm2.close
set rssqldayddm2=nothing
sqldayddm="select * from kday where kdaymonth='"&dayddm&"' and kdayuserid='"&session("countuserid")&"' order by kday "
set rssqldayddm=Server.Createobject("adodb.recordset")
rssqldayddm.open sqldayddm,conn,1,1
%>
</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="#FFFFFF"><font color="#000000"><a href="hour.asp" 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="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="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>
<%
if not rssqldayddm.eof then
while not rssqldayddm.eof
dkday=rssqldayddm("kday")
dkmon=rssqldayddm("kdaymonth")
dkdaycount=rssqldayddm("kdaycount")
sqldaydmm="select * from kday where kdaymonth='"&daydfordm&"' and kdayuserid='"&session("countuserid")&"' and kday='"&dkday&"' "
set rssqldaydmm=Server.createobject("adodb.recordset")
rssqldaydmm.open sqldaydmm,conn,1,1
if not rssqldaydmm.eof then
daycountfor=rssqldaydmm("kdaycount")
rssqldaydmm.close
set rssqldaydmm=nothing
else
rssqldaydmm.close
set rssqldaydmm=nothing
end if
%>
<tr bgcolor="#FFFFFF">
<td height="20" align="center"><%=dkmon%>月<%=dkday%>日</td>
<td height="20" align="center"><%=dkdaycount%></td>
<td height="20" align="center"><%=daycountfor%></td>
<td height="20" width="324">
<table width="324" border="0" cellspacing="0" cellpadding="0" height="12">
<tr>
<td width="200">
<table width="<%=(dkdaycount/newsqldayddm2)*200%>" 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> <%=FormatPercent((dkdaycount/newsqldayddm2),1)%></td>
</tr>
</table>
</td>
</tr>
<%
rssqldayddm.movenext
wend
rssqldayddm.close
set rssqldayddm=nothing
else
rssqldayddm.close
set rssqldayddm=nothing
%>
<tr bgcolor="#FFFFFF">
<td height="20" align="center" colspan="4">暂时无信息</td>
</tr>
<%end if%>
</table>
</td>
</tr>
</table>
</td>
</tr>
<tr>
<td> </td>
</tr>
<tr>
<td><!--#include file=copyright.htm--></td>
</tr>
<tr>
<td> </td>
</tr>
</table>
</td>
</tr>
</table>
</td>
</tr>
</table>
<%
conn.close
set conn=nothing
%>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -