g_exec.asp

一个很好的在线购物系统

     <td width="82" height="24" align="center" bgcolor="#DDD2C4">执行情况</td>                                                                                                
                                                                                                   
  </tr>                                                                                               
                                                                                               
     <% for n=1  to Rsec.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><%=Rsec("CloseDate")%></font></td>                                                                                  
      <td width="53" height="23" align="center"><font size="2"><%=Rsec("PlanWeek")%></font> </td>            
                
                                                                                               
      <td width="105" height="23" align="center"><font size="2"><%=Rsec("CloseTime")%></font> </td>            
         
                                                                                               
      <td width="83" height="23" align="center"><font size="2"><%=khname(Rsec("ClientNum"))%> </font></td>      
                 
                                                                                                
      <td width="61" height="23" align="center"><font size="2"><%if Rsec("LinkMan")="" then  
         response.write "&nbsp;"  
      else  
        response.write Rsec("LinkMan")  
      end if   
        
      %></font></td>                                                                                             
      <td width="104" height="23" align="center"><font size="2"><%    
      if  Rsec("ObjectDuty")="" then    
          response.write "&nbsp;"    
      else    
          response.write  Rsec("ObjectDuty")    
      end  if     
     %></font></td>                                                                                              
      <td width="82" height="23" align="center"><font size="2"><%=Rsec("CloseMode")%></font></td>                                                                                              
      <td width="82" height="23" align="center"><font size="2"><%=Rsec("ClosePurpose")%></font></td>                                                                                              
                                                                                  
                                                                                
                                                                                             
                                                                                             
      <td width="82" height="23" align="center"><font size="2"></font>      
      <% if Rsec("ExecYN")="Y"  then     
            response.write ("已执行")     
      else%>      
         <a href="G_execinput.asp?ID=<%=Rsec("ID")%>">请输入</a>    
      <%end if   %>      
      </td>                                                                                              
                                                                                  
                                                                                
                                                                                             
                                                                                             
  </tr>                                                                                 
  <%                                                                                 
     Rsec.movenext                                                                                 
     if Rsec.eof then exit for                                                                                 
  next                                                                                 
  %>                                                                                                
 </table>    
 <p align="left">         
<font size="2">         
<a href="G_mainexec.asp">返回</a>&nbsp; </a>        
                                                                                              
</font>       
                                                                                              
 </form>                                                                                                               
<% response.end        
end if   '有数据时        
        
end  if     '在已选择了周次时        
        
 %>           
<form method="post" action="G_exec.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">        
          
      <input type="text" name="txtstuff" size="10" value="<%=Session("StuffName")%>" readonly style="background-color: #edefef"> &nbsp;    
      <input type="button" value="查询" onclick="check1()" class="hand" style="background-color: #D1D1D1; border-style: solid; border-width: 1"  >   
      &nbsp;&nbsp;&nbsp; <a href="G_mainexec.asp"><font size="2">返回</font></a>       
       
      </p>       
       
    </td>                                                                              
 </tr>                                                                             
</table>                                                                      
</form>      
        
</body>