怎么求每一列的总和

你好老师：
以下是截图情况，感谢！



代码如下：

<%Case "YiLou"%>
<%
Orderby=" where  SD_QIH>='"&StartQih&"' AND SD_QIH<='"&EndQih&"'"
Orderby=Orderby&"group by SD_LYE order by SD_LYE asc"
set Waitrs=WS_S.HX_SetRSD("SD_LYE,count(SD_LYE) as LYE","SD_HAOMAB",Orderby)
%>
<table cellpadding='2' cellspacing='1' border='0' class='border' align=center>
   <form action="sdzonghe.asp" method="get" name="search"><tr class='Navigationtdbg'>
      <td>日期：
        <%
        set ERs=WS_S.HX_SetRSD("SD_QIH","SD_HAOMAB"," order by SD_QIH desc")
        %>第
        <input name="StartQih" type="text" value="2002001" size="7" maxlength="7"  autocomplete=off>&nbsp;至&nbsp;
        <input name="EndQih" type="text" value="<%=ERs("SD_QIH")%>" size="7" maxlength="7"  autocomplete=off>&nbsp;
        <%ERs.close:set ERs=nothing%>&nbsp;
      <input type="submit" name="Submit2" value=" 查 看 " class="button">
      <input name="Action" type="hidden" value="YiLou">
      </td>
    </tr></form>
</table><br>
<table cellpadding='2' cellspacing='1' border='0' class='border' align=center>
    <tr class='title'>
      <td colspan="4">综合</td>
    </tr>
   
    <tr class='Navigationa'>
      <td width="25%">日期</td>
      <td width="25%">方案</td>
      <td width="25%">类别</td>
      <td width="25%">概率</td>
    </tr>
    <%
if Waitrs.recordcount<=0 then
%>
    <tr>
      <td colspan=4 class="titletdbg" height=25 align=center>暂无符合条件的信息，请输入查询条件！</td>
    </tr>
    <%
else
    sumlye1=0
    do while not Waitrs.EOF
    %>
    <tr align=center class='titletdbg'>
      <td><%=EndQih+1%></td>
      <td>1</td>
      <td><%=Waitrs("SD_LYE")%></td>
      
      <%
      Orderby1=" where SD_QIH>='"&StartQih&"' AND SD_QIH<='"&EndQih&"'"
      set Waitrs1=WS_S.HX_SetRSD("SD_LYE","SD_HAOMAB",Orderby1)
      i = 0
      j = 0
      num = 0
      daoer = 0
      isgao = true
      do while not Waitrs1.eof
      j = j + 1
      if Waitrs1("SD_LYE")=Waitrs("SD_LYE") then
        isgao = false
        daoer=i
      end if
      if isgao then
        i = i + 1
      else
        if i > num then
            num = i
        end if
        i = 0
        isgao = true
      end if

      a=CStr(i)
      b=CStr(j)
      c=Waitrs("LYE")
 
      Waitrs1.movenext
      loop
      %>
      
      <%if (a/((b-c)/(c+1)))>1.57079 then%>
      <%sumlye1=sumlye1+(a/(3.14*((b-c)/(c+1))))+1.25248%><%else%>
      <%sumlye1=sumlye1+a/((b-c)/(c+1))%><%end if%>

      <%if (a/((b-c)/(c+1)))>1.57079 then%>
      <td><%=formatnumber((((a/(3.14*((b-c)/(c+1))))+1.25248)  /  sumlye1  ),5,-1)%></td><%else%>
      <td><%=formatnumber(((a/((b-c)/(c+1)))  /   sumlye1 ),5,-1)%></td><%end if%>
    </tr>
    <%     
      Waitrs1.close:set Waitrs1=nothing
    %>
    <%
        Waitrs.movenext
            loop
            end if
        Waitrs.close:set Waitrs=nothing
    %>
</table>

[ 本帖最后由 anjincheng 于 2009-11-17 18:50 编辑 ]

是“数量”那列的数分别除以最大的和（也就是说：数量这列的数分别除以数量这列所有数的总和）
测试那列是我为了测试总和（sumlye1）到底是多少临时增加的，是要删除的列！

感谢老师！
能否给点具体的代码？感谢！我尝试了很多，越弄越晕了！

你把源代码打包发上来我看，是关于你这个网页的不是全部源代码。

[ 本帖最后由 yms123 于 2009-11-22 18:05 编辑 ]