fyhour.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)'判断当前日期
fhour=hour(now)'判断当前小时
fweek=weekday(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" <%=hColor1%> class=tdc1 height="23"><%=date()%>-日统计</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&"' and fmonth='"&fmonth&"' and fday='"&fday&"'"
set rs=conn.execute(sql)
maxalldayweek=rs("alldayweek")
if maxalldayweek=0 then maxalldayweek=1
set rs=nothing
rcount=0
for i= 1 to 24
sql="select count(*) as fweek1 from fcount where fyear='"&fyear&"' and fuser='"&view&"' and fmonth='"&fmonth&"' and fday='"&fday&"' and fhour='"&i&"' group by fhour "
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" <%=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 24
sql="select count(*) as fweek1 from fcount where fhour='"&i&"' and fuser='"&view&"' group by fhour "
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" <%=hColor2%> class=tdc1 height="22">总访问人数:<%=rcount%>  <a href=fyhour.asp<%=url%>> 今日统计</a></td>
  </tr>
</table></center>
</div>
<%end if%>

<%else%>
 <!--#include file="error.asp" -->
<%end if%><!--#include file="bq.asp" -->