这是我根据动网新闻核心自行设计的校园新闻系统

								pageadmin=10
				%>
				
				
				
				
									dim deep
					dim categorytype
					categorytype="新闻"
					deep=0
					dim ct
					set ct=new LBCategory
					ct.CategoryType=categorytype
					dim ctlist
					ctlist=ct.list("-1")
					set ct=nothing
					
				%>
				
				
				
				
				
				
				
					
						
							新闻类别管理
						
						
							　
						
					
				
				
					
				
						 根目录 　添加一级分类  
						
						删除所有类别
					
					
					
					
					
						
						
							
								　 
								上移 下移
								 
						 
													添加下级分类 
								
						设置 
						删除
							
						
						
					
					
				
				
				
				function delall()
				{
					var ch;
					ch=window.confirm("是否删除所有类别？");
					if (ch)
					{
						location.href="category_save.asp?action=del&id=-1&categorytype=&deep=";
					}
					
				}
				function del(categoryid)
				{
					var ch;
					ch=window.confirm("是否删除该类别以及下面的所有类别？");
					if (ch)
					{
						location.href="category_save.asp?action=del&id="+categoryid+"";
					}
				}
				function add(id)
				{
				var a=window.showModalDialog("category_add_dialog.asp?id="+id,"","dialogHeight: 270px; dialogWidth: 320px; center: Yes; status: No;");
				location.reload();
				}
				function config(id)
				{
				var a=window.showModalDialog("category_modify_dialog.asp?id="+id,"","dialogHeight: 200px; dialogWidth: 320px; center: Yes; status: No;");
				location.reload();
				}
				
				
								conn.close
				set conn=nothing
				%>