ÿþ 
 f u n c t i o n   V a l i d a t e C h e c k ( c n t r )  
 {  
         i f ( t h i s . c h e c k e d = = t r u e )   C h e c k A l l ( t h i s . f o r m , 1 , ' c h k O b j e c t C h e c k ' ) ;   e l s e   C h e c k A l l ( t h i s . f o r m , 0 , ' c h k O b j e c t C h e c k ' ) ;  
 }  
  
 / /   p F i l e   :   f o r m   o b j e c t  
 / /   p V a l u e   :   t r u e   v a l u e   f o r   c h e c k    
 / /                     f a l s e   v a l u e   f o r   u n c h e c k  
 / /   p O b j N a m e   :   n a m e   o f   n e e d e d   c h e c k b o x   c o n t r o l  
 f u n c t i o n   C h e c k A l l ( p F i e l d , p V a l u e ,   p O b j N a m e )  
 {        
         v a r   l S t r = " " ;  
         v a r   o b j ;  
         f o r ( v a r   i = 0 ;   i < p F i e l d . l e n g t h ;   i + + )  
         {  
                 o b j   =   p F i e l d [ i ] ;  
                 i f ( o b j . t y p e = = " c h e c k b o x " )  
                 {  
                         i f ( o b j . n a m e . l a s t I n d e x O f ( p O b j N a m e )   > =   0 )     o b j . c h e c k e d   =   p V a l u e ;  
                 }  
         }                  
 }  
  
 / /   p O b j N a m e   :   n a m e   o f   n e e d e d   c h e c k b o x   c o n t r o l  
 f u n c t i o n   d e l e t e O b j ( p O b j N a m e , p M e s s a g e )  
 {        
         i f ( p O b j N a m e   = =   " " )  
         {  
                 i f ( p M e s s a g e )  
                         r e t u r n   c o n f i r m ( p M e s s a g e ) ;  
                 e l s e    
                         r e t u r n   t r u e ;          
         }  
         e l s e  
         {  
                 i f ( c h e c k S e l e c t i o n ( p O b j N a m e ) )  
                         i f ( p M e s s a g e )  
                                 r e t u r n   c o n f i r m ( p M e s s a g e ) ;  
                         e l s e    
                                 r e t u r n   t r u e ;  
                 e l s e  
                         {        
                                  
                                 a l e r t ( ' P l e a s e   c h o o s e   i t e m ' ) ;  
  
                                 r e t u r n   f a l s e ;  
                         }  
         }  
 }  
  
  
 / /   p O b j N a m e   :   n a m e   o f   n e e d e d   c h e c k b o x   c o n t r o l  
 f u n c t i o n   C h a n g e S t a t u s ( p O b j N a m e , p M e s s a g e , l a n g )  
 {       i f ( c h e c k R a d i o S e l e c t i o n ( p O b j N a m e ) )  
                 i f ( p M e s s a g e )  
                         r e t u r n   c o n f i r m ( p M e s s a g e ) ;  
                 e l s e    
                         r e t u r n   t r u e ;  
         e l s e  
                 {    
                         a l e r t ( ' P l e a s e   c h o o s e   i t e m ' ) ;  
                         r e t u r n   f a l s e ;        
                                
                 }  
         r e t u r n   f a l s e ;  
 }  
 / /   p O b j N a m e   :   n a m e   o f   n e e d e d   c h e c k b o x   c o n t r o l  
 f u n c t i o n   c h e c k S e l e c t i o n ( p O b j N a m e )  
 {  
         v a r   o b j ;  
         v a r   f l a g   =   f a l s e ;  
         v a r   l F o r m O b j ;  
         l F o r m O b j   =   d o c u m e n t . f o r m s [ 0 ]  
         f o r ( v a r   i = 0 ;   i < l F o r m O b j . e l e m e n t s . l e n g t h   & &   ! f l a g ;   i + + )  
         {  
                 o b j   =   l F o r m O b j . e l e m e n t s [ i ] ;  
                 i f ( o b j . t y p e = = " c h e c k b o x " )  
                         i f ( o b j . n a m e . l a s t I n d e x O f ( p O b j N a m e )   > =   0   & &   o b j . c h e c k e d )  
                                 f l a g   =   t r u e ;  
                                          
         }  
         r e t u r n   f l a g ;  
   }  
    
   / /   p O b j N a m e   :   n a m e   o f   n e e d e d   c h e c k b o x   c o n t r o l  
 f u n c t i o n   c h e c k R a d i o S e l e c t i o n ( p O b j N a m e )  
 {  
         v a r   o b j ;  
         v a r   f l a g   =   f a l s e ;  
         v a r   l F o r m O b j ;  
         l F o r m O b j   =   d o c u m e n t . f o r m s [ 0 ]  
         f o r ( v a r   i = 0 ;   i < l F o r m O b j . e l e m e n t s . l e n g t h   & &   ! f l a g ;   i + + )  
         {  
                 o b j   =   l F o r m O b j . e l e m e n t s [ i ] ;  
                 i f ( o b j . t y p e = = " r a d i o " )  
                         i f ( o b j . n a m e . l a s t I n d e x O f ( p O b j N a m e )   > =   0   & &   o b j . c h e c k e d )  
                                 f l a g   =   t r u e ;  
                                          
         }  
         r e t u r n   f l a g ;  
   }  
    
 / /   g e t   a l l   o f   i d   o f   c h e c k e d   c h e c k b o x   c o n t r o l  
 / /   p O b j N a m e   :   n a m e   o f   n e e d e d   c h e c k b o x   c o n t r o l  
         f u n c t i o n   c h a n g e S t a t u s ( p O b j N a m e )  
         {        
                 i f ( c h e c k S e l e c t i o n ( p O b j N a m e ) )  
                 {       v a r   l F o r m O b j ;  
                         v a r   l L s t I D s   =   " " ;  
                         l L s t I D s   =   g e t S e l e c t e d I D ( p O b j N a m e ) ;  
                         l F o r m O b j   =   d o c u m e n t . f o r m s [ 0 ] ;  
                         L s t I D s O b j   =   d o c u m e n t . g e t E l e m e n t B y I d ( " L s t I D s " ) ;  
                         L s t I D s O b j . v a l u e   =   l L s t I D s ;  
                         r e t u r n   t r u e ;  
                 }  
                 e l s e  
                 {  
                         r e t u r n   a l e r t ( " P l e a s e   c h o o s e   i t e m s   ! ! ! ! ! ! " ) ;  
                                              
                 }  
         }  
          
         f u n c t i o n   g e t S e l e c t e d I D ( p O b j N a m e )  
         {  
                 v a r   o b j ;  
                 v a r   l R e s u l t   =   " " ;  
                 v a r   l F o r m O b j ;  
                 l F o r m O b j   =   d o c u m e n t . f o r m s [ 0 ]  
                 f o r ( v a r   i = 0 ;   i < l F o r m O b j . e l e m e n t s . l e n g t h ;   i + + )  
                 {  
                         o b j   =   l F o r m O b j . e l e m e n t s [ i ] ;  
                         i f ( o b j . t y p e = = " c h e c k b o x " )  
                                 i f ( o b j . n a m e . l a s t I n d e x O f ( p O b j N a m e )   > =   0   & &   o b j . c h e c k e d )  
                                         l R e s u l t   + =   o b j . v a l u e   +   " , " ;  
                                                  
                 }  
                 i f ( l R e s u l t . l e n g t h   >   0 )  
                         l R e s u l t   =   l R e s u l t . s u b s t r i n g ( 0 , l R e s u l t . l e n g t h - 1 )  
                 r e t u r n   l R e s u l t ;  
 }  
 f u n c t i o n   c h e c k S e l e c t i o n L i s t b o x ( )  
 {        
         i f ( ' u n d e f i n e d ' = = = t y p e o f   L i s t b o x )  
         L i s t b o x   =   d o c u m e n t . g e t E l e m e n t B y I d ( " l s t R o l e " ) ;  
         e l s e   {  
                 i f (   L i s t b o x = = n u l l )  
                         L i s t b o x   =   d o c u m e n t . g e t E l e m e n t B y I d ( " l s t R o l e " ) ;  
         }  
          
         v a r   f l a g   =   f a l s e ;  
         f o r   ( v a r   i   =   0 ;   i   <   L i s t b o x . o p t i o n s . l e n g t h ;   i + + )    
             {  
                 i f ( L i s t b o x . o p t i o n s [ i ] . s e l e c t e d   )  
                 {  
                           / / a l e r t ( f l a g ) ;    
                         f l a g = t r u e ;  
                 }  
               }  
  
         r e t u r n   f l a g ;  
          
   }  
   f u n c t i o n   A s i g n ( p O b j N a m e , p M e s s a g e )  
 {       i f ( c h e c k S e l e c t i o n ( p O b j N a m e ) )  
                 {      
                 i f ( c h e c k S e l e c t i o n L i s t b o x ( ) )    
                         {        
                         i f ( p M e s s a g e )  
                                 r e t u r n   c o n f i r m ( p M e s s a g e ) ;  
                         e l s e    
                                 r e t u r n   t r u e ;  
                         }  
                         e l s e  
                         {  
                                 a l e r t ( " P l e a s e   c h o o s e   p e r m i s s i o n   ! ! ! " ) ;  
                                         r e t u r n   f a l s e ;  
                         }  
                   }        
         e l s e  
                 {        
                         a l e r t ( " P l e a s e   c h o o s e   u s e r   ! ! ! " ) ;  
                         r e t u r n   f a l s e ;  
                 }  
 }  
 f u n c t i o n   s h o w D a t e V N ( )   {  
 / /   v a r i a b l e s   d e c l a r a t i o n  
 v a r   d t = n e w   D a t e ( ) ;  
 v a r   s t r M o n t h   =   n e w   A r r a y ( " 0 1 " , " 0 2 " , " 0 3 " , " 0 4 " , " 0 5 " , " 0 6 " , " 0 7 " , " 0 8 " , " 0 9 " , " 1 0 " , " 1 1 " , " 1 2 " ) ;  
 v a r   s t r D a y   =   n e w   A r r a y ( " C h ç  N h ­t " , " T h é  H a i " , " T h é  B a " , " T h é  T °" , " T h é  N m " , " T h é  S á u " , " T h é  B £y " ) ;  
 v a r   d a t e = s t r D a y [ d t . g e t D a y ( ) ]   +   " ,   " ;  
 v a r   y e a r s =   d t . g e t Y e a r ( ) ;  
 i f   ( y e a r s < 1 9 0 0 )   y e a r s + =   1 9 0 0 ;  
 r e t u r n   ( d a t e   + =   " n g à y   " + d t . g e t D a t e ( ) + "   t h á n g     " + s t r M o n t h [ d t . g e t M o n t h ( ) ]   +   "   n m   " + y e a r s ) ;  
 }  
 
