📄 fiptwo.asp

📁 网上商场帐户管理方面　　　 1.实现了购物车和收藏夹的功能。　　　 2.实现了历史订单查询以及即时订单跟踪。　　　 3.实现了个人资料修改,查询以及送货人信息修改和查询。　

💻 ASP

字号:

<!-- #Include File=Conn.asp -->
<%
Response.Expires=0
Dim Percent(),BarWidth()
Dim Conn,Sql,Rs
Dim TotalNum,Assay,MaxWidth,Rows,i,Exfor

Exfor=0
MaxWidth=200
TotalNum=0
Sql="Select * From FIptwo Order By TTwoNum 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><%=Name%></TITLE>
<META content="text/html; charset=gb2312" http-equiv=Content-Type>
<LINK href="image/style.css" rel=stylesheet type=text/css>
<BODY leftMargin=0 rightMargin=0 topMargin=0 vLink=#000000>
<br>
<table align=center border=0 cellpadding=0 cellspacing=0 width=501 height="300">
    <tbody> 
    <tr> 
      <td colspan=3 height="8"><img src="Image/photoup.gif"></td>
    </tr>
    <tr height=30> 
      <td class=backs width=1 height="2"></td>
      <td class=backq width=489 height="2">
        <div align="center">访 问 者 IP 地 址 分 析 （总量：<%=TotalNum%>）&nbsp;&nbsp; &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 
          <a href="FIpone.asp">[IP首段分析]</a></div>
      </td>
      <td class=backs width=1 height="2"></td>
    </tr>
    <tr height=50> 
      <td class=backs width=1 height="265"></td>
      <td class=backq valign=top height="265"> 
        
      <table border=0 cellpadding=3 cellspacing=0 width="100%">
        <tbody> 
        <tr> 
          <td align=left> 
            <div align="center">IP地址</div>
          </td>
          <td align=left> 
            <div align="center">访问人数</div>
          </td>
          <td align=left> 
            <div align="center">百分比</div>
          </td>
          <td align=left> 
            <div align="center">图示</div>
          </td>
        </tr>
        <%for i=0 to Rows
		  Exfor=Exfor+1%>
        <tr> 
          <td align=left width="25%"> 
            <div align="center"><%=Assay(0,i)%></div>
          </td>
          <td align=left width="20%"> 
            <div align="center"><%=Assay(1,i)%></div>
          </td>
          <td align=left width="20%"> 
            <div align="center"><%=Percent(i)%></div>
          </td>
          <td align=left width="35%"><img src="Image/bar.gif" width="<%=Barwidth(i)%> "height="12"></td>
        </tr>
        <%If Exfor>=30 Then Exit For
		  Next%>
        </tbody> 
      </table>
      </td>
      <td class=backs width=1 height="265"></td>
    </tr>
    <tr> 
      <td colspan=3><img 
src="Image/photodown.gif"></td>
    </tr>
    </tbody> 
  </table>
<br>
</BODY>
</HTML>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -