g_mainplan.asp

一个很好的在线购物系统

     <td width="65" height="24" align="center" bgcolor="#DDD2C4">                                                                              
      <font size="2">跟进方式                                                                              
      </font>                                                                              
     </td>                                                                                               
                                                                                                  
     <td width="52" height="24" align="center" bgcolor="#DDD2C4">跟进目的</td>                                                                                               
                                                                                                  
     <td width="61" height="24" align="center" bgcolor="#DDD2C4">审核状态</td>                                                                                              
                                    
     <td width="61" height="24" align="center" bgcolor="#DDD2C4">执行否</td>                                                                                              
                                    
  </tr>                                                                                             
                                                                                             
     <% for n=1  to RSzx.pagesize%>       
                  
       <%if  n mod 2=1 then                    
            bg="#f7f7f7"                      
       else                    
            bg="#EDEBEC"                     
       end if%>                                                                                 
                                                                                               
  <tr bgcolor="<%=bg%>">                                                           
                                                                                     
                                                                                             
    <td width="24" height="23" align="center">   
     <input type="checkbox" name="xz" value="<%=n%>"  <%if Rszx("AuditingYN")="Y" or  Rszx("ExecYN")="Y"  then   
        response.write("disabled")   
     end if    
        
     %>>   
     <input type="hidden" name="pid<%=n%>" value="<%=Rszx("ID")%>">   
   
      </td>                                                                                
                                                                                             
    <td width="67" height="23" align="center"><font size="2"></font><%=RSzx("CloseDate")%></td>                                                                                
      <td width="40" height="23" align="center"><font size="2"><%show(RSzx("PlanWeek"))%></td>                                                                                           
      <td width="73" height="23" align="center"><font size="2"><%=RSzx("CloseTime")%></td>   
                                                                                                 
      <td width="80" height="23" align="center"><font size="2"><a Href="G_clientInfo.asp?ClientID=<%=Rszx("ClientNum")%>"><%=khname(Rszx("ClientNum"))%></a>         
       </font>         
      </td>                                                                                           
      <td width="60" height="23" align="center"><font size="2"></font><%=RSzx("LinkMan")%>&nbsp;</td> 
                                                                                               
      <td width="59" height="23" align="center"><font size="2"></font><%= RSzx("ObjectDuty")%>&nbsp;</td>  
             
                                                                                                   
      <td width="65" height="23" align="center"><font size="2"></font><%=RSzx("CloseMode")%></td>                                                                                            
      <td width="52" height="23" align="center"><%=RSzx("ClosePurpose")%></td>                                                                                            
                                                                                
                                                                              
                                                                                           
                                                                                           
      <td width="61" height="23" align="center">
      <%
      
       if  RSzx("AuditingYN")="N"   then 
           response.write ("未审核") 
       end if 
      if  RSzx("AuditingYN")="YN"   then 
           response.write ("审核未通过") 
       end if
       if  RSzx("AuditingYN")="Y"   then 
           response.write ("已审核") 
       end if
          
      
      %>      </td>                                                                                            
                                                                                    
      <td width="61" height="23" align="center"><font size="2"></font><%    
        if Rszx("ExecYN")="Y" then  
             response.write ("执行")   
        else  
             response.write  ("未执行")  
        end  if   
             
      %></td>                                                                                            
                                                                                
                                                                              
                                                                                           
        
         
                                                                                                                                                                  
                                                                                
                                                                              
                                                                                           
                                                                                           
  </tr>                                                                               
  <%                                                                               
     RSzx.movenext                                                                               
     if RSzx.eof then exit for                                                                               
  next                                                                               
  %>                                                                                              
 </table>                                                                                              
                                                                             
<p align="center">                                                                            
<font size="2">                                                                                             
   共<%=RSzx.pagecount%>页&nbsp; 第<%=page%>页&nbsp;&nbsp;&nbsp;&nbsp; <a href="G_mainplan.asp?page=1">首页</a>&nbsp;<%if page>1 then %>                                                                                                                  
   <a href="G_mainplan.asp?page=<%=(page-1)%>">上页</a>&nbsp;                                                                                                                 
   <% else%>                                                                                                                 
   上页&nbsp;                                                                                                                 
  <%  end if%>                                                                                                                 
    <%if page<RSzx.pagecount then %>                                                                                                                
   <a href="G_mainplan.asp?page=<%=(page+1)%>">下页</a>&nbsp;                                                                                                                 
   <% else %>                                                                                                                
   下页&nbsp;                                                                                                                 
  <%end if%><a href="G_mainplan.asp?page=<%=RSzx.pagecount%>">尾页</a>&nbsp;&nbsp;</font>                      
 <%%>                       
                    
                                                                                                            
      <select  name="page1" style="width:80" size="1">                                
                                      
                      
       <% for o=1 to RSzx.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>                                                                             
<p align="left">                                                                               
<input type="button" value="新增" name="B1" onclick="location.href='G_plan.asp'" class="hand" style="background-color: #D1D1D1; border-style: solid; border-width: 1">     
       
&nbsp;<input type="submit" value="删除" name="B1" class="hand" style="background-color: #D1D1D1; border-style: solid; border-width: 1">     
 
&nbsp;<input type="button" value="明细查询" name="B1" onclick="location.href='G_plandetail.asp'" class="hand" style="background-color: #D1D1D1; border-style: solid; border-width: 1">     
 
&nbsp;<input type="button" value="统计查询" name="B1" onclick="location.href='G_plantj.asp'" class="hand" style="background-color: #D1D1D1; border-style: solid; border-width: 1">     
 
&nbsp;<input type="button" value="审核" name="B1" onclick="location.href='G_plansh.asp'" class="hand" style="background-color: #D1D1D1; border-style: solid; border-width: 1">     
</form>  
<% end if %>                
</body>