g_clientinfo1.asp

一个很好的在线购物系统

     区域</td>        
    <td width="183"  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">没有符合条件的记录！<b>                     
</b>                     
</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                                                                                            
                                                                                             
%>                              
                                                                                          
 <form name="myform" method="post" action="G_plan.asp" target="main">                                                                                                          
<table border="1" cellspacing="0" width="100%" height="30" width="100%" width="100%">                                                                                              
                      
                                                                                             
  <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">  
      <%  
       if isnull(RSkh("Level")) then  
          response.write"&nbsp;"  
       else  
          response.write RSkh("Level")  
       end if   
         
       %>                 
       </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    
           ywyname=rst("name")    
        else    
           ywyname=""    
        end if     
        %>                                                                                          
      <td width="73" height="23" align="center" width="120"><%=RSkh("Area")%>&nbsp; </td>                                                                                                   
                      
                                                                                                   
      <td width="73" height="23" align="center" width="120"><font size="2"><%=ywyname%></td>                                                                                                   
                      
                                                                                                   
  </tr>                                                                                       
  <%                                                                                       
     RSkh.movenext                                                                                       
     if RSkh.eof then exit for                                                                                       
  next                                                                                       
  %>           
   <input type="hidden" name="tyear"  value="<%=tyear%>">        
   <input type="hidden" name="tmonth" value="<%=tmonth%>">          
   <input type="hidden" name="tdate"  value="<%=tdate%>">  
   <input type="hidden" name="kfkhlx"  value="<%=kfkhlx%>">                                                                                                                                                                        
 </table>           
                   
                                                                                                          
                                                                                                     
<p align="center">           
                                                                                                    
<font size="2">                                                                                                    
   共<%=RSkh.pagecount%>页&nbsp; 第<%=page%>页&nbsp;&nbsp;&nbsp;&nbsp; <a href="G_ClientInfo1.asp?page=1&khmc=<%=khmc%>&khlx=<%=khlx%>&khjb=<%=khjb%>&tyear=<%=tyear%>&tmonth=<%=tmonth%>&tdate=<%=tdate%>&kfkhlx=<%=kfkhlx%>">首页</a>&nbsp;<%if page>1 then %>                                                                                                                           
   <a href="G_ClientInfo1.asp?page=<%=(page-1)%>&khmc=<%=khmc%>&khlx=<%=khlx%>&khjb=<%=khjb%>&tyear=<%=tyear%>&tmonth=<%=tmonth%>&tdate=<%=tdate%>&kfkhlx=<%=kfkhlx%>">上页</a>&nbsp;                                                                                                                          
   <% else%>                                                                                                                          
   上页&nbsp;                                                                                                                          
  <%  end if%>                                                                                                                          
    <%if page<RSkh.pagecount then %>                                                                                                                         
   <a href="G_ClientInfo1.asp?page=<%=(page+1)%>&khmc=<%=khmc%>&khlx=<%=khlx%>&khjb=<%=khjb%>&tyear=<%=tyear%>&tmonth=<%=tmonth%>&tdate=<%=tdate%>&kfkhlx=<%=kfkhlx%>">下页</a>&nbsp;                                                                                                                          
   <% else %>                                                                                                                         
   下页&nbsp;                                                                                                                          
  <%end if%><a href="G_ClientInfo1.asp?page=<%=RSkh.pagecount%>&khmc=<%=khmc%>&khlx=<%=khlx%>&khjb=<%=khjb%>&tyear=<%=tyear%>&tmonth=<%=tmonth%>&tdate=<%=tdate%>&kfkhlx=<%=kfkhlx%>">尾页</a>&nbsp;&nbsp;</font>                               
 <%%>                                 
                               
                                                                                                                       
      <select  name="page1" style="width:80" size="1">                                          
                                                 
                                 
       <% for pp=1 to RSkh.pagecount%>                                                                  
         <option value="<%=pp%>" >第<%=pp%>页</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 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>