fyday.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)'判断当前月份
fday=day(now)'判断当前日期
%>



<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" background="image/b1.gif" class=tdc1 height="23"><%=fyear%>年<%=fmonth%>月统计</td>
  </tr>
  <tr class=tdc1 >
    <td background="image/b2.gif" height="22">
    <p align="center">日期</td>
    <td background="image/b2.gif" height="22">
    <p align="center">访问人数</td>
    <td background="image/b2.gif" height="22">
    <p align="center">比例图-报表</td>
  </tr>

  <% 
sql="select count(fid) as alldayweek from fcount where fyear='"&fyear&"' and fuser='"&view&"'  and fmonth='"&fmonth&"'"
set rs=conn.execute(sql)
maxalldayweek=rs("alldayweek")
if maxalldayweek=0 then maxalldayweek=1
set rs=nothing
rcount=0
for i= 1 to 31
sql="select count(*) as fweek1 from fcount where fyear='"&fyear&"' and fuser='"&view&"'  and fmonth='"&fmonth&"' and fday='"&i&"' group by fday "
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%><%=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" background="image/b2.gif" 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" background="image/b1.gif" class=tdc1 height="23">所有月统计</td>
  </tr>
  <tr class=tdc1 >
    <td background="image/b2.gif" height="22">
    <p align="center">日期</td>
    <td background="image/b2.gif" height="22">
    <p align="center">访问人数</td>
    <td background="image/b2.gif" 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 31
sql="select count(*) as fweek1 from fcount where fday='"&i&"' and fuser='"&view&"'  group by fday "
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%><%=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" background="image/b2.gif" class=tdc1 height="22">总访问人数:<%=rcount%>  <a href=fyday.asp<%=url%>> 今月统计</a></td>
  </tr>
</table></center>
</div>
<%end if%>
<%else%>
 <!--#include file="error.asp" -->
<%end if%><!--#include file="bq.asp" -->