蓝芒3.0A最新所有功能完整破解版

				
				
								Call PrintPageHead
				%>
				
				
								function CheckAll()
				{  
					//检查非空
					if (!CheckEmpty(addform.LevelCode, "级别代号"))			return false;
					if (!CheckEmpty(addform.LevelName, "级别名称"))			return false;   
					if (!CheckEmpty(addform.DispSeq, "显示顺序"))			return false; 
					if (!CheckInteger(addform.DispSeq, "显示顺序"))			return false; 
					//全部通过
					submitonce(addform);
					return true;
				}
				-->
				
								strSQL="Select * from T_DNS_UserLevel order by DispSeq"
				Set Rs= Server.CreateObject("ADODB.Recordset")
				Rs.open strSQL,Cn,1,1
				
				If Rs.Eof Then
					Response.Write "目前还没有角色信息！"
				else
				
				%>
				      
				
				   
				    级别管理
				  
				   
				    
				       
				         
				          级别代号
				          级别名称
				          显示序号
				          操作
				        
									i=0
					Do While Not Rs.Eof
					if i mod 2 =0 Then %>
				     
				     
				     
				     
				          
				            
				             
				            
				            
				            
				            
				            
				            
				          
				        
				        						i=i+1
						Rs.MoveNext
					Loop
					Rs.Close
					Cn.Close
				%>
				      
								end if
				%>
					
				  
				   
				     
				  
				   
				    添加新级别
				  
				  
				    
				        
				          
				          
				            级别代号
				            
				            * 请参考上面的代码，请勿重复
				            
				          
				          
				            级别名称
				            
				            
				          
				          
				            显示序号
				            
				            
				          
				          
				          
				            
				            
				          
				        
				        
				      
				  
				
				
								Call PrintPageBottom
				%>