📄 fbrowser.asp

📁 这个也是一个功能强大的企业整站的ASP源代码
💻 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
Sql="Select * From FBrowser Order By TBrwNum 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 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>我的位置：后台管理系统._网站访问监控._访问者所用浏览器分析</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"><img src="Images/Topicon.gif" width="11" height="11" align="absmiddle">&nbsp;<strong><font color="#FFFFFF"><a href="FMozilla.asp">AGENT字串分析</a></font></strong>&nbsp;（总量：<%=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="cecece"> 
                                <td align=left colspan="4" height="1"></td>
                              </tr>
                              <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="333333" height="1"></td>
                              </tr>
                              <%for i=0 to Rows%>
                              <tr bgcolor="#FFFFFF"> 
                                <td align=left width="25%"><%=Assay(0,i)%></td>
                                <td align=left width="20%"><%=Assay(1,i)%></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>&nbsp;</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 + -