📄 fcounter.asp

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

💻 ASP

字号:

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

MaxWidth=200
TotalNum=0
Visit=array("","首次","二次","三次","四次","五次","六次","七次","八次","九次","十次以上")
Sql="Select * From FVisit"
Rs.Open Sql,Conn,1,1
If Not Rs.Bof And Not Rs.Eof Then
   Assay=Rs.GetRows
   Rows=10
Else
   Rows=-1
End If
Rs.Close
Conn.Close
Set Rs=Nothing
Set Conn=Nothing
For i=0 to Rows
	TotalNum=TotalNum+Assay(i,0)
Next
ReDim Percent(Rows)
ReDim BarWidth(Rows)
For i=0 to Rows
    If TotalNum>0 Then
	   Percent(i)=FormatNumber(Int(Assay(i,0)/TotalNum*10000)/100,2,-1)&"%"
       BarWidth(i)=Assay(i,0)/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=502 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"><%=QYear%> 访问次数统计分析（总量：<%=TotalNum%>） </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">次数分析</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=1 to Rows%>
          <tr> 
            <td align=left width="25%"> 
              
            <div align="center"><%=Visit(i)%></div>
            </td>
            <td align=left width="20%"> 
              
            <div align="center"><%=Assay(i,0)%></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>
          <%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 + -