g_mainexec.asp

一个很好的在线购物系统

      </font>                                                                                  
     </td>                                                                                                   
                                                                                                      
     <td width="58" height="24" align="center" bgcolor="#DDD2C4">跟进目的</td>                                                                                                   
                                                                                                      
     <td width="58" height="24" align="center" bgcolor="#DDD2C4">执行情况</td>                                                                                                  
                                                                                                     
     <td width="58" height="24" align="center" bgcolor="#DDD2C4">状态</td>                                                                                                 
                                                                                                    
  </tr>                                                                                                
                                                                                                
     <% for n=1  to rstj.pagesize%>                    
        <%if  n mod 2=1 then                    
            bg="#f7f7f7"                      
       else                    
            bg="#EDEBEC"                     
       end if%>                                                                                                  
                                                                                                  
  <tr  bgcolor="<%=bg%>">                                                              
                                                                                    
                                                                                                
    <td width="19" height="23" align="center">      
     <input type="checkbox" name="xz" value="<%=n%>"   <%     
     if  rstj("Execsh")="Y" or rstj("ExecYN")="Y" then     
         response.write ("disabled")     
     end if      
          
     %>>     
     <input type="hidden"  value="<%=rstj("ID")%>" name="pid<%=n%>">     
     
      </td>                                                                                  
                                                                                               
    <td width="81" height="23" align="center"><font size="2"></font><%=rstj("CloseDate")%></td>                                                                                  
      <td width="61" height="23" align="center"><font size="2"><%show(rstj("PlanWeek"))%></td>                                                                                             
      <td width="81" height="23" align="center"><font size="2"><%=rstj("CloseTime")%></td>                                                                                             
      <td width="60" height="23" align="center"><font size="2"><a Href="G_ClientInfo.asp?ClientID=<%=rstj("ClientNum")%>" ><%=khname(rstj("ClientNum"))%></a>           
       </font>           
      </td>                                                                                             
      <td width="69" height="23" align="center"><font size="2"></font><%=rstj("LinkMan")%>&nbsp;</td>                                                                                             
      <td width="52" height="23" align="center"><font size="2"></font><%=rstj("ObjectDuty")%>&nbsp;</td>                                                                                              
      <td width="59" height="23" align="center"><font size="2"></font><%=rstj("CloseMode")%></td>                                                                                              
      <td width="58" height="23" align="center"><%=rstj("ClosePurpose")%></td>                                                                                              
                                                                                  
                                                                                
                                                                                             
                                                                                             
      <td width="58" height="23" align="center"><font size="2">     
      <%if  rstj("ExecYN")="Y"  then
            response.write "执行"
        else 
            response.write "未执行"
        end if 
      
      %>     
        
      </font></td>                                                                                              
                                                                                  
                                                                                
                                                                                             
                                                                                             
      <td width="58" height="23" align="center"><font size="2">     
      <%if  rstj("Execsh")="Y"  then
            response.write "已审核"
        end if 
        if  rstj("Execsh")="YN"  then
            response.write "审核未通过"
        end if 
        if  rstj("Execsh")="N"  then
            response.write "未审核"
        end if 

      %>     
         
      </font></td>                                                                                              
                                                                                  
                                                                                
                                                                                             
                                                                                             
  </tr>                                                                                 
  <%                                                                                 
     rstj.movenext                                                                                 
     if rstj.eof then exit for                                                                                 
  next                                                                                 
  %>                                                                                                
 </table>                                                                                                
                                                                               
<p align="center">                                                                              
<font size="2">                                                                                               
   共<%=rstj.pagecount%>页&nbsp; 第<%=page%>页&nbsp;&nbsp;&nbsp;&nbsp; <a href="G_mainexec.asp?page=1">首页</a>&nbsp;<%if page>1 then %>                                                                                                                   
   <a href="G_mainexec.asp?page=<%=(page-1)%>">上页</a>&nbsp;                                                                                                                  
   <% else%>                                                                                                                  
   上页&nbsp;                                                                                                                  
  <%  end if%>                                                                                                                  
    <%if page<rstj.pagecount then %>                                                                                                                 
   <a href="G_mainexec.asp?page=<%=(page+1)%>">下页</a>&nbsp;                                                                                                                  
   <% else %>                                                                                                                 
   下页&nbsp;                                                                                                                  
  <%end if%><a href="G_mainexec.asp?page=<%=rstj.pagecount%>">尾页</a>&nbsp;&nbsp;</font>                       
 <%%>                        
                     
                                                                                                             
      <select  name="page1" style="width:80" size="1">                                 
                                       
                       
       <% for o=1 to rstj.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="javascript:window.print()"><font 
size="2">打印</font></a>                                                                                                               
     
<br>     
<p align="left">                
 <input type="button" value="新增" name="B1" onclick="location.href='G_exec.asp'" class="hand" style="background-color: #D1D1D1; border-style: solid; border-width: 1">    
  
&nbsp;<input type="submit" value="删除" name="aa"  class="hand" style="background-color: #D1D1D1; border-style: solid; border-width: 1">                 
           
&nbsp;<input type="button" value="明细查询" name="B1" onclick="location.href='G_execdetail.asp'" class="hand" style="background-color: #D1D1D1; border-style: solid; border-width: 1">    

&nbsp;<input type="button" value="统计查询" name="B1" onclick="location.href='G_exectj.asp'" class="hand" style="background-color: #D1D1D1; border-style: solid; border-width: 1">    

&nbsp;<input type="button" value="审核" name="B1" onclick="location.href='G_execsh.asp'" class="hand" style="background-color: #D1D1D1; border-style: solid; border-width: 1">    


 </form>           
     
           
<% end if %>         
               
</body>