📄 fscreen.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 FScreen Order By TScrNum 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>
<CENTER>
  <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><b>访问者屏幕大小分析</b></strong> 
                  </td>
                  <td align="right" background="images/title2.gif">（总量：<%=TotalNum%>）&nbsp;</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>
</CENTER>
</BODY>
</HTML>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -