g_losttj.asp

一个很好的在线购物系统

 <%if request("tag")=2 then%>                                               
     <a href="G_tjcx.asp">返回                                                  
 <%else%>                                                
 </a>                                              
      <a href=G_mainlost.asp>返回</a></center>                                                      
<b>                                                        
 <%end if %>                                                                      
                                                    
                                                    
                                                          
                                                           
 <%else        
 '当有数据时     
 person=""     
 sl=""     
 for p=1 to rstj.recordcount     
     person=person+RStj.Fields(0).value+","     
     if yqtotal<>0 then     
       sl=sl+cstr(round(RStj.Fields(1).value/yqtotal*100,2))+","     
     end if      
     rstj.movenext     
          
 next                                                                                                                          
   if request.querystring("page")<>"" then                                                                                                                            
   page=cint(request.querystring("page"))                                                                                                                           
else                                                                                                                           
   page=1                                                                                                                           
end if                                                                                                                           
                                                                                                                           
RStj.pagesize=10                                                                                                                          
if page>=RStj.pagecount then                                                                                                                           
   page=RStj.pagecount                                                                                                                           
else                                                                                                                           
   if page<1 then                                                                                                                           
      page=1                                                                                                                           
   end if                                                                                                                           
end if                                                                                                                           
RStj.absolutepage=page                                                                                                                           
                                                                                                                            
%>                                                             
                                                                                                                          
                                                                                                                                      
<div align="center">                                                   
 <center>                                                            
                                                                                                                         
                                                                                                                                     
<table border="1" cellspacing="0" width="100%" height="30" width="100%" width="100%">                                                                                                                             
                                                                                                                                   
  <tr>                                                                                                                                             
                                                                                                                             
     <td width="146" height="24" align="center" width="122" bgcolor="#DDD2C4">                                                                                                                           
     <%= RStj.Fields(0).name%>                                                                                                                          
     </td>                                                                                                                                           
    <td width="176" height="24" align="center" width="131" bgcolor="#DDD2C4">                                                                                                                         
      <%= RStj.Fields(1).name%>                                                                                                                        
     </td>                                                                                                                                          
    <td width="272" height="24" align="center" width="84" bgcolor="#DDD2C4">                                                                                                                         
    客户丢失比率(%)                                                                                                                     
     </td>                                                                                                                                         
                                                                                                                                           
  </tr>                                                                                                                                       
                                                                                                                                       
     <% for n=1  to RStj.pagesize%>                                                           
                                                                                                                             
       <%if  n mod 2=1 then                                                                
            bg="#f7f7f7"                                                                  
       else                                                                
            bg="#EDEBEC"                                                                 
       end if%>                                                                                                                                         
  <tr bgcolor="<%=bg%>">                                                                                                     
                                                                                            
                                                                                                                                       
    <td width="146" height="23" align="center" width="122"><font size="2"></font> <%= RStj.Fields(0).value%></td>                                                                                                                          
      <td width="176" height="23" align="center" width="131"><font size="2"> <%=RStj.Fields(1).value%>                                                   
       </font>                                                   
    </td>                                                
                                                                                                                                   
      <td width="272" height="23" align="center" width="84"><font size="2"><%                              
       if  yqtotal=0 then                                  
             response.write ("暂没有预期客户")                                
       else                              
             response.write    round(RStj.Fields(1).value/yqtotal*100,2)                              
      end  if                              
      %>                                                    
       </font>                                                   
    </td>                                                                                                                                     
                                                         
                                                                                                                                          
                                                                                                                          
                                                                                                                        
                                                                                                                                     
                                                                                                                                     
  </tr>                                                                                                                         
  <%                                                                                                                         
     RStj.movenext                                                                                                                         
     if RStj.eof then exit for                                                                                                                         
  next                                                                                                                         
  %>                                                                                                                                        
 </table>                                                                                                                                        
                                                                                                                       
 </center>                                                 
</div>                                                 
   <input type="hidden" name="tag" value="<%=tag%>">                                                                                                                    
</b><p align="center">                                                                                                                      
<font size="2">                                                                                                                                       
   共<%=RStj.pagecount%>页&nbsp; 第<%=page%>页&nbsp;&nbsp;&nbsp;&nbsp; <a href="G_losttj.asp?page=1&monthid=<%=monthid%>&bm=<%=bm%>&tag=<%=tag%>">首页</a>&nbsp;<%if page>1 then %>                                                                                                                                                             
   <a href="G_losttj.asp?page=<%=(page-1)%>&monthid=<%=monthid%>&bm=<%=bm%>&tag=<%=tag%>">上页</a>&nbsp;                                                                                                                                                            
   <% else%>                                                                                                                                                          
   上页&nbsp;                                                                                                                                                            
  <%  end if%>                                                                                                                                                          
    <%if page<RStj.pagecount then %>                                                                                                                                                           
   <a href="G_losttj.asp?page=<%=(page+1)%>&monthid=<%=monthid%>&bm=<%=bm%>&tag=<%=tag%>">下页</a>&nbsp;                                                                                                                                                            
   <% else %>                                                                                                                                                         
   下页&nbsp;                                                                                                                                                            
  <%end if%>     
  <a href="G_losttj.asp?page=<%=RStj.pagecount%>&monthid=<%=monthid%>&bm=<%=bm%>&tag=<%=tag%>">尾页</a>&nbsp;&nbsp;</font>                                                               
<b>                                                                 
 <%%>                                                               
                                                             
                                                                                                                                                     
      <select  name="page1" style="width:80" size="1">                                                                          
                                                                               
                                                               
       <% for o=1 to RStj.pagecount%>                                                                                                
         <option value="<%=o%>">第<%=o%>页</option>                                                                  
       <%next%>                                                                                        
                                                                                                
      </select> <input type="button" value="GO" onclick="Gopage()" class="hand" style="background-color: #D1D1D1; border-style: solid; border-width: 1">&nbsp;&nbsp; <a href="G_losttx.asp?monthid=<%=monthid%>&bm=<%=bm%>"></a></b>                              
  <%if yqtotal<>0 then%>    <a href="../contract/f_bmhtzjtx.asp?bm=<%=person%>&htzj=<%=sl%>&xs=客户丢失统计图形&dw=百分比"><%end if %>图形</a>&nbsp;&nbsp; <a href="javascript:window.print()">打印</a>                                                            
    <p align="left">                                                        
       <%if tag="2" then%>                                                                                                                    
                                                                                                                    
                                                                                                                     
          <a href="G_tjcx.asp">返回                                                  
    <%else%>                                                 
                                             
          </a>                                           
                                            
          <a href="G_mainlost.asp"><font size="2">返回                                                       
                                                       
                                             
                                                       
                                                           
                                                               
                                                              
    <%end if %>                                                  
                                                
 </form>                                               
                                                                                                                                                           
<%                                              
 Rstj.close                                              
 set Rstj=nothing                                              
 end if %>                                                       
                                                       
</font>                                              
                                                       
</body>