g_execsh.asp

一个很好的在线购物系统

    <td width="105" height="24" align="center" bgcolor="#DDD2C4">                                                                            
     <font size="2">跟进时间                                                                            
     </font>                                                                            
     </td>                                                                                             
     <td width="83" height="24" align="center" bgcolor="#DDD2C4">                                                                            
      <font size="2">跟进客户                                                                            
      </font>                                                                            
     </td>                                                                                             
                                                                                                
    <td width="61" height="24" align="center" bgcolor="#DDD2C4">                                                                            
     <font size="2">跟进对象                                                                            
     </font>                                                                            
     </td>                                                                                             
    <td width="104" height="24" align="center" bgcolor="#DDD2C4">                                                                            
     <font size="2">职务                                                                            
     </font>                                                                            
     </td>                                                                                             
     <td width="82" height="24" align="center" bgcolor="#DDD2C4">                                                                            
      <font size="2">跟进方式                                                                            
      </font>                                                                            
     </td>                                                                                             
                                                                                                
     <td width="82" height="24" align="center" bgcolor="#DDD2C4">跟进目的</td>                                                                                             
                                                                                                
     <td width="82" height="24" align="center" bgcolor="#DDD2C4">执行情况</td>                                                                                            
                                                                                               
  </tr>                                                                                           
                                                                                           
     <% for n=1  to rstp.RecordCount%>               
            <%if  n mod 2=1 then                     
            bg="#f7f7f7"                       
       else                     
            bg="#EDEBEC"                      
       end if%>                                                                                           
                                                                           
  <tr  bgcolor="<%=bg%>">                                                         
                                                                                                                   
                                                                                           
    <td width="69" height="23" align="center"><font size="2"></font><%=rstp("CloseDate")%></td>                                                                              
      <td width="53" height="23" align="center"><font size="2"><%show(rstp("PlanWeek"))%>       
       </font>       
    </td>                                                                                         
      <td width="105" height="23" align="center"><font size="2"><%=rstp("CloseTime")%>       
       </font>       
    </td>                                                                                         
      <td width="83" height="23" align="center"><font size="2"><%=khname(rstp("ClientNum"))%>       
       </font>       
    </td>                                                                                         
      <td width="61" height="23" align="center"><font size="2"></font><% 
      if rstp("LinkMan")="" then 
         response.write "&nbsp;" 
      else 
         response.write rstp("LinkMan") 
      end if        
      %></td>                                                                                         
      <td width="104" height="23" align="center"><font size="2"></font><% 
      if rstp("ObjectDuty")="" then 
         response.write "&nbsp;" 
      else 
         response.write rstp("ObjectDuty") 
      end if        
      %></td>                                                                                          
      <td width="82" height="23" align="center"><font size="2"></font><%=rstp("CloseMode")%></td>                                                                                          
      <td width="82" height="23" align="center"><%=rstp("ClosePurpose")%></td>                                                                                          
                                                              
      <td width="82" height="23" align="center"><font size="2"></font><%   
      if rstp("ExecYN")="Y" then%>   
         <a href="G_execbrow1.asp?ID=<%=rstp("ID")%>&wid=<%=wid%>&sid=<%=sid%>">已执行</a>     
   
         
      <%else   
          response.write ("未执行")   
      end if   
      %></td>                                                                                          
                                                                              
                                                                            
                                                                                         
                                                                                         
  </tr>                                                                             
  <%                                                                             
     rstp.movenext                                                                             
     if rstp.eof then exit for                                                                             
  next                                                                             
  %>                                                                                            
 </table>     
 <p>     
 <a href="G_ExecRemark.asp?Stuffid=<%=sid%>&wid=<%=wid%>">请审核</a>                                                                                            
 </form>                                                                                                            
<% response.end     
end if   '有数据时     
     
end  if     '在已选择了业务员与周次时     
     
 %>        
<form method="post" action="G_execsh.asp" name="myform">          
<table border="0" width="100%">                                                  
                                 
 <tr>                                                 
  <td width="100%">                                                 
                                           
   <p align="left">（     
   <font size="2">提示：当前为第<%=datepart("ww",date())%>周    
   </font>    
   ）　<b>                                              
   &nbsp;                                                       
   </b>                                                      
                                                      
   </p>                                                      
                                                      
  </td>                                                      
 </tr>                                                      
</table>                                                      
                                                      
                                                      
                                                      
<table border="0" cellspacing="0" width="100%" align="center">                                                       
  <tr>                                                        
    <td width="12%" align="center" bgcolor="#F1E8DA">       
       
     <p align="right">      
     <font size="2">周次</font>      
      
     </p>      
      
    </td>                                                         
    <td width="19%" align="center"  bgcolor="#F1E8DA">                                                       
      
    <p align="left">      
    <select name="WeekID" size="1" style="width:100">                                                     
                                       
              <option value="">请选择</option>                                                   
           <%for i=1 to 54 %>                                                   
              <option value="<%=i%>" >第<%=i%>周</option>                                                   
          <%next%>                    
                                    
                                                    
                                                    
    </select>      
      
    </p>      
      
    </td>                                                                
    <td width="11%" align="center" bgcolor="#F1E8DA">      
      
     <p align="right">      
     业务员      
      
     </p>      
      
    </td>                                                      
                                                           
    <td width="29%" align="center" bgcolor="#F1E8DA">                                                            
      
      <p align="left">      
      <select  name="txtstuff" style="width:100" size="1">                     
      <%                  
                         
      %>                                                   
            <%                                                     
    '业务员列表                                                     
    set rst=Server.CreateObject("ADODB.RecordSet")                                                     
    sql="Select * from A_StuffInfo Where SaleFlag='1'and delflag='0'"                                                     
    rst.open sql,pubconn,1                                                     
                                                         
    %>                                                  
       <option value="">请选择</option>                                             
       <%do while not rst.eof%>                                                    
        <option  value="<%=rst("StuffNum")%>" >  <%=rst("Name")%></option>                                                    
       <%                                                   
       rst.movenext                                                   
       loop                                                   
      set rst=nothing                                                   
        %>                                                   
                                                    
      </select>&nbsp;&nbsp;&nbsp;&nbsp; <input type="button" value="查询" onclick="check1()" class="hand" style="background-color: #D1D1D1; border-style: solid; border-width: 1"  >&nbsp; 
      <a href="G_mainexec.asp"><font size="2">返回</font></a>      
      
      </p>      
      
    </td>                                                                             
 </tr>                                                                            
</table>                                                                     
</form>     
       
</body>