fymonth.asp

一个用户访问记录程序 基本功能 就是记录客户访问情况

<!--#include file="top.asp" -->
<%
'******************************
'
'      飞越访客多用户统计系统
'    飞越   [e-mail] 
'        www.pwsite.net
'
'     版权所有: 动力在线
'
'******************************
%>
<%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)'判断当前月份
function monthss(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("七月")
Case "8"
response.write("八月")
Case "9"
response.write("九月")
Case "10"
response.write("十月")
Case "11"
response.write("十一月")
Case "12"
response.write("十二月")
end select
end function
%>



<div align="center">
  <center>
<table  border=1 borderColor=<%=tdc2%> cellPadding=4 cellSpacing=1 width=<%=tdc3%> style="border-collapse: collapse" align=center>
  <tr>
    <td colspan="3" align="center" <%=hColor1%> class=tdc1 height="23"><%=fyear%>年统计</td>
  </tr>
  <tr class=tdc1 >
    <td <%=hColor2%> height="22">
    <p align="center">月份</td>
    <td <%=hColor2%> height="22">
    <p align="center">访问人数</td>
    <td <%=hColor2%> height="22">
    <p align="center">比例图-报表</td>
  </tr>
  <% 
sql="select count(fid) as alldayweek from fcount where fyear='"&fyear&"' and 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 12
sql="select count(*) as fweek1 from fcount where fyear='"&fyear&"' and fuser='"&view&"' and fmonth='"&i&"' group by fmonth "
set rs=conn.execute(sql)
if not rs.eof then
fweek1=rs("fweek1")
else
fweek1=0
end if
%>
  <tr>
    <td class=tdc bgcolor=<%=tcolor2%> height="20" width=15%><%=monthss(i)%></td>
    <td class=tdc bgcolor=<%=tcolor2%> height="20" width=15%><%=fweek1%></td>
    <td class=tdc bgcolor=<%=tcolor2%> height="20"><img  src="image/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" <%=hColor2%> class=tdc1 height="22">总访问人数:<%=rcount%>  <a href=<%=url1%>action=all> 所有年统计</a></td>
  </tr>
</table>
  </center>
</div>
<%else%>
<div align="center">
  <center>
<table  border=1 borderColor=<%=tdc2%> cellPadding=4 cellSpacing=1 width=<%=tdc3%> style="border-collapse: collapse" align=center>
  <tr>
    <td colspan="3" align="center" <%=hColor1%> class=tdc1 height="23">所有年统计</td>
  </tr>
  <tr class=tdc1 >
    <td <%=hColor2%> height="22">
    <p align="center">月份</td>
    <td <%=hColor2%> height="22">
    <p align="center">访问人数</td>
    <td <%=hColor2%> 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 12
sql="select count(*) as fweek1 from fcount where fmonth='"&i&"' and fuser='"&view&"' group by fmonth "
set rs=conn.execute(sql)
if not rs.eof then
fweek1=rs("fweek1")
else
fweek1=0
end if%>
  <tr>
    <td class=tdc bgcolor=<%=tcolor2%> height="20" width=15%><%=monthss(i)%></td>
    <td class=tdc bgcolor=<%=tcolor2%> height="20" width=15%><%=fweek1%></td>
    <td class=tdc bgcolor=<%=tcolor2%> height="20"><img  src="image/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" <%=hColor2%> class=tdc1 height="22">总访问人数:<%=rcount%>  <a href=fymonth.asp<%=url%>> 今年统计</a></td>
  </tr>
</table></center>
</div>
<%end if
set rs=nothing%>
<%else%>
 <!--#include file="error.asp" -->
<%end if%><!--#include file="bq.asp" -->