适用于网络/信息企业

				
				
				
				
				
				
				亿博尔
				
				
				
								DIM id
				ID=Trim(Request.QueryString("ID"))
				%>
				
				  
				    
				        
				          
				              
				                
				                管理中心 >>> 
				                											set rs=server.createobject("adodb.recordset")
					                        sql="select * from MenuClass where ID="& ID
					                        rs.open sql,Conn,1,1
											if not(rs.eof and rs.bof) then
											response.write (rs("Class"))
											end if
											rs.close
											set rs=nothing
											
											%>
				                
				                 
				              
				          
				        
				    
				  
				
				
				  
				    
				        
				          
				            
				              
				                ID
				                排序
				                名称
				                方式
				                状态
				                连接
				                修改
				              
				              				set rs=server.createobject("adodb.recordset")
					sql="select * from menu where Class="& ID
					rs.open sql,conn,1,1
					if not(rs.bof and rs.eof) then
					rs.PageSize =15
					%>
					
				              
				                
				                
				                
				                
				                
				                  正常
				                    
				                    锁定
				                    
				                
				                修改|删除
				              
				              							rs.movenext
							next
							end if                                                            
				           %>
				            
				        
				      
				        
				          
				             
				            
				              							call PageControl(iCount,maxpage,page)
							rs.close
							set rs=nothing
							Conn.Close
							Set Conn = Nothing
							%>