g_planshbrow.asp

一个很好的在线购物系统

   if page<1 then                                                                                                             
      page=1                                                                                                             
   end if                                                                                                             
end if                                                                                                             
RSplan.absolutepage=page                                                                                                             
                                                                                                              
%>                                               
                                                                                                            
                                                                                                                          
<% for n=1  to RSplan.pagesize%>                                                    
                                                                                                                                                                  
<div align="center">              
 <center>                                                
                                                                                                                                                                 
<table border="1" cellspacing="0" width="92%" height="30">                                                                                                               
                                                                                                                     
  <tr>                                                                                                                               
                                                                                                               
     <td width="77" height="24" align="right" bgcolor="#DDD2C4">                                                                                                             
      <font size="2">计划周次                                      
      </font>                                      
     </td>                                                                                                                              
    <td width="155" height="24" align="center" bgcolor="#DDD2C4">                                                                                                            
                                      
     <p align="left">                                      
      <b>                                      
      <input type="text" name="ywy1" size="17" value="<%=rsplan("closeweek")%>" style="background-color: #edefef" Readonly>                                      
                                      
      </b>                                      
                                      
     </td>                                       
                                          
                                                                                                                         
    <td width="114" height="24" align="center" bgcolor="#DDD2C4">                                                                                                            
                                      
     <p align="right">                                      
     <font size="2">审核人                                      
     </font>                                      
                                      
     </p>                                      
                                      
     </td>                                                                                                                             
     <td width="237" height="24" align="center" bgcolor="#DDD2C4" >                                                                                                            
         <%                        
         set shr=Server.CreateObject("ADODB.RecordSet")                        
         sql="select StuffNum,name  from A_StuffInfo where StuffNum='"&RSplan("AssessorID")&"'"                        
         shr.open sql,Pubconn,1                        
         %>                             
      <p align="left">                                      
      <b>                                      
      <input type="text" name="ywy2" size="13" value="<%=shr("Name")%>" style="background-color: #edefef"  Readonly>                                      
                           
                                      
     </td>                                                                                                                             
    </tr>                                      
                                                                      
                                                                                  
                                                                                                                              
  <tr>                                                                                          
                                                                                                              
                                                                                                                            
    <td width="77" height="23" align="right" bgcolor="#EDEBEC">评语</td>                                                                                                               
      <td width="506" height="23" align="center" colspan="3" bgcolor="#EDEBEC"><font size="2">                                        
       </font>                                        
                                      
       <p align="left">                                      
       <textarea rows="4" name="S1" Readonly cols="49" style="background-color: #edefef"><%=rsplan("AssRemark")%></textarea>                                        
      </td>                                                                                                                          
                                                                                                  
                                                                                                             
                                                                                                                          
                                                                                                                          
  </tr>                                                                                                              
  <%                                                                                                              
     RSplan.movenext                                                                                                              
     if RSplan.eof then exit for                                                                                                              
  next                                                                                                              
  %>                                                                                                                             
 </table>                                                                                                                             
                                                                                                            
 </center>              
</div>              
                                                                                                            
<p align="center">                                                                                                           
<font size="2">                                                                                                                            
   共<%=RSplan.pagecount%>页&nbsp; 第<%=page%>页&nbsp;&nbsp;&nbsp;&nbsp; <a href="G_planshbrow.asp?page=1&weekid=<%=wid%>">首页</a>&nbsp;<%if page>1 then %>                                                                                                                                             
   <a href="G_planshbrow.asp?page=<%=(page-1)%>&weekid=<%=wid%>">上页</a>&nbsp;                                                                                                                                            
   <% else%>                                                                                                                                            
   上页&nbsp;                                                                                                                                            
  <%  end if%>                                                                                                                                            
    <%if page<RSplan.pagecount then %>                                                                                                                                           
   <a href="G_planshbrow.asp?page=<%=(page+1)%>&weekid=<%=wid%>">下页</a>&nbsp;                                                                                                                                            
   <% else %>                                                                                                                                           
   下页&nbsp;                                                                                                                                            
  <%end if%><a href="G_planshbrow.asp?page=<%=RSplan.pagecount%>&weekid=<%=wid%>">尾页</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_plandetail.asp">返回                                                                                                                                               
 </form>                       
 <%                        
     shr.close                        
     set shr=nothing                        
     rsplan.close                       
     set rsplan=nothing                       
                                     
 %>                                       
                       
                                                                                                                                               
<% end if %>                                           
                                           
</a>                                          
                                           
</body>