?? faddress.asp
字號(hào):
?<!-- #Include File="ConnStatData.asp" -->
<!-- #Include File="../System/CheckAdmin.asp"-->
<%
Response.Expires=0
Dim Percent(),BarWidth()
Dim TotalNum,Assay,MaxWidth,Rows,i,Exfor
Exfor=0
MaxWidth=270
TotalNum=0
Sql="Select * From FAddress Order By TAddNum DESC"
Rs.Open Sql,Conn,1,1
If Not Rs.Bof And Not Rs.Eof Then
Assay=Rs.GetRows
Rows=Ubound(Assay,2)
Else
Rows=-1
End If
Rs.Close
Conn.Close
Set Rs=Nothing
Set Conn=Nothing
For i=0 to Rows
TotalNum=TotalNum+Assay(1,i)
Next
ReDim Percent(Rows)
ReDim BarWidth(Rows)
For i=0 to Rows
If TotalNum>0 Then
Percent(i)=FormatNumber(Int(Assay(1,i)/TotalNum*10000)/100,2,-1)&"%"
BarWidth(i)=Assay(1,i)/TotalNum*MaxWidth
End If
Next
%>
<HTML>
<HEAD>
<TITLE>網(wǎng)站統(tǒng)計(jì)分析系統(tǒng)</TITLE>
<META content="text/html; charset=utf-8" http-equiv=Content-Type>
<link rel="stylesheet" href="Images/Style.css">
</HEAD>
<%
if Instr(session("AdminPurview"),"|117,")=0 then
response.write ("<font color='red')>你不具有該管理模塊的操作權(quán)限，請(qǐng)返回！</font>")
response.end
end if
'========判斷是否具有管理權(quán)限
%>
<BODY>
<div align="center">
<table width="720" border="0" cellpadding="3" cellspacing="1" bgcolor="#6298E1">
<tr>
<td height="24" colspan="8"><font color="#FFFFFF"><strong>網(wǎng)站流量統(tǒng)計(jì)：包括年，月，日，IP，瀏覽器類(lèi)型等非常詳細(xì)的分析報(bào)表</strong></font></td>
</tr>
<tr bgcolor="#EBF2F9">
<td align="center"><a href="Infolist.asp">統(tǒng)計(jì)概況</a></td>
<td align="center"><a href="FVisitor.asp">最近訪問(wèn)</a></td>
<td align="center"><a href="StatYear.asp">年 報(bào) 表</a></td>
<td align="center"><a href="StatMonth.asp">月 報(bào) 表</a></td>
<td align="center"><a href="StatWeek.asp">周 報(bào) 表</a></td>
<td align="center"><a href="StatDay.asp">日 報(bào) 表</a></td>
<td align="center"><a href="History.asp">歷史報(bào)表</a></td>
<td align="center"><a href="Rereg.asp">修改信息</a></td>
</tr>
<tr bgcolor="#EBF2F9">
<td align="center"><a href="FArea.asp">地區(qū)分析</a></td>
<td align="center"><a href="FAddress.asp">地址分析</a></td>
<td align="center"><a href="FIptwo.asp">IP 地 址</a></td>
<td align="center"><a href="Fweburl.asp">鏈接頁(yè)面</a></td>
<td align="center"><a href="FCounter.asp">訪問(wèn)次數(shù)</a></td>
<td align="center"><a href="FSystem.asp">操作系統(tǒng)</a></td>
<td align="center"><a href="FBrowser.asp">瀏 覽 器</a></td>
<td align="center"><a href="FScreen.asp">屏幕大小</a></td>
</tr>
</table>
<br>
<table width="720" border="0" cellpadding="3" cellspacing="1" bgcolor="#6298E1">
<tr>
<td height="24" colspan="4"><font color="#FFFFFF"><strong>訪問(wèn)者所在地址分析 </strong>( 總量：<%=TotalNum%> )</font></td>
</tr>
<tr bgcolor="#D7E4F7">
<td width="25%">所在地址</td>
<td width="20%">訪問(wèn)人數(shù)</td>
<td width="15%">百分比</td>
<td width="40%">圖示</td>
</tr>
<%for i=0 to Rows
Exfor=Exfor+1%>
<tr bgcolor="#EBF2F9" onMouseOver = 'this.style.backgroundColor = "#FFFFFF"' onMouseOut = 'this.style.backgroundColor = ""' style="cursor:hand">
<td><%=Assay(0,i)%></td>
<td><%=Assay(1,i)%></td>
<td><%=Percent(i)%></td>
<td><img src="Images/bar.gif" width="<%=Barwidth(i)%> "height="8"></td>
</tr>
<%If Exfor>=30 Then Exit For
Next%>
</table>
</div>
</BODY>
</HTML>
?? 快捷鍵說(shuō)明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號(hào)
Ctrl + =
減小字號(hào)
Ctrl + -