ÿþ< ! - -  
 f u n c t i o n   l t r i m ( s t r )  
 {  
 	 f o r   ( i = 0 ;   i < s t r . l e n g t h ;   i + + )  
 	 	 i f   ( s t r . c h a r A t ( i ) ! = "   " )   b r e a k ;  
 	 r e t u r n   s t r . s u b s t r ( i ) ;  
 }  
  
 f u n c t i o n   r t r i m ( s t r )  
 {  
 	 f o r   ( i = s t r . l e n g t h - 1 ;   i > - 1 ;   i - - )  
 	 	 i f   ( s t r . c h a r A t ( i ) ! = "   " )   b r e a k ;  
 	 r e t u r n   s t r . s u b s t r ( 0 ,   i + 1 ) ;  
 }  
  
 f u n c t i o n   t r i m ( s t r )  
 {  
 	 r e t u r n   l t r i m ( r t r i m ( s t r ) ) ;  
 }  
  
 f u n c t i o n   c h e c k D a t e ( s )   {  
 	 v a r   i 1   =   s . i n d e x O f ( " / " ) ;  
 	 i f   ( i 1 < 0 )   r e t u r n   f a l s e ;  
 	 v a r   i 2   =   s . i n d e x O f ( " / " , i 1 + 1 ) ;  
 	 i f   ( i 2 < 0 )   r e t u r n   f a l s e ;  
 	 v a r   d d   =   s . s u b s t r ( 0 ,   i 1 ) ;  
 	 v a r   m m   =   s . s u b s t r ( i 1 + 1 ,   i 2 - ( i 1 + 1 ) ) ;  
 	 v a r   y y   =   s . s u b s t r ( i 2 + 1 ) ;  
  
 	 i f   ( ! c h e c k I n t ( d d ) )   r e t u r n   f a l s e ;  
 	 i f   ( ! c h e c k I n t ( m m ) )   r e t u r n   f a l s e ;  
 	 i f   ( ! c h e c k I n t ( y y ) )   r e t u r n   f a l s e ;  
  
 	 d   =   d d . v a l u e O f ( ) ;  
 	 m   =   m m . v a l u e O f ( ) ;  
 	 y   =   y y . v a l u e O f ( ) ;  
  
 	 i f   ( ( m < 1 )   | |   ( m > 1 2 ) )   r e t u r n   f a l s e ;  
 	 i f   ( y < 1 )   r e t u r n   f a l s e ;  
 	 v a r   l e a p y e a r = (   ( y   %   4 ) = = 0   ) ;  
 	 v a r   m a x d a y = 0 ;  
  
 	 m a x d a y = 3 1 ;  
 	 i f   ( ( m = = 4 )   | |   ( m = = 6 )   | |   ( m = = 9 )   | |   ( m = = 1 1 ) )  
 	 	 m a x d a y = 3 0 ;  
 	 i f   ( m = = 2 )  
 	 	 m a x d a y = ( l e a p y e a r ) ? 2 9 : 2 8 ;  
  
 	 i f   ( ( d d . v a l u e O f ( ) < 1 )   | |   ( d d . v a l u e O f ( ) > m a x d a y ) )   r e t u r n   f a l s e ;  
 	 r e t u r n   t r u e ;  
 }  
  
 f u n c t i o n   d a t e U T C ( s )   {  
 	 v a r   i 1   =   s . i n d e x O f ( " / " ) ;  
 	 v a r   i 2   =   s . i n d e x O f ( " / " , i 1 + 1 ) ;  
 	 v a r   d d   =   s . s u b s t r ( 0 ,   i 1 ) ;  
 	 v a r   m m   =   s . s u b s t r ( i 1 + 1 ,   i 2 - ( i 1 + 1 ) ) ;  
 	 v a r   y y   =   s . s u b s t r ( i 2 + 1 ) ;  
 	 r e t u r n   D a t e . U T C ( y y ,   m m - 1 ,   d d ) ;  
 }  
  
 f u n c t i o n   l e s s D a t e ( s 1 ,   s 2 )   {  
 	 r e t u r n   ( d a t e U T C ( s 1 )   < =   d a t e U T C ( s 2 ) ) ;  
 }  
 f u n c t i o n   S o S a n h N g a y ( d 1 , d 2 ) {  
 	 d t e s t 1   =   n e w   D a t e ( f o r m a t N g a y ( d 1 ) ) ;  
 	 d t e s t 2   =   n e w   D a t e ( f o r m a t N g a y ( d 2 ) ) ;  
 	 	 y 1 = d t e s t 1 . g e t F u l l Y e a r ( )  
 	 	 y 2 = d t e s t 2 . g e t F u l l Y e a r ( )  
 	 	 m 1 = d t e s t 1 . g e t M o n t h ( )  
 	 	 m 2 = d t e s t 2 . g e t M o n t h ( )  
 	 	 d 1 = d t e s t 1 . g e t D a t e ( )  
 	 	 d 2 = d t e s t 2 . g e t D a t e ( )  
 	 	 i f   ( y 1   <   y 2 )  
 	 	 	 r e t u r n   f a l s e ;  
 	 	 i f   ( y 1   = =   y 2 )  
 	 	 {  
 	 	 i f   ( m 1   <   m 2 )  
 	 	 	 r e t u r n   f a l s e ;  
 	 	 i f   ( m 1   = =   m 2 )  
 	 	 	 i f   ( d 1   <   d 2 )  
 	 	 	 	 r e t u r n   f a l s e ;  
 	 	 }  
 	 r e t u r n   t r u e ;  
 }  
 f u n c t i o n   c h e c k I n t ( c h e c k S t r )   {  
 	 i f   ( c h e c k S t r . l e n g t h   <   0 )   r e t u r n   f a l s e ;  
 	 v a r   c h e c k O K   =   " 0 1 2 3 4 5 6 7 8 9 " ;  
 	 f o r   ( i = 0 ;   i < c h e c k S t r . l e n g t h ;   i + + )   {  
 	 	 c h   =   c h e c k S t r . c h a r A t ( i ) ;  
 	 	 i f   ( c h e c k O K . i n d e x O f ( c h )   <   0 )  
 	 	 	 r e t u r n   f a l s e ;  
 	 }  
 	 r e t u r n   t r u e ;  
 }  
  
 f u n c t i o n   c h e c k D o u b l e ( c h e c k S t r )   {  
 	 i f   ( c h e c k S t r . l e n g t h   <   1 )   r e t u r n   f a l s e ;  
 	 v a r   c h e c k O K   =   " 0 1 2 3 4 5 6 7 8 9 . " ;  
 	 f o r   ( i = 0 ;   i < c h e c k S t r . l e n g t h ;   i + + )   {  
 	 	 c h   =   c h e c k S t r . c h a r A t ( i ) ;  
 	 	 i f   ( c h e c k O K . i n d e x O f ( c h )   <   0 )  
 	 	 	 r e t u r n   f a l s e ;  
 	 }  
 	 i f   ( c h e c k S t r . i n d e x O f ( " . " ) ! = c h e c k S t r . l a s t I n d e x O f ( " . " ) )  
 	 	 r e t u r n   f a l s e ;  
 	 r e t u r n   t r u e ;  
 }  
  
 f u n c t i o n   v a l i d D o u b l e ( s t ,   n )  
 {  
 / /   i m p l e m e n t   l a t e r  
 / /   n :   s o   c h u   s o   t r o n g   p h a n   t h a p   p h a n  
 	 v a r   i   =   s t . l a s t I n d e x O f ( " . " ) ;  
 	 i f   ( i > - 1 )   r e t u r n   (   ( s t . s u b s t r ( i + 1 ) ) . l e n g t h   < =   n   ) ;  
 	 r e t u r n   t r u e ;  
 }  
 f u n c t i o n   C h e c k P h o n e ( o b j ) {  
 	 v a r   s t r P h o n e   =   o b j . v a l u e ; 	  
 	 v a r   c h e c k O K   =   " 0 1 2 3 4 5 6 7 8 9 - " ;  
 	 v a r   a l l V a l i d   =   t r u e ;  
 	 f o r   ( i   =   0 ;     i   <   s t r P h o n e . l e n g t h ;     i + + )     {  
 	 	 c h   =   s t r P h o n e . c h a r A t ( i ) ;  
 	         	 f o r   ( j   =   0 ;     j   <   c h e c k O K . l e n g t h ;     j + + )  
 	 	 	 i f   (   c h   = =   c h e c k O K . c h a r A t ( j )   )  
 	 	 	 	 b r e a k ;  
 	 	 	 i f   ( j   = =   c h e c k O K . l e n g t h )         {  
 	 	 	 	 a l l V a l i d   =   f a l s e ;  
 	 	             	 b r e a k ;  
 	 	         	 }  
 	 	     	 }  
 	 	 i f   ( ! a l l V a l i d )   {  
 	         	 	 a l e r t ( " S ?   d i ? n   t h o ? i   k h ô n g   d ú n g   q u i   c á c h   " ) ;  
 	 	 	 o b j . s e l e c t ( ) ; 	  
 	 	 	 o b j . f o c u s ( ) ;  
 	         	 	 r e t u r n   ( f a l s e ) ;  
 	 	     }  
 	 r e t u r n   t r u e ;  
 }  
  
 f u n c t i o n   C h e c k E m a i l ( o b j ) {  
 	 v a r   s t r E m a i l = o b j . v a l u e ;  
 	 i f   (   s t r E m a i l   ! =   " "   ) {  
 	 	 v a r   l e n   =   s t r E m a i l . l e n g t h ;  
 	 	 v a r   c h   =   s t r E m a i l . c h a r A t ( l e n - 1 ) ;  
 	 	 i f   ( s t r E m a i l . i n d e x O f ( " @ " ) < 1 ) {  
 	 	 	 a l e r t ( " Ð ? a   c h ?   m a i l   k h ô n g   d ú n g " ) ;  
 	 	 	 o b j . s e l e c t ( ) ;  
 	 	 	 o b j . f o c u s ( ) ; 	 	  
 	 	 	 r e t u r n   ( f a l s e ) ;  
 	 	 	 }  
 	 	 i f   ( s t r E m a i l . i n d e x O f ( " @ " ) ! = s t r E m a i l . l a s t I n d e x O f ( " @ " ) ) {  
 	 	 	 a l e r t ( " Ð ? a   c h ?   m a i l   k h ô n g   d ú n g " ) ;  
 	 	 	 o b j . s e l e c t ( ) ;  
 	 	 	 o b j . f o c u s ( ) ; 	 	  
 	 	 	 r e t u r n   f a l s e ;  
 	 	 	 }    
 	 	 i f ( c h = = " @ " ) {  
 	 	 	 a l e r t ( " Ð ? a   c h ?   m a i l   k h ô n g   d ú n g " ) ;  
 	 	 	 o b j . s e l e c t ( ) ;  
 	 	 	 o b j . f o c u s ( ) ; 	 	  
 	 	 	 r e t u r n   f a l s e ;  
 	 	 	 }  
 	 	 }  
 	 r e t u r n   t r u e ;  
 }  
 f u n c t i o n   p o p u p P a g e ( p a g e )   {  
 	 w i n d o w p r o p s   =   " h e i g h t = 5 0 0 , w i d t h = 6 0 0 , l o c a t i o n = n o , "  
 	 + " s c r o l l b a r s = y e s , m e n u b a r s = y e s , t o o l b a r s = y e s , r e s i z a b l e = y e s " ;  
 	 w i n d o w . o p e n ( p a g e ,   " " ,   w i n d o w p r o p s ) ;  
 	 }  
  
 f u n c t i o n   p o p P a g e ( p a g e , t a r g e t )   {  
 	 w i n d o w p r o p s   =   " h e i g h t = 5 0 0 , w i d t h = 6 0 0 , l o c a t i o n = n o , "  
 	 + " s c r o l l b a r s = y e s , m e n u b a r s = y e s , t o o l b a r s = y e s , r e s i z a b l e = y e s " ;  
 	 w i n d o w . o p e n ( p a g e ,   t a r g e t ,   w i n d o w p r o p s ) ;  
 	 }  
  
 f u n c t i o n   p o p u p P H W S ( p , h , w , s )   {  
 	 w i n d o w p r o p s   =   " h e i g h t = " + h + " , w i d t h = " + w + " , l o c a t i o n = n o , "  
 	 + " s c r o l l b a r s = y e s , m e n u b a r s = y e s , t o o l b a r s = y e s , r e s i z a b l e = " + s ;  
 	 w i n d o w . o p e n ( p ,   " " ,   w i n d o w p r o p s ) ;  
 	 }  
  
 f u n c t i o n   p o p u p P a g e H e l p ( p a g e )   {  
 	 w i n d o w p r o p s   =   " h e i g h t = 4 1 5 , w i d t h = 6 1 0 , l o c a t i o n = n o , "  
 	 + " s c r o l l b a r s = y e s , m e n u b a r s = y e s , t o o l b a r s = y e s , r e s i z a b l e = n o n e " ;  
 	 w i n d o w . o p e n ( p a g e ,   " H E L P " ,   w i n d o w p r o p s ) ;  
 	 }  
  
 / / - - > 
