f_bmtj.asp

一个很好的在线购物系统

                                                                                                      
     <td width="64" height="24" align="center" bgcolor="#DDD2C4">                                                                                    
      工程费用<font size="2">(元)   
      </font>   
     </td>                                                                                                   
                                                                                                      
     <td width="88" height="24" align="center" bgcolor="#DDD2C4">                                                                                    
  <font size="2">                                                                                                       
    服务/食宿费</font><font size="2">(元)   
  </font>   
     </td>                                                                                                   
                                                                                                      
     <td width="88" height="24" align="center" bgcolor="#DDD2C4">                                                                                    
      利润<font size="2">(元)   
      </font>   
     </td>                                                                                                   
                                                                                                      
  </tr>                                                                                                  
                                                                                                  
     <%   
     '以下参数为合计所有      
     htsl1=0   
     htzj1=0   
     xsfy1=0   
     ybfy1=0   
     gcfy1=0   
     fwfy1=0   
     zlr1=0   
     '以下参数为图形所用   
     bm=""   
     htsl2=""   
     htzj2=""   
     xsfy2=""   
     ybfy2=""   
     gcfy2=""   
     fwfy2=""   
     zlr2=""   
   
     for n=1  to rsbm.RecordCount     
         
     %>                      
         <%if  n mod 2=1 then                          
            bg="#f7f7f7"                            
       else                          
            bg="#EDEBEC"                           
       end if%>                                                                                                 
                                                                                                    
  <tr bgcolor="<%=bg%>">     
    <font size="2">                                                                
                                                                                               
                                                                                                  
    <td width="143" height="23" align="center" ><%=rsbm("Name")%></td>     
    <%     
   set rstj=Server.CreateObject("ADODB.RecordSet")     
   sql="select count(clientnum) as htsl,sum(TotalPrice) as htzj,sum(SaleMoney) as xsfy,sum(SendMoney)as ybfy,sum(EngineeMoney)as gcfy,sum(ServerEatMoney)as fwfy,sum(Xslr) as zlr from F_TblContract2 where departid='"&rsbm("departcode")&"'"     
   if total1<>""  and total2="" then     
      sql=sql&" and SignTime<='"&total1&"'"     
   end if      
   if total1="" and total2<>"" then     
      sql=sql&" and SignTime<='"&total2&"'"     
     
   end if      
   if total1<>"" and total2<>"" then     
      sql=sql&" and  ( SignTime between  '"&total1&"' and '"&total2&"' )"     
     
   end if     
 '  response.write sql   
   rstj.open sql,Pubconn,1     
     
      
     if isnull(rstj("htsl")) then    
        htsl=0    
     else     
       htsl=rstj("htsl")    
     end if     
     if isnull(rstj("htzj")) then    
        htzj=0    
     else     
        htzj=rstj("htzj")    
     end if    
     if isnull(rstj("xsfy")) then    
        xsfy=0    
     else     
        xsfy=rstj("xsfy")    
     end if    
     if isnull(rstj("ybfy")) then    
        ybfy=0    
     else     
        ybfy=rstj("ybfy")    
     end if    
     if isnull(rstj("gcfy")) then    
        gcfy=0    
     else     
        gcfy=rstj("gcfy")    
     end if    
      if isnull(rstj("fwfy")) then    
        fwfy=0    
     else     
        fwfy=rstj("fwfy")    
     end if    
    
     if isnull(rstj("zlr")) then    
        zlr=0    
     else     
        zlr=rstj("zlr")    
     end if    
         
     
   %>     
              
      <td width="94" height="23" align="center" ><%=htsl%></td>                                                                                                
                                                                                     
      <td width="64" height="23" align="center" ><%=htzj%></td>                                                                                                
                                                                        
      <td width="94" height="23" align="center" ><%=xsfy%></td>                                                                                                
                                                                                     
      <td width="64" height="23" align="center" ><%=ybfy%></td>                                                                                                
                                                                                     
      <td width="88" height="23" align="center" ><%=gcfy%></td>                                                                                                
                                                                                     
      <td width="88" height="23" align="center" ><%=fwfy%></td>                                                                                                
      <td width="88" height="23" align="center" ><%=zlr%></td>                                                                                   
                                                                                                
               
                  
                 
                  
  </tr>     
      <%     
      '以下为合计的数据   
      htsl1=htsl1+htsl   
      htzj1=htzj1+htzj   
      xsfy1=xsfy1+xsfy   
      ybfy1=ybfy1+ybfy   
      gcfy1=gcfy1+gcfy   
      fwfy1=fwfy1+fwfy   
      zlr1=zlr1+zlr   
     '以下为图形的数据   
      bm=bm+rsbm("name")+","      
      htsl2=htsl2+cstr(htsl)+","   
      htzj2=htzj2+cstr(htzj)+","   
      xsfy2=xsfy2+cstr(xsfy)+","   
      ybfy2=ybfy2+cstr(ybfy)+","   
      gcfy2=gcfy2+cstr(gcfy)+","   
      fwfy2=fwfy2+cstr(fwfy)+","   
      zlr2=zlr2+cstr(zlr)+","   
   
     rsbm.movenext     
     if rsbm.eof then exit for     
     next     
     %>                                                                                            
    <td width="143" height="23" align="center" ><font size="2">总计</font> </td>      
                                                 
    <td width="94" height="23" align="center" ><%=htsl1%></td>                                                                                                
                                                                                     
      <td width="64" height="23" align="center" ><%=htzj1%></td>                                                                                                
                                                                        
      <td width="94" height="23" align="center" ><%=xsfy1%></td>                                                                                                
                                                                                     
      <td width="64" height="23" align="center" ><%=ybfy1%></td>                                                                                                
                                                                                     
      <td width="88" height="23" align="center" ><%=gcfy1%></td>                                                                                                
                                                                                     
      <td width="88" height="23" align="center" ><%=fwfy1%></td>                                                                                                
      <td width="88" height="23" align="center" ><%=zlr1%></td>                                                                                             
 </table>                                                                                                   
                                                                                                       
 </form>      
   
  <p align="center">  
  <%if htzj1<>0 then%>   
       <a href="F_bmhtzjtx.asp?bm=<%=bm%>&htzj=<%=htzj2%>&xs=（按部门）合同总价统计图形&dw=元">合同总价图形</a>&nbsp;&nbsp;   
  <%end if %>    
 <%if xsfy1<>0 then%>    
      <a href="F_bmhtzjtx.asp?bm=<%=bm%>&htzj=<%=xsfy2%>&xs=（按部门）销售费用统计图形&dw=元">销售费用图形</a>&nbsp;&nbsp;   
 <%end if %>    
 <%if xsfy1<>0 then%>   
      <a href="F_bmhtzjtx.asp?bm=<%=bm%>&htzj=<%=ybfy2%>&xs=（按部门）运保费用统计图形&dw=元">运保费用图形</a>&nbsp;&nbsp;    
 <%end if %>    
 <%if xsfy1<>0 then%>   
      <a href="F_bmhtzjtx.asp?bm=<%=bm%>&htzj=<%=gcfy2%>&xs=（按部门）工程费用统计图形&dw=元">工程费用图形</a>&nbsp;&nbsp;     
 <%end if %>   
 <%if xsfy1<>0 then%>   
  <a href="F_bmhtzjtx.asp?bm=<%=bm%>&htzj=<%=fwfy2%>&xs=（按部门）服务/食宿费用统计图形&dw=元">服务/食宿费用图形</a>&nbsp;&nbsp;  
  <%end if %>   
 <%if xsfy1<>0 then%>   
      <a href="F_bmhtzjtx.asp?bm=<%=bm%>&htzj=<%=zlr2%>&xs=（按部门）利润统计图形&dw=元">利润图形</a>&nbsp;&nbsp;   
 <%end if %>  
                                                                                                                   
<% end if %>     
   
 <p>                 
&nbsp;&nbsp;<a href="../Order/tjcx/cxjm.htm">返回</a>
                  
               
     </font>   
                  
               
</body>