?? statyear.asp
字號:
<!--#include file="../ManageAdmin/CheckAdminLogined.asp"-->
<!-- #Include File=Conn.asp -->
<%
Response.Expires=0
Dim Percent(),BarWidth()
Dim Conn,Sql,Rs
Dim TotalNum,Assay,MaxWidth,Rows,i
MaxWidth=200
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 href="Images/AdminCss.css" rel="stylesheet" type="text/css">
</HEAD>
<BODY bgColor=#FFFFFF topmargin=0 leftmargin=0>
<table width="99%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td height="8" colspan="2"></td>
</tr>
<tr>
<td width="76" height="20" rowspan="2"><img src="Images/TopBt.gif" width="67" height="36"></td>
<td height="10"></td>
</tr>
<tr>
<td>我的位置:后臺管理系統._網站訪問監控._<%=QYear%> 年訪問統計分析</td>
</tr>
<tr>
<td height="4" colspan="2"></td>
</tr>
<tr>
<td colspan="2"><table width="100%" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="E7E7E7">
<tr>
<td height="20"><table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="159" height="20" align="center" background="images/title1.gif" class="fontwintitle">
<strong>年訪問統計分析</strong> </td>
<td align="right" background="images/title2.gif">(總量:<%=TotalNum%>) </td>
<td width="10"><img src="images/title3.gif" width="10" height="20"></td>
</tr>
</table></td>
</tr>
<tr valign="top">
<td><table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="6" background="images/midder1.gif"><img src="images/midder1.gif" width="6" height="3"></td>
<td height="100%" align="center" valign="top"><br>
<table width="98%" border=0 cellpadding=0 cellspacing=1 bgcolor="#333333" >
<tbody>
<tr>
<td> <table border=0 cellpadding=3 cellspacing=0 width="100%" bgcolor="#FFFFFF">
<tbody>
<tr bgcolor="f7f7f7">
<td align=left>月份</td>
<td align=left>訪問人數</td>
<td align=left>百分比</td>
<td align=left>圖示</td>
</tr>
<tr bgcolor="#FFFFFF">
<td align=left colspan="4" bgcolor="cecece" height="1"></td>
</tr>
<%for i=0 to Rows%>
<tr bgcolor="#FFFFFF">
<td align=left width="25%"><%=QYear%>年<%=i+1%>月</td>
<td align=left width="20%"><%=Assay(i,0)%></td>
<td align=left width="20%"><%=Percent(i)%></td>
<td align=left width="35%"><img src="Images/Bar.gif" width="<%=Barwidth(i)%> "height="12"></td>
</tr>
<%Next%>
<tr align="right" bgcolor="e4e4e4">
<td colspan=4> <p> </p></td>
</tr>
</tbody>
</table></td>
</tr>
</tbody>
</table>
<br>
<br> </td>
<td width="2" background="images/midder2.gif"><img src="images/midder2.gif" width="2" height="3"></td>
</tr>
<tr>
<td valign="top"><img src="images/bottom1.gif" width="6" height="14"></td>
<td height="14" valign="top" background="images/bottom2.gif"><img src="images/bottom2.gif" width="2" height="14"></td>
<td valign="top"><img src="images/bottom3.gif" width="2" height="14"></td>
</tr>
</table></td>
</tr>
</table></td>
</tr>
</table>
</BODY>
</HTML>
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -