g_stateshbrow.asp

一个很好的在线购物系统

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="526" height="30">                                                                                                                  
                                                                                                                        
  <tr>                                                                                                                                  
   <td bgcolor="#DDD2C4" width="79">               
               
    <p align="right">              
    业务员</td>               
   <td bgcolor="#DDD2C4" width="113">                                        
      <b>                                        
      <input type="text" name="ywy3" size="13" value="<%=Session("Stuffname")%>"  readonly style="background-color: #edefef" >                                        
                                        
      </b>                                        
                                        
   </td>                                                                                                              
                          
                                            
                                                                                                                           
    <td width="57" height="24" align="center" bgcolor="#DDD2C4">                                                                                                              
                                        
     <p align="right">                                        
     <font size="2">审核人                                        
     </font>                                        
                                        
     </p>                                        
                                        
     </td>                                                                                                                               
     <td width="259" height="24" align="center" bgcolor="#DDD2C4">                                                                                                              
        <%                            
         set shr=Server.CreateObject("ADODB.RecordSet")                            
         sql="select *  from A_StuffInfo where StuffNum='"&RSexsh("AssessorID")&"'"                            
         shr.open sql,Pubconn,1                            
         %>                                     
      <p align="left">                                        
      <b>                                        
      <input type="text" name="ywy2" size="13" value="<%=shr("Name")%>"  readonly style="background-color: #edefef" >                                        
                                        
      </b>                                        
                                        
      </p>                                        
                                        
     </td>                                                                                                                               
    </tr>                                        
                                                                        
                                                                                    
                                                                                                                                
  <tr>                                                                                            
                                                                                                                
                                                                                                                              
    <td width="79" height="23" align="right" bgcolor="#EDEBEC">评语</td>                                                                                                                 
      <td width="437" height="23" align="center" colspan="3" bgcolor="#EDEBEC"><font size="2">                                          
       </font>                                          
                                        
       <p align="left">                                        
       <textarea rows="4" name="S1" readonly style="background-color: #edefef"  cols="49" ><%=RSexsh("AssRemark")%></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_stateshbrow.asp?page=1">首页</a>&nbsp;<%if page>1 then %>                                                                                                                                              
   <a href="G_stateshbrow.asp?page=<%=(page-1)%>">上页</a>&nbsp;                                                                                                                                             
   <% else%>                                                                                                                                             
   上页&nbsp;                                                                                                                                             
  <%  end if%>                                                                                                                                             
    <%if page<RSexsh.pagecount then %>                                                                                                                                            
   <a href="G_stateshbrow.asp?page=<%=(page+1)%>">下页</a>&nbsp;                                                                                                                                             
   <% else %>                                                                                                                                            
   下页&nbsp;                                                                                                                                             
  <%end if%><a href="G_stateshbrow.asp?page=<%=RSexsh.pagecount%>">尾页</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_statedetail.asp">返回                                                                                                                                                   
 </form>                                
                                 
 <%                         
  shr.close                        
  set shr=nothing                               
  RSexsh.close                                 
 set RSexsh=nothing                                
 %>                                                                                                                                                      
<% end if %>                                                 
                                                 
                                              
                                                 
</a>                             
                                                 
                                              
                                                 
</body>