f_clientinfo2.asp

一个很好的在线购物系统

   <td width="73" bgcolor="#F1E8DA">        
        
     <p align="right">        
     区域</td>        
    <td width="214"  bgcolor="#F1E8DA">         
      <select size="1" name="khjb" style="width:100;">        
      <option value="">全部</option>       
     <% for i=0 to Ubound(closetime)%>                                                                                                
          <option value="<%=closetime(i)%>" <% if khjb=closetime(i) then %> selected <% end if %>><%=closetime(i)%></option>                                                                                                
      <%next%>                                    
      </select>&nbsp;&nbsp;&nbsp;    
         
      <input type="submit" value="查询"  class="hand" style="background-color: #D1D1D1; border-style: solid; border-width: 1">                      
                      
    </td>                                                                                             
 </tr>        
               
                                                                                                          
</table>                  
 </center>        
</div>        
</form>                                                                                 
                                                                                         
 <%                          
 if RSkh.eof then%>                          
<center><p>                   
<font size="2">没有符合条件的记录！                    
</font>                    
</center>                           
                           
 <%else                                                                                             
   if request.querystring("page")<>"" then                                                                                            
   page=cint(request.querystring("page"))                                                                                           
else                                                                                           
   page=1                                                                                           
end if                                                                                           
                                                                                           
RSkh.pagesize=6                                                                                          
if page>=RSkh.pagecount then                                                                                           
   page=RSkh.pagecount                                                                                           
else                                                                                           
   if page<1 then                                                                                           
      page=1                                                                                           
   end if                                                                                           
end if                                                                                           
RSkh.absolutepage=page                                                                                           
                                                                                            
%>                             
                                                                                                     
<table border="1" cellspacing="0" width="100%" height="30" width="100%" width="100%">                                                                                             
    <form name="myform"  method="post" action="F_contract1.asp" target="main">                 
                                                                                            
  <tr>                                                                                                         
                                                                                             
     <td width="37" height="24" align="center" width="122" bgcolor="#DDD2C4">&nbsp;                                                                                           
     </td>                                                                                                            
    <td width="144" height="24" align="center" width="131" bgcolor="#DDD2C4">                                                                                          
     <font size="2">客户名称&nbsp;                
     </font>                
     </td>                                                                                                         
    <td width="161" height="24" align="center" width="84" bgcolor="#DDD2C4">                                                                                        
     客户类型                 
     </td>                                                                                                         
     <td width="157" height="24" align="center" width="84" bgcolor="#DDD2C4">                                                                                        
     客户级别                 
     </td>                                                                                                               
                                                                                                            
    <td width="73" height="24" align="center" width="120" bgcolor="#DDD2C4">                                                                                        
     <font size="2">区域     
     </font>     
     </td>                                                                                                        
                                                                                                          
    <td width="73" height="24" align="center" width="120" bgcolor="#DDD2C4">                                                                                       
     <font size="2">业务员          
     </font>          
     </td>                                                                                                        
                                                                                                          
  </tr>                                                                                                     
                                                                                                     
     <% for n=1  to RSkh.pagesize%>                         
                                                                                                  
      <%if  n mod 2=1 then                         
            bg="#f7f7f7"                           
       else                         
            bg="#EDEBEC"                          
       end if%>                                                                                                         
  <tr bgcolor="<%=bg%>">                                                                   
                                                                                               
                                                                                                     
    <td width="37" height="23" align="center" width="122">           
           
     <p align="left">          
     <font size="2"></font>            
     <input type="radio" value="<%=RSkh("ClientNum")%>" name="khxh">         
         
     </p>          
          
       </td>                                                                                       
      <td width="144" height="23" align="center" width="131"><font size="2"><%=RSkh("ClientName")%>                
       </font>                
    </td>            
     <td width="161" height="23" align="center" width="84"><font size="2"><%    
     if RSkh("tag")="hbdealer"  then    
        response.write ("经销商")    
     elseif RSkh("tag")="khindex"  then   
        response.write ("客户线索")   
     else    
        response.write  RSkh("type")    
     end if %>                
       </font>                
    </td>                                                                                                    
      <td width="157" height="23" align="center" width="84"><font size="2"><%=RSkh("Level")%>&nbsp;                
       </font>                
    </td>                                                                                                  
        <%     
        '找出对应的名字     
        set rst=Server.CreateObject("adodb.recordset")     
        sql="select  *  from A_StuffInfo where stuffnum='"&RSkh("StuffNum")&"'"     
        rst.open sql,pubconn,1    
         if  not rst.eof then   
           ywy=rst("name")   
        else   
           ywy="&nbsp;"   
        end if     
    
        %>                                                                                         
      <td width="73" height="23" align="center" width="120"><%=RSkh("Area")%> </td>                                                                                                  
                     
                                                                                                  
      <td width="73" height="23" align="center" width="120"><font size="2"><%=ywy%></td>                                                                                                  
                     
                                                                                                  
  </tr>                                                                                      
  <%                                                                                      
     RSkh.movenext                                                                                      
     if RSkh.eof then exit for                                                                                      
  next                                                                                      
  %>          
 <input type="hidden" name="hth" value="<%=hth%>">    
 <input type="hidden" name="gcsxh" value="<%=gcsxh%>">                                                                                                                                               
 </table>          
                  
                                                                                                         
                                                                                                    
