e_wtlxtj.asp

一个很好的在线购物系统

           <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(questionlx)     '总共找出有几种类型          
     %>                       
         <%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" ><%=questionlx(i)%></td>      
    <%      
   set rstj=Server.CreateObject("ADODB.RecordSet")      
   sql="select count(clientnum) as total from E_Clientcomplain where ProblemType='"&questionlx(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      
   
   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    
     
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+questionlx(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>