g_plandetail.asp

一个很好的在线购物系统

              
    </td>                                                              
                                                                   
    <td width="163" align="center" bgcolor="#F1E8DA">                                                                    
              
      <p align="left">              
      <select  name="txtstuff" style="width:100" size="1">                             
                                                               
            <%                                                             
    '业务员列表                                                             
    set rst=Server.CreateObject("ADODB.RecordSet")                                                             
    sql="Select StuffNum,Name from A_StuffInfo Where SaleFlag='1' and delflag='0' and Departcode like '"&Session("DepartID")&"%'"                                                             
    rst.open sql,pubconn,1                                                             
                                                                 
    %>                                                          
       <option value="">全部</option>                                                       
       <%do while not rst.eof%>                                                              
        <option  value="<%=rst("StuffNum")%>"                    
        <%                   
        if sid<>"" then                   
           if sid=trim(rst("StuffNum")) then                   
               response.write("selected")                   
           end if                    
        end if                    
                       
        %> ><%=rst("Name")%></option>                                                              
       <%                                                             
       rst.movenext                                                             
       loop                                                             
      set rst=nothing                                                             
        %>                                                             
                                                              
      </select>&nbsp;&nbsp;&nbsp;&nbsp;</td>       
  <td width="149" bgcolor="#F1E8DA">&nbsp;&nbsp;<a href="G_planshbrow.asp">查看历史评语</a>&nbsp;  </td>             
 </tr>          
      <tr>          
      <td width="73" bgcolor="#F1E8DA">           
           
       <p align="right">          
       客户序号         
         
       </p>         
         
    </td>         
      <td width="152" bgcolor="#F1E8DA">         
      <input type="text" name="khxh" size="14" value="<%=khxh%>" onkeyup="khxx()"><input type="button" value="..." onclick="kh()" class="hand" style="background-color: #D1D1D1; border-style: solid; border-width: 1"></td>        
       <td width="73"  bgcolor="#F1E8DA">         
        
        <p align="right">       
 客户名称       
       
        </p>       
       
 </td>       
       <td width="163" bgcolor="#F1E8DA">        
       
      <input type="text" name="khmc" size="24" value="<%=khmc%>">        
        
    </td>        
    <td width="149" bgcolor="#F1E8DA">           
      <input type="submit" value="查询" class="hand"  style="background-color: #D1D1D1; border-style: solid; border-width: 1" >                
           
    </td>         
                                                                                   
 </tr>                                                                                 
</table>                                                                          
</form>                                                                             
 <%               
 if RSplan.eof then%>               
<center><p>没有符合条件的记录！<a href=G_mainplan.asp>返回</a></center>               
               
 <%else                    
 '有数据时开始分页                                                                               
   if request.querystring("page")<>"" then                                                                                   
   page=cint(request.querystring("page"))                                                                                  
else                                                                                  
   page=1                                                                                  
end if                                                                                  
                                                                                  
RSplan.pagesize=9                                                                                
if page>=RSplan.pagecount then                                                                                  
   page=RSplan.pagecount                                                                                  
else                                                                                  
   if page<1 then                                                                                  
      page=1                                                                                  
   end if                                                                                  
end if                                                                                  
RSplan.absolutepage=page                                                                                  
                                                                                   
%>                    
                                                                                 
 <form action="G_plandel.asp?flag=1" method="post" name="form1">                                                                                            
