该系统可对信息系统尽行有效的分类管理

				
				
				
				
				
				
								dim sql,objRS,objRS_path
				dim sortid
				dim i
				dim thispath
				dim pagecount,currpage,Spage,Epage,recordcount,logo,siteabout
				
				sortid = Request.QueryString("sortid")
				currpage = request.querystring("currpage")
				if sortid = "" or not IsNumeric(sortid) then
				    Response.Write("错误参数")
				    Response.End
				else
				    sql = "select * from sort where parentID = " & Clng(sortid)
				    Set objRS = Server.CreateObject("ADODB.RecordSet")
				    objRS.Open sql,objConn,3,1
				    sql = "select * from pathform where thispath like '%" & sortid & "'"
				    Set objRS_path = objConn.Execute(sql)
				    if not objRS_path.EOF then thispath = GetPath(objRS_path("thispath"),objRS_path("pathname"),FALSE)
				end if
				if currpage = "" or IsNull(currpage) then currpage = 1
				if not IsNumeric(currpage) then currpage = 1
				currpage = Cint(currpage)
				%>
				
				
				
				
				发布分类信息
				
				
				
				
				
								function MM_reloadPage(init) {  //reloads the window if Nav4 resized
				  if (init==true) with (navigator) {if ((appName=="Netscape")&&(parseInt(appVersion)==4)) {
				    document.MM_pgW=innerWidth; document.MM_pgH=innerHeight; onresize=MM_reloadPage; }}
				  else if (innerWidth!=document.MM_pgW || innerHeight!=document.MM_pgH) location.reload();
				}
				MM_reloadPage(true);
				//-->
				
				
				
				
				
				
				  
				    
				        　发布分类信息
				      分类信息>>发布信息>>选择分类>> 
				        
				      
				      
				         
				           
				             
				              						if instr(objRS_path("thispath"),chr(44))  0 then Response.Write("点击将分类信息发布在这个类目")
						%>
				            
				             
				              				            
				            
				              
				               
				                 
				                    
				                  
				                
				                 
				                  
				                  
				                    
				                  
				                  
				                  
				                
				                 
				                  
				                  
				                    
				                  
				                  
				                  
				                
				              
				              
				            
				              
				        
				      
				    
				  
				
				
				       
								objConn.Close()
				Set objRS = nothing
				Set objRS_path = nothing
				Set objConn = nothing
				%>