e_reinyqtj.asp

一个很好的在线购物系统

         <%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">                                                                                          
      <b><font size="2">客诉要求</font></b>                 
     </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(reinyq)     '总共找出有几种类型           
     %>                        
         <%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" ><%=reinyq(i)%></td>       
    <%       
   set rstj=Server.CreateObject("ADODB.RecordSet")       
   sql="select count(clientnum) as total from E_Clientcomplain where request='"&reinyq(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+reinyq(i)+","       
     zs=zs+cstr(cs)+","       
     'sbm.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>        
       
        
                                                                                                                       
       
<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>