📄 statyear.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

MaxWidth=200
TotalNum=0
QYear=Request.QueryString("QYear")
If QYear="" Then QYear=Cstr(Year(Date))
Sql="Select * From StatYear Where TYear='"&QYear&"'"
Rs.Open Sql,Conn,1,1
If Not Rs.Bof And Not Rs.Eof Then
   Assay=Rs.GetRows
   Rows=11
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=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"><%=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 width="98%" border="0" cellspacing="0" cellpadding="0" align="center">
        <tr> 
          <td height="13" width="31%"> 
            <div align="center">月份 </div>
          </td>
          <td height="13" width="29%"> 
            <div align="center">访问人数</div>
          </td>
          <td height="13" width="17%"> 
            <div align="center">百分比</div>
          </td>
          <td height="13" width="23%"> 
            <div align="center">图示</div>
          </td>
        </tr>
        <tr> 
          <%for i=0 to Rows%>
          <td width="31%"><%=QYear%>年<%=i+1%>月</td>
          <td width="29%"><%=Assay(i,0)%></td>
          <td width="17%"><%=Percent(i)%></td>
          <td width="23%"><img src="Image/bar.gif" width="<%=Barwidth(i)%> "height="12"></td>
        </tr>
        <%Next%>
      </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 + -