WEB源码(ASP,PHP,...)

开发平台：
HTML/CSS

StatYear.asp：源码内容
							<!-- #include file="ConnStatData.asp" -->
<!-- #Include File="CheckAdmin.asp"-->
<%
Response.Expires=0
Dim Percent(),BarWidth()
Dim TotalNum,Assay,MaxWidth,Rows,i
MaxWidth=270
TotalNum=0
QYear=Request.QueryString("QYear")
If QYear="" Then QYear=Cstr(Year(Date))
Sql="Select * From StatYear Where TYear='"&QYear&"'"
Rs.Open Sql,Conn,1,1
If Not Rs.Bof And Not Rs.Eof Then
   Assay=Rs.GetRows
   Rows=11
Else
   Rows=-1
End If
Rs.Close
Conn.Close
Set Rs=Nothing
Set Conn=Nothing
For i=0 to Rows
	TotalNum=TotalNum+Assay(i,0)
Next
ReDim Percent(Rows)
ReDim BarWidth(Rows)
For i=0 to Rows
    If TotalNum>0 Then
	   Percent(i)=FormatNumber(Int(Assay(i,0)/TotalNum*10000)/100,2,-1)&"%"
       BarWidth(i)=Assay(i,0)/TotalNum*MaxWidth
	End If
Next
%>
<HTML>
<HEAD>
<TITLE>网站统计分析系统</TITLE>
<META content="text/html; charset=gb2312" http-equiv=Content-Type>
<link rel="stylesheet" href="../admin/images/admin.css">
</HEAD>
<%
if Instr(session("AdminPurview"),"|40,")=0 then 
    response.write ("<br><br><div align=""center""><font style=""color:red; font-size:9pt; "")>您没有管理该模块的权限！</font></div>")
  response.end
end if
'========判断是否具有管理权限
%>
<BODY>
<div align="center">
  <table width="95%" border="0" align="center" cellpadding="3" cellspacing="1"  class="tableborder">
      <tr>
        <th colspan="8">网站流量统计：包括年，月，日，IP，浏览器类型等非常详细的分析报表</th>
      </tr>
      <tr>
        <td align="center" class="forumrow"><a href="Infolist.asp">统计概况</a></td>
        <td align="center" class="forumrow"><a href="FVisitor.asp">最近访问</a></td>
        <td align="center" class="forumrow"><a href="StatYear.asp">年 报 表</a></td>
        <td align="center" class="forumrow"><a href="StatMonth.asp">月 报 表</a></td>
        <td align="center" class="forumrow"><a href="StatWeek.asp">周 报 表</a></td>
        <td align="center" class="forumrow"><a href="StatDay.asp">日 报 表</a></td>
        <td align="center" class="forumrow"><a href="History.asp">历史报表</a></td>
        <td align="center" class="forumrow"><a href="Rereg.asp">修改信息</a></td>
      </tr>
      <tr>
        <td align="center" class="forumrow"><a href="FArea.asp">地区分析</a></td>
        <td align="center" class="forumrow"><a href="FAddress.asp">地址分析</a></td>
        <td align="center" class="forumrow"><a href="FIptwo.asp">IP 地 址</a></td>
        <td align="center" class="forumrow"><a href="Fweburl.asp">链接页面</a></td>
        <td align="center" class="forumrow"><a href="FCounter.asp">访问次数</a></td>
        <td align="center" class="forumrow"><a href="FSystem.asp">操作系统</a></td>
        <td align="center" class="forumrow"><a href="FBrowser.asp">浏 览 器</a></td>
        <td align="center" class="forumrow"><a href="FScreen.asp">屏幕大小</a></td>
      </tr>
  </table>
  <br>
  <table width="95%" border="0" align="center" cellpadding="3" cellspacing="1"  class="tableborder">
    <tr>
      <th colspan="4"><%=QYear%>年访问统计分析&nbsp;</strong>(&nbsp;总量：<%=TotalNum%>&nbsp;)</font></td>
    </tr>
    <tr>
      <td width="25%" class="title">月份</td>
      <td width="20%" class="title">访问人数</td>
      <td width="15%" class="title">百分比</td>
      <td width="40%" class="title">图示</td>
    </tr>
    <%for i=0 to Rows%>
    <tr onMouseOver = 'this.style.backgroundColor = "#FFFFFF"' onMouseOut = 'this.style.backgroundColor = ""' style="cursor:hand">
      <td class="forumrow"><%=QYear%>年<%=i+1%>月</td>
      <td class="forumrowhighlight"><%=Assay(i,0)%></td>
      <td class="forumrow"><%=Percent(i)%></td><td class="forumrowhighlight"><img src="Images/bar.gif" width="<%=Barwidth(i)%> "height="8"></td>
    </tr>
    <%Next%>
  </table>
</div>
</BODY>
</HTML>

						