g_execshbrow.asp

一个很好的在线购物系统

   if request.querystring("page")<>"" then                                                                                                                   
   page=cint(request.querystring("page"))                                                                                                                  
else                                                                                                                  
   page=1                                                                                                                  
end if                                                                                                                  
                                                                                                                  
RSexsh.pagesize=4                                                                                                                
if page>=RSexsh.pagecount then                                                                                                                  
   page=RSexsh.pagecount                                                                                                                  
else                                                                                                                  
   if page<1 then                                                                                                                  
      page=1                                                                                                                  
   end if                                                                                                                  
end if                                                                                                                  
RSexsh.absolutepage=page                                                                                                                  
                                                                                                                   
%>                                                    
                                                                                                                 
                                                                                                                               
<% for n=1  to RSexsh.pagesize%>                                                        
                                                                                                                                                                       
<table border="1" cellspacing="0" width="601" 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">                                            
      <input type="text" name="ywy1" size="17" readonly  value="<%=RSexsh("closeweek")%>" style="background-color: #edefef" Readonly>                                            
                                            
     </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 name  from A_StuffInfo where StuffNum='"&RSexsh("execshr")&"'"                              
         shr.open sql,Pubconn,1                              
         %>                                   
                                    
      <p align="left">                                            
      <input type="text" name="ywy2" size="13" value="<%=shr("Name")%>" style="background-color: #edefef"  Readonly>                                            
                                            
      </p>                                            
                                            
     </td>                                                                                                                                   
    </tr>                                            
                                                                            
                                                                                        
                                                                                                                                    
  <tr>                                                                                                
                                                                                                                    
                                                                                                                                  
    <td width="77" height="23" align="right"  bgcolor="#EDEBEC" >评&nbsp; 语</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"><%=RSexsh("ExecRemark")%></textarea>                                             
      </td>                                                                                                                               
                                                                                                       
                                                                                                                  
                                                                                                                               
                                                                                                                               
  </tr>                                                                                                                   
  <%                                                                                                                   
     RSexsh.movenext                                                                                                                   
     if RSexsh.eof then exit for                                                                                                                   
  next                                                                                                                   
  %>                                                                                                                                  
 </table>                                                                                                                                  
                                                                                                                 
<p align="center">                                                                                                                
<font size="2">                                                                                                                                 
   共<%=RSexsh.pagecount%>页&nbsp; 第<%=page%>页&nbsp;&nbsp;&nbsp;&nbsp; <a href="G_execshbrow.asp?page=1&weekid=<%=wid%>">首页</a>&nbsp;<%if page>1 then %>                                                                                                                                                 
   <a href="G_execshbrow.asp?page=<%=(page-1)%>&weekid=<%=wid%>">上页</a>&nbsp;                                                                                                                                                
   <% else%>                                                                                                                                                
   上页&nbsp;                                                                                                                                                
  <%  end if%>                                                                                                                                                
    <%if page<RSexsh.pagecount then %>                                                                                                                                               
   <a href="G_execshbrow.asp?page=<%=(page+1)%>&weekid=<%=wid%>">下页</a>&nbsp;                                                                                                                                                
   <% else %>                                                                                                                                               
   下页&nbsp;                                                                                                                                                
  <%end if%><a href="G_execshbrow.asp?page=<%=RSexsh.pagecount%>&weekid=<%=wid%>">尾页</a>&nbsp;&nbsp;</font>                                                     
 <%%>                                                        
                                                    
                                                                                                                                            
      <select  name="page1" style="width:80" size="1">                                                                 
                                                                      
                                                      
       <% for o=1 to RSexsh.pagecount%>                                                                                       
         <option value="<%=o%>">第<%=o%>页</option>                                                              
       <%next%>                                                                                    
                                                                                            
      </select> <input type="button" value="GO" onclick="Gopage()">&nbsp;&nbsp; <a href="G_execdetail.asp">返回                                                                                                                                                   
 </form>                               
                                
 <%                           
  shr.close                         
  set shr=nothing                             
  RSexsh.close                                
 set RSexsh=nothing                               
 %>                                                                                                                                                     
<% end if %>                                                
                                                
                                             
                                                
</body>