www.gusucode.com > 运动用品商城网站系统源代码程序 > feyok/tj_hour.asp
<!--#include file="tj_config.asp"--> <%if Request.Cookies("venshop")("admin_name")="" or Request.Cookies("venshop")("admin_class")="" then response.redirect "ad_login.asp" elseif Request.Cookies("venshop")("admin_class")<>0 then response.write "你没有这个权限!" response.end end if%> <html> <head> <link rel="stylesheet" type="text/css" href="inc/css.css"> </head> <body topmargin=5 rightmargin=0 leftmargin=0 vlink=#000000> <!--#include file="tj_top.asp"--> <br> <table width=500 cellspacing=0 align=center> <tr><td> <p style="line-height: 100%; margin-left: 15; margin-top: 5; margin-bottom: 0"> Tips: 用鼠标点指图形柱或者图形柱下的数字可以看到对应的访问量。</p> </td></tr> </table> <br> <table width="500" cellspacing="0" align="center" cellpadding="0" border="0"> <tr><td colspan="3"><img src="img/photoup.gif"></td></tr> <tr height="30"> <td width="1" class="backs"><img src="img/touming.gif" width="1" height="1"></td> <td width="498"class="backq"> <img src="img/tb_title.gif" align=absmiddle> ∷∷∷ 最近24小时访问量 ∷∷∷<br> <table border="0" cellpadding="0" cellspacing="0" width="430" align=center> <tr height="9"><td colspan=29></td></tr> <tr height="101"> <% set conn=server.createobject("adodb.connection") DBPath = Server.MapPath(connpath) conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DBPath dim vhour(24) maxhour=0 sumhour=0 for i=0 to 23 vhour(i)=vhourcon(i) if vhour(i)>maxhour then maxhour=vhour(i) sumhour=sumhour+vhour(i) next '防止除数为0出错 if maxhour=0 then maxhour=1 if sumhour=0 then sumhour=1 %> <td align=right valign=top> <p style="line-height: 100%; margin-right: 2; margin-top: 0; margin-bottom: 13"> <font face="Arial"><%=int(maxhour*10+0.5)/10%></font> <p style="line-height: 100%; margin-right: 2; margin-top: 0; margin-bottom: 13"> <font face="Arial"><%=int(3*maxhour*10/4+0.5)/10%></font> <p style="line-height: 100%; margin-right: 2; margin-top: 0; margin-bottom: 13"> <font face="Arial"><%=int(maxhour*10/2+0.5)/10%></font> <p style="line-height: 100%; margin-right: 2; margin-top: 0; margin-bottom: 0"> <font face="Arial"><%=int(maxhour*10/4+0.5)/10%><br></font></td> <td width=10><img src="img/tu_back_left.gif"></td> <% for i= 0 to 23 thehour=hour(now())+i+1 if thehour>23 then thehour=thehour-24 %> <td width=15 valign=bottom background="img/tu_back.gif" align=center> <img style="BORDER-BOTTOM: #000000 1px solid;" src="img/tu.gif" height="<%=(vhour(thehour)/maxhour)*100%>" width="9" alt="<%=thehour%>时,访问<%=vhour(thehour)%>次,<% '计算访问量的百分数,精确到小数后1位,小于零的在前面加字母0 lsbf=int(vhour(thehour)*1000/sumhour)/10 if lsbf<1 then lsbf="0" & lsbf Response.Write lsbf %>%"></td> <% next %> <td width=10><img src="img/tu_back_right.gif"></td> <td width=10></td> </tr> <tr> <td align=right> <p style="line-height: 100%; margin-right: 2; margin-top: 0; margin-bottom: 0"> <font face="Arial">0</font></td> <td width=10></td> <% for i= 0 to 23 thehour=hour(now())+i+1 if thehour>23 then thehour=thehour-24 %> <td width=15 align=center><a title="<%=thehour%>时,访问<%=vhour(thehour)%>次,<% '计算访问量的百分数,精确到小数后1位,小于零的在前面加字母0 lsbf=int(vhour(thehour)*1000/sumhour)/10 if lsbf<1 then lsbf="0" & lsbf Response.Write lsbf %>%"><font face="Arial" style="letter-spacing: -1"><%=thehour%></font></a></td> <% next %> <td width=10></td> <td width=10></td> </tr> <tr height="5"><td colspan=29></td></tr> </table> </td> <td width="1" class="backs"><img src="img/touming.gif" width="1" height="1"></td> </tr> <tr><td colspan="4"><img src="img/photodown.gif"></td></tr> </table> <br> <table width="500" cellspacing="0" align="center" cellpadding="0" border="0"> <tr><td colspan="3"><img src="img/photoup.gif"></td></tr> <tr height="30"> <td width="1" class="backs"><img src="img/touming.gif" width="1" height="1"></td> <td width="498"class="backq"> <img src="img/tb_title.gif" align=absmiddle> ∷∷∷ 所有24小时访问量 ∷∷∷<br> <table border="0" cellpadding="0" cellspacing="0" width="430" align=center> <tr height="9"><td colspan=29></td></tr> <tr height="101"> <% Set rs = Server.CreateObject("ADODB.Recordset") sql="select vhour,count(id) as allhour from view group by vhour" rs.Open sql,conn,1,1 dim vallhour(24) maxallhour=0 sumallhour=0 do while not rs.EOF vallhour(cint(rs("vhour")))=cint(rs("allhour")) if vallhour(cint(rs("vhour")))>maxallhour then maxallhour=vallhour(cint(rs("vhour"))) sumallhour=sumallhour+vallhour(cint(rs("vhour"))) rs.MoveNext loop '防止除数为0出错 if maxallhour=0 then maxallhour=1 if sumallhour=0 then sumallhour=1 %> <td align=right valign=top> <p style="line-height: 100%; margin-right: 2; margin-top: 0; margin-bottom: 13"> <font face="Arial"><%=int(maxallhour*10+0.5)/10%></font> <p style="line-height: 100%; margin-right: 2; margin-top: 0; margin-bottom: 13"> <font face="Arial"><%=int(3*maxallhour*10/4+0.5)/10%></font> <p style="line-height: 100%; margin-right: 2; margin-top: 0; margin-bottom: 13"> <font face="Arial"><%=int(maxallhour*10/2+0.5)/10%></font> <p style="line-height: 100%; margin-right: 2; margin-top: 0; margin-bottom: 0"> <font face="Arial"><%=int(maxallhour*10/4+0.5)/10%><br></font></td> <td width=10><img src="img/tu_back_left.gif"></td> <% for i= 0 to 23 %> <td width=15 valign=bottom background="img/tu_back.gif" align=center> <img style="BORDER-BOTTOM: #000000 1px solid;" src="img/tu.gif" height="<%=(vallhour(i)/maxallhour)*100%>" width="9" alt="<%=i%>时,访问<%=vallhour(i)%>次,<% '计算访问量的百分数,精确到小数后1位,小于零的在前面加字母0 lsbf=int(vallhour(i)*1000/sumallhour)/10 if lsbf<1 then lsbf="0" & lsbf Response.Write lsbf %>%"></td> <% next %> <td width=10><img src="img/tu_back_right.gif"></td> <td width=10></td> </tr> <tr> <td align=right> <p style="line-height: 100%; margin-right: 2; margin-top: 0; margin-bottom: 0"> <font face="Arial">0</font></td> <td width=10></td> <% for i= 0 to 23 %> <td width=15 align=center><a title="<%=i%>时,访问<%=vallhour(i)%>次,<% '计算访问量的百分数,精确到小数后1位,小于零的在前面加字母0 lsbf=int(vallhour(i)*1000/sumallhour)/10 if lsbf<1 then lsbf="0" & lsbf Response.Write lsbf %>%"><font face="Arial" style="letter-spacing: -1"><%=i%></font></a></td> <% next %> <td width=10></td> <td width=10></td> </tr> <tr height="5"><td colspan=29></td></tr> </table> </td> <td width="1" class="backs"><img src="img/touming.gif" width="1" height="1"></td> </tr> <tr><td colspan="4"><img src="img/photodown.gif"></td></tr> </table> <% rs.Close set rs=nothing conn.Close set conn=nothing %> <br> <!--#include file="tj_bottom.asp"--> </body> </html> <% function vhourcon(thehour) if thehour=hour(now()) then tmprs=conn.execute("Select count(id) as vhourcon from view where vhour=" & _ hour(now()) & " and vday=" & day(now()) & " and vmonth=" & month(now()) & " and vyear=" & year(now())) vhourcon=tmprs("vhourcon") if isnull(vhourcon) then vhourcon=0 else tmprs=conn.execute("Select count(id) as vhourcon from view where vhour=" & _ thehour & " and vtime>now()-1") vhourcon=tmprs("vhourcon") if isnull(vhourcon) then vhourcon=0 end if end function %>