?? fweburl.asp
字號:
<%if session("admin")="" then
response.Write "<script language='javascript'>alert('網絡超時或您還沒有登陸！');window.location.href='login.asp';</script>"
response.End
else
if session("flag")>1 then
response.Write "<div align=center><font size=80 color=red><b>您沒有此項目管理權限！</b></font></div>"
response.End
end if
end if
%><!-- #Include File=Conn.asp -->
<%
Response.Expires=0
Dim Percent(),BarWidth()
Dim Conn,Sql,Rs
Dim TotalNum,Assay,MaxWidth,Rows,i,iExFor
iExFor=0
MaxWidth=200
TotalNum=0
Sql="Select * From FWeburl Order By TWebNum 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>網站統計分析系統</TITLE>
<META content="text/html; charset=gb2312" http-equiv=Content-Type>
<link rel="stylesheet" href="Info/Style.css">
</HEAD>
<BODY bgColor=#FFFFFF>
<CENTER>
<!-- #Include File=Header.asp-->
<table width="90%" border="0" align="center" cellpadding="3" cellspacing="1" bgcolor="#9DB2D4">
<tbody>
<tr bgcolor="#C7D3E6">
<td colspan=4 align="center">
<div align="right"><font color="#FFFFFF">訪 問 者 來 訪 網 站 分 析 （總量：<%=TotalNum%>）</font> <font color="#FFFFFF"></font> <a href="FReferer.asp"><font color="#FFFFFF">[鏈接頁面分析]</font></a> </div></td>
</tr>
<tr bgcolor="#F0F3F8">
<td height="22" align=left>來訪網站</td>
<td height="22" align=left>訪問人數</td>
<td height="22" align=left>百分比</td>
<td height="22" align=left>圖示</td>
</tr>
<%for i=0 to Rows
ExFor=ExFor+1%>
<tr bgcolor="#F0F3F8">
<td width="25%" height="22" align=left>
<% If Assay(0,i)="直接輸入或書簽導入" Then%>
<%=Left(Assay(0,i),40)%>
<%Else%>
<a href="<%=Assay(0,i)%>"><%=Left(Assay(0,i),40)%></a>
<%End If%></td>
<td width="20%" height="22" align=left><%=Assay(1,i)%></td>
<td width="20%" height="22" align=left><%=Percent(i)%></td>
<td width="35%" height="22" align=left><img src="Image/bar.gif" width="<%=Barwidth(i)%> "height="12"></td>
</tr>
<%If Exfor>=30 Then Exit For
Next%>
</tbody>
</table>
<!-- #Include File=End.asp-->
</CENTER>
</BODY>
</HTML>
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -