e_jjcdtj.asp

一个很好的在线购物系统

       <option value=""></option>                                                             
         <%for i=1 to 9%>            
           <option value="<%="0"&i%>"           
              <%            
                 if date2<>"" then           
                      if cint(date2)=i  then           
                         response.write ("selected")           
                      end if            
                 end if            
               %>           
                      
           ><%="0"&i%></option>                              
       <%next%>            
       <%for i=10 to 31%>             
           <option value="<%=i%>"            
                  <%             
                 if date2<>"" then            
                      if cint(date2)=i  then            
                         response.write ("selected")            
                      end if             
                 end if             
               %>            
            
                       
           ><%=i%></option>                               
       <%next%>             
                       
                                                                     
      </select>日&nbsp; <input type="submit" value="查询" class="hand" style="background-color: #D1D1D1; border-style: solid; border-width: 1" >                    
                   
      </p>      
      </font>                  
                  
    </td>                                                                     
 </tr>                                                                                         
</table>                                                                                  
                                                                                      
                                                          
                                                                                  
                                                                                      
                                                                                    
                                                                                                
<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>
     </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 i=0 to Ubound(wtdegree)     '总共找出有几种类型         
     %>                      
         <%if  i mod 2=1 then                          
            bg="#f7f7f7"                            
       else                          
            bg="#EDEBEC"                           
       end if%>                                                                                                 
                                                                                                    
  <tr bgcolor="<%=bg%>">     
    <font size="2">                                                                
                                                                                               
                                                                                                  
    <td width="117" height="23" align="center" ><%=wtdegree(i)%></td>     
    <%     
   set rstj=Server.CreateObject("ADODB.RecordSet")     
   sql="select count(clientnum) as total from E_Clientcomplain where CrisesLevel='"&wtdegree(i)&"'"    
   if departcode<>"" then 
      sql=sql&"and departid='"&departcode&"'" 
   end if   
   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     
   'response.write sql  
   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 where 1=1"     
if departcode<>"" then 
      txt=txt&"and departid='"&departcode&"'" 
end if   
     
 if total1<>""  and total2="" then     
      txt=txt&" and ComplainTime<='"&total1&"'"     
   end if      
   if total1="" and total2<>"" then     
      txt=txt&" and ComplainTime<='"&total2&"'"     
     
   end if      
   if total1<>"" and total2<>"" then     
      txt=txt&" and  ( ComplainTime between  '"&total1&"' and '"&total2&"' )"     
     
   end if     
rsts.open txt,Pubconn,1   
'response.write txt    
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+wtdegree(i)+","     
     zs=zs+cstr(cs)+","     
       
     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>      
     
      
                                                                                                                     
     
<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>     
     
                  
                 
                  
</body>