<table border="1" cellspacing="0" width="649" height="30">                                                                                     
                                                                                           
  <tr>                                                                                                     
     <td width="26" height="24" align="center" bgcolor="#DDD2C4">&nbsp;&nbsp;                                                                             
     </td>                                                                                
     <td width="79" height="24" align="center" bgcolor="#DDD2C4">                                                                                   
      <font size="2">计划跟进日期                                                                                   
      </font>                                                                                   
     </td>                                                                                                     
    <td width="54" height="24" align="center" bgcolor="#DDD2C4">                                                                                   
     <font size="2">星期                                                                                   
     </font>                                                                                   
     </td>                                                                                                    
    <td width="74" height="24" align="center" bgcolor="#DDD2C4">                                                                                   
     <font size="2">跟进时间                                                                                   
     </font>                                                                                   
     </td>                                                                                                    
     <td width="126" height="24" align="center" bgcolor="#DDD2C4">                                                                                   
      <font size="2">跟进客户                                                                                   
      </font>                                                                                   
     </td>                                                                                                    
                                                                                                       
    <td width="53" height="24" align="center" bgcolor="#DDD2C4">                                                                                   
     <font size="2">跟进对象                                                                                   
     </font>                                                                                   
     </td>                                                                                                    
    <td width="74" height="24" align="center" bgcolor="#DDD2C4">                                                                                   
     <font size="2">职务                                                                                   
     </font>                                                                                   
     </td>                                                                                                    
     <td width="59" height="24" align="center" bgcolor="#DDD2C4">                                                                                   
      <font size="2">跟进方式                                                                                   
      </font>                                                                                   
     </td>                                                                                                    
                                                                                                       
     <td width="66" height="24" align="center" bgcolor="#DDD2C4">跟进目的</td>                                                                                                    
                                                                                                       
  </tr>                                                                                                   
                                                                                                   
     <% for n=1  to RSplan.pagesize%>                       
                                                                                                
        <%if  n mod 2=1 then                       
            bg="#f7f7f7"                         
       else                       
            bg="#EDEBEC"                        
       end if%>                                                                                                     
  <tr bgcolor="<%=bg%>">                                                                 
                                                                                     
     <td width="26" height="24" align="center">    
     <input type="checkbox" name="xz" value="<%=n%>"  <%if RSplan("AuditingYN")="Y" or  RSplan("ExecYN")="Y" or (ucase(RSplan("Authors"))<>ucase(username))  then    
        response.write("disabled")    
     end if     
         
     %>>    
     <input type="hidden" name="pid<%=n%>" value="<%=RSplan("ID")%>">    
    
      </td>                                                                                              
    <td width="79" height="23" align="center"><font size="2"></font><%=RSplan("CloseDate")%></td>                                                                                      
      <td width="54" height="23" align="center"><font size="2"><%show(rsplan("planweek"))%></td>                                                                                                 
      <td width="74" height="23" align="center"><font size="2"><%=RSplan("CloseTime")%></td>     
     <td width="126" height="23" align="center"><font size="2"><a Href="G_clientInfo.asp?ClientID=<%=Rsplan("ClientNum")%>"><%=khname(Rsplan("ClientNum"))%></a></td>                                                                                                 
      <td width="53" height="23" align="center"><font size="2"></font><%=RSplan("LinkMan")%>&nbsp;</td>    
                                                                                                             
      <td width="74" height="23" align="center"><font size="2"></font><%=RSplan("ObjectDuty") %>&nbsp;</td>      
                                                                                                     
      <td width="59" height="23" align="center"><font size="2"></font><%=RSplan("CloseMode")%></td>                                                                                                  
      <td width="66" height="23" align="center"><font size="2"></font><%=RSplan("ClosePurpose")%></td>                                                                                                  
                                                                                      
                                                                                    
                                                                                                 
                                                                                                 
  </tr>                                                                                     
  <%                                                                                     
     RSplan.movenext                                                                                     
     if RSplan.eof then exit for                                                                                     
  next                                                                                     
  %>                                                                                                    
 </table>                                                                                                    
                                                                                   
<p align="center">                                                                                  
<font size="2">                                                                                                   
   共<%=RSplan.pagecount%>页&nbsp; 第<%=page%>页&nbsp;&nbsp;&nbsp;&nbsp; <a href="G_plandetail.asp?page=1&weekid=<%=wid%>&txtstuff=<%=sid%>&khxh=<%=khxh%>">首页</a>&nbsp;<%if page>1 then %>                                                                                                                  
   <a href="G_plandetail.asp?page=<%=(page-1)%>&weekid=<%=wid%>&txtstuff=<%=sid%>&khxh=<%=khxh%>">上页</a>&nbsp;                                                                                                                 
   <% else%>                                                                                                                 
   上页&nbsp;                                                                                                                 
  <%  end if%>                                                                                                                 
    <%if page<RSplan.pagecount then %>                                                                                                                
   <a href="G_plandetail.asp?page=<%=(page+1)%>&weekid=<%=wid%>&txtstuff=<%=sid%>&khxh=<%=khxh%>">下页</a>&nbsp;                                                                                                                 
   <% else %>                                                                                                                
   下页&nbsp;                                                                                                                 
  <%end if%><a href="G_plandetail.asp?page=<%=RSplan.pagecount%>&weekid=<%=wid%>&txtstuff=<%=sid%>&khxh=<%=khxh%>">尾页</a>&nbsp;&nbsp;</font>                      
 <%%>                       
                    
                                                                                                            
      <select  name="page1" style="width:80" size="1">                                
                                      
                      
       <% for o=1 to RSplan.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_mainplan.asp">返回</a>&nbsp; <a href="javascript:window.print()">打印</a>                                                                                                               
 <p align="center">                                                                               
<input type="submit" value="删除" name="B1" class="hand" style="background-color: #D1D1D1; border-style: solid; border-width: 1">     
     
 
 </form>                                                                                                                   
<%              
Rsplan.close             
set Rsplan=nothing             
end if %>