pubselectkh1.asp

一个很好的在线购物系统

                                            <option value="预期客户">预期客户  
                                        <%end if%>      
                                        <%if m_type1="首次购买客户" then%>  
                                            <option value="首次购买客户" selected>首次购买客户  
                                        <%else%>  
                                            <option value="首次购买客户">首次购买客户   
                                        <%end if%>  
                                           <%if m_type1="重复购买客户" then%>  
                                            <option value="重复购买客户" selected>重复购买客户  
                                        <%else%>  
                                            <option value="重复购买客户">重复购买客户   
                                        <%end if%> 
                                        <%if m_type1="忠诚客户" then%>  
                                            <option value="忠诚客户" selected>忠诚客户  
                                        <%else%>  
                                            <option value="忠诚客户">忠诚客户  
                                       <%end if%>  
                                          <%if m_type1="经销商" then%>  
                                            <option value="经销商" selected>经销商  
                                        <%else%>  
                                            <option value="经销商">经销商  
                                       <%end if%>   
                                                         
                                  </select></td>
                  <td bgcolor="#F1E8DA" bordercolor="#F1E8DA" bordercolorlight="#F1E8DA" bordercolordark="#000000">区域</td><td bgcolor="#F1E8DA" bordercolor="#F1E8DA" bordercolorlight="#F1E8DA" bordercolordark="#000000">
                  <select name="m_level">  
                                      <%if m_level1<>"" then%> 
                        <option value="<%=m_level1%>" selected><%=m_level1%></option>  
                       			<%end if%>                  	                                  
                                  <option value="">请选择: <% for i=0 to UBound(SaleArea) %> 
                                            <option value="<%=SaleArea(i)%>" ><%=SaleArea(i)%></option>                   	                                 
                                       <% next %>                                       
                                    </select></td>                        
               <td bgcolor="#F1E8DA" bordercolor="#F1E8DA" bordercolorlight="#F1E8DA" bordercolordark="#000000"><input type="button" name="Search" value="查询" onclick="Search_click()" class=hand style="background-color: #D1D1D1; border-style: solid; border-width: 1"></td>   
             </table><hr>   
             <table border=1 cellspacing="0" width="100%">   
                 <tr>   
                    <td bgcolor="#DDD2C4" >　</td><td bgcolor="#DDD2C4"><p align="center">客户名称</p></td> 
                    <td bgcolor="#DDD2C4"><p align="center">客户类型</p></td> 
                    <td bgcolor="#DDD2C4" ><p align="center">客户级别</p></td> 
                    <td bgcolor="#DDD2C4" ><p align="center">区域</p></td> 
                    <td bgcolor="#DDD2C4" ><p align="center">业务员</p></td> 
                 </tr> 
             <%if rs.RecordCount >0 then%>     
                  <%if request("page1")<>"" then   
                       page1=cint(request("page1")) 
                    else  
                       page1=1  
                    end if  
                    rs.pagesize=8 
                    if page1>=rs.pagecount then  
                       page1=rs.pagecount  
                    else  
                       if page1<1 then  
                          page1=1  
                       end if  
                    end if  
                    rs.absolutepage=page1 
                    line=0%>  
                 <%for i=1 to rs.PageSize 
                       line=cint(line)+1%>  
                      <%                  
 if i mod 2=1 then%>                 
  <tr  bgcolor="#f7f7f7"   >                    
  <%else%>                 
  <tr bgcolor="#EDEBEC" >                  
          <%end if%>
                         <td ><input type="checkbox"   name=<%="checkbox1"&line%> value=1 ></td> 
                             <input type="hidden"  name=<%="m_id"&line%>  value="<%=rs.fields("clientnum")%>" id=hidden1> 
                             <input type="hidden"  name=<%="m_name"&line%> value="<%=rs.fields("clientname")%>" id=hidden2>
                         <td ><%=rs.Fields("clientname")%>　</td> 
                         <%if rs.fields("type")<>"" then
                         if rs.fields("tag")="hbdealer" then
                         %>
                         <td >经销商</td> 
                         <%elseif rs.fields("tag")="khindex" then%>
                          <td >客户线索</td>
						<%else
						%>                          
                             <td ><%=rs.Fields("Type")%>　</td> 
                        <%end if%>
						 <%else
						 if rs.fields("tag")="hbdealer" then%> 
						  <td >经销商</td> 
						   <%elseif rs.fields("tag")="khindex" then%>
                          <td >客户线索</td>
						 <%else%>
                             <td>　</td> 
                         <%end if
                         end if%> 
                         <%if rs.fields("level")<>"" then%> 
                             <td ><%=rs.Fields("Level")%>　</td> 
                         <%else%> 
                             <td >　</td> 
                         <%end if%>     
                         <%if rs.Fields("Area")<>"" then%> 
                             <td ><%=rs.Fields("Area")%>　</td> 
                         <%else%> 
                             <td >　</td> 
                         <%end if%> 
                         
                         <%if GetYWYName(rs.Fields("stuffnum"))<>"" then%> 
                             <td ><%=GetYWYName(rs.Fields("stuffnum"))%>　</td> 
                         <%else%><td >　</td> 
                         <%end if%> 
                      </tr> 
                      <%rs.MoveNext %> 
                      <%if rs.EOF then exit for%> 
                 <%next %> 
                 <%if line<8 then%>   
                   <%for i=line to 8%> 
                        <tr><td >　</td><td >　</td><td>　</td><td >　</td><td>　</td><td>　</td></tr> 
                   <%next%> 
                 <%end if%>   
                             
             </table><hr>  <select name="page11" >  
                <%for i=1 to rs.pagecount%>  
                   <option value=<%=i%>><%=i%>  
                <%next%>  
             </select>  
             <input type="button" name="BB" onclick="GoPage()" class=hand style="background-color: #D1D1D1; border-style: solid; border-width: 1" value="Go">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;     
             共<%=rs.pagecount%>页&nbsp;&nbsp; 第<%=page1%>页&nbsp;    
            <a href="Pubselectkh1.asp?page1=1&par_name=<%=m_name1%>&par_level=<%=m_level1%>&par_type=<%=m_type1%>&bcbz=<%=bcbz%>&ddate=<%=ddate%>&ddbh=<%=ddbh%>">首页</a>     
             <%if page1>1 then %>                                        
               <a href="Pubselectkh1.asp?page1=<%=(page1-1)%>&par_name=<%=m_name1%>&par_level=<%=m_level1%>&par_type=<%=m_type1%>&bcbz=<%=bcbz%>&ddate=<%=ddate%>&ddbh=<%=ddbh%>">上页</a>                                      
             <% else%>                                      
               上页&nbsp;                                      
             <%end if%>                                  
             <%if page1<rs.pagecount then %>                                     
               <a href="Pubselectkh1.asp?page1=<%=(page1+1)%>&par_name=<%=m_name1%>&par_level=<%=m_level1%>&par_type=<%=m_type1%>&bcbz=<%=bcbz%>&ddate=<%=ddate%>&ddbh=<%=ddbh%>">下页</a>                                      
             <% else %>                                     
               下页&nbsp;                                      
             <% end if%>      
             <a href="Pubselectkh1.asp?page1=<%=rs.PageCount%>&par_name=<%=m_name1%>&par_level=<%=m_level1%>&par_type=<%=m_type1%>&bcbz=<%=bcbz%>&ddate=<%=ddate%>&ddbh=<%=ddbh%>">尾页</a>     
             &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;   
             <input type="hidden" value="1" name=khbz>   <hr>  <br>         
                 <input type="button" value="确定" onclick="ok()" id=button1 name=button1 class=hand style="background-color: #D1D1D1; border-style: solid; border-width: 1">                
             <%rs.close%>     
   <%end if%>     
   
            <input type="hidden" name=ddbh value="<%=ddbh%>"> 
                  <input type="hidden" name="page1" value="<%=page1%>">   
                  <input type="hidden" name="m_line" value="<%=line%>">   
     </form>  
</BODY>     
</HTML>