e_reintj.asp

一个很好的在线购物系统

              
    </td>                                                                 
 </tr>                                                                                     
</table>                                                                              
                                                                                  
 <%                   
 if rsbm.eof then%>         
     <p>                   
     <center><font size="2">没有公司和部门！             
 <% response.end        
          
else%>                   
                                                                               
                                                                              
                                                                                  
                                                                                
                                                                                            
<table border="1" cellspacing="0" width="100%" height="30"  align="center">                                                                                    
                                                                                          
  <tr>                                                                                                    
                                                                                    
     <td width="117" height="24" align="center" bgcolor="#DDD2C4">                                                                                  
      <font size="2">部门</font></font>           
     </td>                                                                                                   
  <font size="2">                                                                                                   
    <td width="149" height="24" align="center" bgcolor="#DDD2C4">                                                                                 
     客诉次数          
     </td>                                                                                                 
     <td width="128" height="24" align="center" bgcolor="#DDD2C4">                                                                                
      百分比(%)        
     </td>                                                                                               
                                                                                                  
  </tr>                                                                                              
                                                                                              
     <%  
     bm="" 
     zs="" 
     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="117" height="23" align="center" ><%=rsbm("Name")%></td> 
    <% 
   set rstj=Server.CreateObject("ADODB.RecordSet") 
   sql="select count(clientnum) as total from E_Clientcomplain where departid='"&rsbm("departcode")&"'" 
   if total1<>""  and total2="" then 
      sql=sql&" and ComplainTime<='"&total1&"'" 
   end if  
   if total1="" and total2<>"" then 
      sql=sql&" and ComplainTime<='"&total2&"'" 
 
   end if  
   if total1<>"" and total2<>"" then 
      sql=sql&" and  ( ComplainTime between  '"&total1&"' and '"&total2&"' )" 
 
   end if 
   rstj.open sql,Pubconn,1 
 
   if rstj.eof then 
      cs=0 
   else 
      cs=rstj("total") 
   end if  
 '统计出所有的投诉次数 
set rsts=Server.CreateObject("ADODB.RecordSet") 
txt="select count(clientnum)as khzs from E_Clientcomplain" 
 
if total1<>""  and total2="" then 
   txt="select count(clientnum)as khzs from E_Clientcomplain where  ComplainTime<='"&total1&"'" 
end if  
if total1="" and total2<>"" then 
   txt="select count(clientnum)as khzs from E_Clientcomplain where  ComplainTime<='"&total2&"'" 
end if  
if total1<>"" and total2<>"" then 
   txt="select count(clientnum)as khzs from E_Clientcomplain where  ComplainTime between '"&total1&"' and  '"&total2&"'" 
end if 
rsts.open txt,Pubconn,1  
if rsts("khzs")=0 then 
    bfb="暂没有投诉客户" 
else 
    bfb=round((cs/rsts("khzs"))*100,2) 
end if   
    
   %> 
  
      <td width="149" height="23" align="center" ><font size="2"><%=cs%>      
         
       </font>          
    </td>                                                                                            
      <td width="128" height="23" align="center" ><font size="2"><%=bfb%></font></td>                                                                                            
                                                                                 
     <% 
     bm=bm+rsbm("name")+"," 
     zs=zs+cstr(cs)+"," 
     rsbm.movenext 
     if rsbm.eof then exit for 
     next 
     %>                                                                          
                                                                                            
                                                                                            
           
              
             
              
  </tr> 
                                                                                         
    <td width="117" height="23" align="center" ><font size="2">总计</font> </td>  
                                             
    <td width="149" height="23" align="center" ><font size="2"><%=rsts("khzs")%> </font></td>            
                                                                                                    
   <td width="128" height="23" align="center" ><font size="2"><% 
   if rsts("khzs")=0 then 
      response.write "0" 
   else 
     response.write "100%" 
 
   end if  
    
   %></font></td>    
                                                                                    
 </table>                                                                                               
                                                                                                   
 </form>  
 
  
                                                                                                                 
<% end if %> 
<p align="center">              
<%if rsts("khzs")<>0 then%><a href="../contract/F_bmhtzjtx.asp?htzj=<%=zs%>&bm=<%=bm%>&xs=客诉统计图形&dw=次数"><%end if%>图形</a> 
              
             
              
&nbsp;&nbsp;<a href="E_cxmain.asp">返回</a> 
              
             
              
</font>              
              
             
              
</font> 
</center> 
 
              
             
              
</body>