g_lostshbrow.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="100%" 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" value="<%=rsplan("closemonth")%>" Readonly style="background-color: #edefef" >                                              
                                              
     </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">                                                                                                                    
                                              
      <p align="left">                                              
      <%                         
      set shr=Server.CreateObject("ADODB.RecordSet")                         
      sql="select * from A_StuffInfo where StuffNum='"&RSplan("AssessorID")&"'"                         
      shr.open sql,Pubconn,1      %>                              
      <input type="text" name="ywy2" size="13" value="<%=shr("Name")%>"  Readonly bgcolor="#F1E8DA" style="background-color: #edefef" >                                               
                                               
      </p>                                               
                                               
     </td>                                                                                                                                      
    </tr>                                               
                                                                               
                                                                                           
                                                                                                                                       
  <tr>                                                                                                   
                                                                                                                       
                                                                                                                                     
    <td width="77" height="23" align="right" bgcolor="#EDEBEC">               
    评 语</td>                                                                                                                       
      <td width="506" height="23" align="center" colspan="3" bgcolor="#EDEBEC">                                                
                                              
       <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_lostshbrow.asp?page=1&weekid=<%=wid%>">首页</a>&nbsp;<%if page>1 then %>                                                                                                                                                     
   <a href="G_lostshbrow.asp?page=<%=(page-1)%>&weekid=<%=wid%>">上页</a>&nbsp;                                                                                                                                                    
   <% else%>                                                                                                                                                    
   上页&nbsp;                                                                                                                                                    
  <%  end if%>                                                                                                                                                    
    <%if page<RSplan.pagecount then %>                                                                                                                                                   
   <a href="G_lostshbrow.asp?page=<%=(page+1)%>&weekid=<%=wid%>">下页</a>&nbsp;                                                                                                                                                    
   <% else %>                                                                                                                                                   
   下页&nbsp;                                                                                                                                                    
  <%end if%><a href="G_lostshbrow.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()">&nbsp;&nbsp; <a href="G_lostdetail.asp">返回                                                                                                                                                       
 </form>                                                                                                                                                        
<%                            
shr.close                           
set shr=nothing                                 
rsplan.close                                 
set rsplan=nothing                                 
end if %>                                                    
                                                    
</a>                                                   
                                                    
</body>