📄 monther.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">
<%
monthd=Datepart("yyyy",now())
monthdm=cstr(monthd)
monthfor=cstr(Datepart("yyyy",Dateadd("yyyy",-1,now())))
sqlmonthdm="select * from kmonth where kmonthuserid='"&session("countuserid")&"' and kmonthyear='"&monthdm&"' order by kmonth"'//当年月份
set rssqlmonthdm=Server.createobject("adodb.recordset")
rssqlmonthdm.open sqlmonthdm,conn,1,1
sqlmonthdm1="select sum(kmonthcount) from kmonth where kmonthuserid='"&session("countuserid")&"' and kmonthyear='"&monthdm&"' "
'//前年同一月份
set rssqlmonthdm1=Server.createobject("adodb.recordset")
rssqlmonthdm1.open sqlmonthdm1,conn,1,1
newmonthcount=rssqlmonthdm1(0)
rssqlmonthdm1.close
set rssqlmonthdm1=nothing
%>
</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="#FFFFFF"><font color="#000000"><a href="week.asp" class="titlefont">周统计</a></font></td>
<td width="69" class="navigation" height="18" bgcolor="#3366cc"><font color="#FFFFFF" class="titlefont">月统计</font></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>
<%
if not rssqlmonthdm.eof then
while not rssqlmonthdm.eof
ykmonth=rssqlmonthdm("kmonth")
ykmonth1=ykmonth
ykmonthnum=rssqlmonthdm("kmonthcount")
newmonthcountav=ykmonthnum/newmonthcount
'newmonthcountav2=int(newmonthcount/2)
sqlmonthdm="select * from kmonth where kmonthuserid='"&session("countuserid")&"' and kmonthyear='"&monthfor&"' and kmonth='"&ykmonth&"'"
set rssqlmonthdm1=Server.createobject("adodb.recordset")
rssqlmonthdm1.open sqlmonthdm,conn,1,1
if not rssqlmonthdm1.eof then
ymonthfor=rssqlmonthdm1("kmonthcount")
rssqlmonthdm1.close
set rssqlmonthdm1=nothing
else
ymonthfor=""
rssqlmonthdm1.close
set rssqlmonthdm1=nothing
end if
if left(ykmonth1,1)="0" then
ykmonth1=Replace(ykmonth1,"0","")
end if
%>
<tr bgcolor="#FFFFFF">
<td height="20" align="center"><%=monthd%>年<%=ykmonth1%>月</td>
<td height="20" align="center"><%=ykmonthnum%></td>
<td height="20" align="center"><%=ymonthfor%></td>
<td height="20" width="324">
<table width="324" border="0" cellspacing="0" cellpadding="0" height="12">
<tr>
<td width="200">
<table width="<%=newmonthcountav*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(newmonthcountav,1)%></td>
</tr>
</table>
</td>
</tr>
<%
rssqlmonthdm.movenext
wend
rssqlmonthdm.close
set rssqlmonthdm=nothing
%>
<%
else
rssqlmonthdm.close
set rssqlmonthdm=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 + -