f_stuffinfo1.asp

一个很好的在线购物系统

                      
    </td>         
    <td width="214"  bgcolor="#F1E8DA">          
      &nbsp;&nbsp;&nbsp;&nbsp;                      
                      
    </td>                                                                                             
 </tr>        
               
                                                                                                          
</table>                  
 </center>        
</div>        
</form>                                                                                 
                                                                                         
 <%                          
 if rsxx.eof then%>                          
<center><b><p>                   
<font size="2">没有符合条件的记录！                     
</font>                     
</b></center>                            
                            
 <%else                                                                                              
   if request.querystring("page")<>"" then                                                                                             
   page=cint(request.querystring("page"))                                                                                            
else                                                                                            
   page=1                                                                                            
end if                                                                                            
                                                                                            
rsxx.pagesize=6                                                                                           
if page>=rsxx.pagecount then                                                                                            
   page=rsxx.pagecount                                                                                            
else                                                                                            
   if page<1 then                                                                                            
      page=1                                                                                            
   end if                                                                                            
end if                                                                                            
rsxx.absolutepage=page                                                                                            
                                                                                             
%>                              
                                                                                          
 <form name="myform" method="post" action="F_contract1.asp" target="main">                                                                                                          
<table border="1" cellspacing="0" width="100%" height="30" width="100%" width="100%">                                                                                              
                      
                                                                                             
  <tr>                                                                                                          
                                                                                              
     <td width="37" height="24" align="center" width="122" bgcolor="#DDD2C4">&nbsp;                                                                                            
     </td>                                                                                                             
    <td width="144" height="24" align="center" width="131" bgcolor="#DDD2C4">                                                                                           
     <font size="2">员工名称&nbsp;</font>                
     </td>                                                                                                         
    <td width="161" height="24" align="center" width="84" bgcolor="#DDD2C4">                                                                                        
     部门                 
     </td>                                                                                                         
                                                                                                          
  </tr>                                                                                                     
                                                                                                     
     <% for n=1  to rsxx.pagesize%>                         
                                                                                                  
      <%if  n mod 2=1 then                         
            bg="#f7f7f7"                           
       else                         
            bg="#EDEBEC"                          
       end if%>                                                                                                         
  <tr bgcolor="<%=bg%>">                                                                   
                                                                                               
                                                                                                     
    <td width="37" height="23" align="center" width="122">           
           
     <p align="left">          
     <font size="2"></font>            
     <input type="radio" value="<%=rsxx("StuffNum")%>" name="gcsxh">         
         
     </p>          
          
       </td>                                                                                       
      <td width="144" height="23" align="center" width="131"><font size="2"><%=rsxx("Name")%>                
       </font>                
    </td>  
    <%set rsbm=Server.CreateObject("ADODB.RecordSet")
      sql="select * from A_DepartInfo where departcode='"&rsxx("DepartCode")&"'"
      rsbm.open sql,Pubconn,1
      if not rsbm.eof then
         bmmc=rsbm("Name")
      else
         bmmc=rsxx("DepartCode")
      end if 
    
    %>          
     <td width="161" height="23" align="center" width="84"><font size="2"><%=bmmc%>  
      
       </font>                
    </td>                                                                                                    
       
                                                                                                  
  </tr>                                                                                      
  <%                                                                                      
     rsxx.movenext                                                                                      
     if rsxx.eof then exit for                                                                                      
  next                                                                                      
  %>          
  <input type="hidden" name="hth" value="<%=hth%>">   
                                                                                                                                            
 </table>          
                  
                                                                                                         
                                                                                                    
<p align="center">          
                                                                                                   
<font size="2">                                                                                                   
   共<%=rsxx.pagecount%>页&nbsp; 第<%=page%>页&nbsp;&nbsp;&nbsp;&nbsp; <a href="F_stuffInfo1.asp?page=1&hth<%=hth%>&bm=<%=bm%>&ygmc=<%=ygmc%>">首页</a>&nbsp;<%if page>1 then %>                                                                                                                           
   <a href="F_stuffInfo1.asp?page=<%=(page-1)%>&hth<%=hth%>&bm=<%=bm%>&ygmc=<%=ygmc%>">上页</a>&nbsp;                                                                                                                          
   <% else%>                                                                                                                          
   上页&nbsp;                                                                                                                          
  <%  end if%>                                                                                                                          
    <%if page<rsxx.pagecount then %>                                                                                                                         
   <a href="F_stuffInfo1.asp?page=<%=(page+1)%>&hth<%=hth%>&bm=<%=bm%>&ygmc=<%=ygmc%>">下页</a>&nbsp;                                                                                                                          
   <% else %>                                                                                                                         
   下页&nbsp;                                                                                                                          
  <%end if%><a href="F_stuffInfo1.asp?page=<%=rsxx.pagecount%>&hth<%=hth%>&bm=<%=bm%>&ygmc=<%=ygmc%>">尾页</a>&nbsp;&nbsp;</font>                               
 <%%>                                 
                               
                                                                                                                       
      <select  name="page1" style="width:80" size="1">                                          
       <% for count=1 to rsxx.pagecount%>                                                                  
         <option value="<%=count%>">第<%=count%>页</option>                              
       <%next%>                                                    
                                                            
      </select> <input type="button" value="GO" onclick="Gopage()" class="hand" style="background-color: #D1D1D1; border-style: solid; border-width: 1">&nbsp;&nbsp;                
  <p align="left">   <input type="button" value="确定" name="bb" onclick="winsub()" class="hand" style="background-color: #D1D1D1; border-style: solid; border-width: 1">                     
 </form>                                                                                                                             
<%               
    rsxx.close                
    set rsxx=nothing                
end if %>                         
                         
</body>