📄 statallmonth.asp

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

💻 ASP

字号:

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

MaxWidth=200
TotalNum=0
QMonth=Request.QueryString("QMonth")
If QMonth="" Then QMonth=Cstr(Year(Date)&"-"&Month(Date))
Sql="Select * From StatMonth Where TMonth='Total'"
Rs.Open Sql,Conn,1,1
If Not Rs.Bof And Not Rs.Eof Then
   Assay=Rs.GetRows
   SYear=Mid(QMonth,1,Instr(QMonth,"-")-1)
   SMonth=Mid(QMonth,Instr(QMonth,"-")+1)
   If SMonth="4" Or SMonth="6" Or SMonth="9"Or SMonth="11" Then
      Rows=29
   Else
      If SMonth="2" Then
         Rows=27
      Else
         Rows=30
      End If
   End If
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">全 部 月 访 问 统 计 分 析 （总量：<%=TotalNum%>）&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 
          <a href="StatMonth.asp">[本月分析]</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">日期</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%>
          <tr> 
            <td align=left width="25%"> 
              <div align="center"><%=i+1%>日</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 + -