g_clientinfo2.asp

一个很好的在线购物系统

     <% 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                                                                                          
                                                                                           
%>                            
                                                                                        
 <form name="myform" method="post" action="G_state.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"><%=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")%>&nbsp; </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                                                                                     
  %>         
                                                                                                                                                                
 </table>         
                 
                                                                                                        
                                                                                                   
<p align="center">         
                                                                                                  
<font size="2">                                                                                                  
   共<%=RSkh.pagecount%>页&nbsp; 第<%=page%>页&nbsp;&nbsp;&nbsp;&nbsp; <a href="G_ClientInfo2.asp?page=1&khmc=<%=khmc%>&khlx=<%=khlx%>&khjb=<%=khjb%>">首页</a>&nbsp;<%if page>1 then %>                                                                                                                         
   <a href="G_ClientInfo2.asp?page=<%=(page-1)%>&khmc=<%=khmc%>&khlx=<%=khlx%>&khjb=<%=khjb%>">上页</a>&nbsp;                                                                                                                        
   <% else%>                                                                                                                        
   上页&nbsp;                                                                                                                        
  <%  end if%>                                                                                                                        
    <%if page<RSkh.pagecount then %>                                                                                                                       
   <a href="G_ClientInfo2.asp?page=<%=(page+1)%>&khmc=<%=khmc%>&khlx=<%=khlx%>&khjb=<%=khjb%>">下页</a>&nbsp;                                                                                                                        
   <% else %>                                                                                                                       
   下页&nbsp;                                                                                                                        
  <%end if%><a href="G_ClientInfo2.asp?page=<%=RSkh.pagecount%>&khmc=<%=khmc%>&khlx=<%=khlx%>&khjb=<%=khjb%>">尾页</a>&nbsp;&nbsp;</font>                             
 <%%>                               
                             
                                                                                                                     
      <select  name="page1" style="width:80" size="1">                                        
                                               
                               
       <% for o=1 to RSkh.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;              
 <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>