<p align="center">          
                                                                                                   
<font size="2">                                                                                                   
   共<%=RSkh.pagecount%>页&nbsp; 第<%=page%>页&nbsp;&nbsp;&nbsp;&nbsp; <a href="F_clientInfo2.asp?page=1&khmc=<%=khmc%>&khlx=<%=khlx%>&khjb=<%=khjb%>&hth<%=hth%>&gcsxh=<%=gcsxh%>">首页</a>&nbsp;<%if page>1 then %>                                                                                                                          
   <a href="F_clientInfo2.asp?page=<%=(page-1)%>&khmc=<%=khmc%>&khlx=<%=khlx%>&khjb=<%=khjb%>&hth<%=hth%>&gcsxh=<%=gcsxh%>">上页</a>&nbsp;                                                                                                                         
   <% else%>                                                                                                                         
   上页&nbsp;                                                                                                                         
  <%  end if%>                                                                                                                         
    <%if page<RSkh.pagecount then %>                                                                                                                        
   <a href="F_clientInfo2.asp?page=<%=(page+1)%>&khmc=<%=khmc%>&khlx=<%=khlx%>&khjb=<%=khjb%>&hth<%=hth%>&gcsxh=<%=gcsxh%>">下页</a>&nbsp;                                                                                                                         
   <% else %>                                                                                                                        
   下页&nbsp;                                                                                                                         
  <%end if%><a href="F_clientInfo2.asp?page=<%=RSkh.pagecount%>&khmc=<%=khmc%>&khlx=<%=khlx%>&khjb=<%=khjb%>&hth<%=hth%>&gcsxh=<%=gcsxh%>">尾页</a>&nbsp;&nbsp;</font>                              
 <%%>                                
                              
                                                                                                                      
      <select  name="page1" style="width:80" size="1">                                         
       <% for count=1 to RSkh.pagecount%>                                                                 
         <option value="<%=count%>">第<%=count%>页</option>                             
       <%next%>                                                   
                                                           
      </select> <input type="button" value="GO" onclick="Gopage()" class="hand" style="background-color: #D1D1D1; border-style: solid; border-width: 1">&nbsp;&nbsp;               
<p>
      <p align="left">    
 <input type="button" value="确定" name="bb" onclick="winsub()" class="hand" style="background-color: #D1D1D1; border-style: solid; border-width: 1">                    
 </form>                                                                                                                            
<%  rst.close       
    set rst=nothing              
    RSkh.close               
    set RSkh=nothing               
end if %>                        
                        
</body>