ÿþv a r   I S _ N U L L           = 	 0 X 8 0 ;   / / 	 1 0 0 0 0 0 0 0  
 v a r   I S _ F U L L           = 	 0 X 4 0 ;   / / 	 0 1 0 0 0 0 0 0  
 v a r   I S _ H A L F           = 	 0 X 2 0 ;   / / 	 0 0 1 0 0 0 0 0  
 v a r   I S _ A S C I I         = 	 0 X 1 0 ;   / / 	 0 0 0 1 0 0 0 0  
 v a r   I S _ N U M             = 	 0 X 0 8 ;   / / 	 0 0 0 0 1 0 0 0  
 v a r   I S _ D A T E           = 	 0 X 0 4 ;   / / 	 0 0 0 0 0 1 0 0  
 v a r   I S _ P H O N E         = 	 0 X 0 2 ;   / / 	 0 0 0 0 0 0 1 0  
 v a r   I S _ E M A I L         = 	 0 X 0 1 ;   / / 	 0 0 0 0 0 0 0 1  
 v a r   I S _ N O T _ N U L L   = 	 0 X 0 0 ;   / / 	 0 0 0 0 0 0 0 0  
  
 v a r   M S G _ C H E C K _ S U C C E S S   =   " C h e c k   S u c c e s s " ;  
  
 f u n c t i o n   g e t A p p V e r ( )   {  
 	 v a r   s V e r   =   n a v i g a t o r . a p p V e r s i o n ;  
 	 v a r   n V e r   =   s V e r . i n d e x O f ( " M S I E " ) ;  
 	 v a r   a p p V e r   =   " " ;  
 	 i f   ( n V e r   >   0 )   {  
 	 	 a p p V e r   =   " M "   +   s V e r . s u b s t r i n g ( n V e r   +   5 ,   n V e r   +   9 ) ;  
 	 }  
 	 e l s e   {  
 	 	 a p p V e r   =   " N "   +   s V e r . s u b s t r i n g ( 0 ,   4 ) ;  
 	 }  
 	 i f   ( a p p V e r . c h a r A t ( 4 )   = =   "   " )   {  
 	 	 a p p V e r   =   a p p V e r . s u b s t r i n g ( 0 ,   4 )   +   " 0 " ;  
 	 }  
 	 r e t u r n   a p p V e r ;  
 }  
  
 v a r   a p p V e r   =   g e t A p p V e r ( ) ;  
  
 f u n c t i o n   c h e c k S p a c e C h a r ( c )   {  
 	 r e t u r n   ( ( c   = =   '   ' )   | |   ( c   = =   ' \ t ' )   | |   ( c   = =   ' & i e x c l ; & i e x c l ; ' ) ) ;  
 }  
  
 f u n c t i o n   t r i m ( s t r )   {  
 	 v a r   l e n   =   s t r . l e n g t h ;  
 	 v a r   b e g i n   =   0 ;  
 	 v a r   e n d   =   l e n   - 1 ;  
 	 v a r   c h k O n e   =   t r u e ;  
 	 v a r   c h k T w o   =   t r u e ;  
       	 i f   ( ( a p p V e r . c h a r A t ( 0 )   = =   ' M ' )   | |   ( a p p V e r   >   " N 4 . 0 3 " ) )   {  
       	 	 f o r   ( b e g i n ;   ( b e g i n   <   l e n )   & &   c h e c k S p a c e C h a r ( s t r . c h a r A t ( b e g i n ) ) ;   b e g i n + + ) ;  
 	 	 f o r   ( e n d ;   ( e n d   > =   0 )   & &   c h e c k S p a c e C h a r ( s t r . c h a r A t ( e n d ) ) ;   e n d - - ) ;  
 	 }  
 	 e l s e   i f   ( a p p V e r . c h a r A t ( 0 )   = =   ' N ' )   {  
 	 	 w h i l e   ( c h k O n e   | |   c h k T w o )   {  
 	 	 	 i f   ( b e g i n   <   l e n )   {  
 	 	 	 	 i f   ( c h e c k S p a c e C h a r ( s t r . c h a r A t ( b e g i n ) ) )   {  
 	 	 	 	 	 b e g i n + + ;  
 	 	 	 	 	 c h k O n e   =   t r u e ;  
 	 	 	 	 }  
 	 	 	 	 e l s e   {  
 	 	 	 	 	 c h k O n e   =   f a l s e ;  
 	 	 	 	 }  
 	 	 	 }  
 	 	 	 e l s e   {  
 	 	 	 	 c h k O n e   =   f a l s e ;  
 	 	 	 }  
 	 	 	 i f   ( b e g i n   <   l e n   -   1 )   {  
 	 	 	 	 i f   ( s t r . s u b s t r i n g ( b e g i n ,   b e g i n   +   2 )   = =   " & i e x c l ; & i e x c l ; " )   {  
 	 	 	 	 	 b e g i n   + =   2 ;  
 	 	 	 	 	 c h k T w o   =   t r u e ;  
 	 	 	 	 }  
 	 	 	 	 e l s e   {  
 	 	 	 	 	 c h k T w o   =   f a l s e ;  
 	 	 	 	 }  
 	 	 	 }  
 	 	 	 e l s e   {  
 	 	 	 	 c h k T w o   =   f a l s e ;  
 	 	 	 }  
 	 	 }  
 	 	 c h k O n e   =   t r u e ;  
 	 	 c h k T w o   =   t r u e ;  
 	 	 w h i l e   ( c h k O n e   | |   c h k T w o )   {  
 	 	 	 i f   ( e n d   >   - 1 )   {  
 	 	 	 	 i f   ( c h e c k S p a c e C h a r ( s t r . c h a r A t ( e n d ) ) )   {  
 	 	 	 	 	 e n d - - ;  
 	 	 	 	 	 c h k O n e   =   t r u e ;  
 	 	 	 	 }  
 	 	 	 	 e l s e   {  
 	 	 	 	 	 c h k O n e   =   f a l s e ;  
 	 	 	 	 }  
 	 	 	 }  
 	 	 	 e l s e   {  
 	 	 	 	 c h k O n e   =   f a l s e ;  
 	 	 	 }  
 	 	 	 i f   ( e n d   >   0 )   {  
 	 	 	 	 i f   ( s t r . s u b s t r i n g ( e n d   -   1 ,   e n d   +   1 )   = =   " & i e x c l ; & i e x c l ; " )   {  
 	 	 	 	 	 e n d   - =   2 ;  
 	 	 	 	 	 c h k T w o   =   t r u e ;  
 	 	 	 	 }  
 	 	 	 	 e l s e   {  
 	 	 	 	 	 c h k T w o   =   f a l s e ;  
 	 	 	 	 }  
 	 	 	 }  
 	 	 	 e l s e   {  
 	 	 	 	 c h k T w o   =   f a l s e ;  
 	 	 	 }  
 	 	 }  
 	 }  
 	 i f   ( b e g i n   >   e n d )   {  
 	 	 r e t u r n   " " ;  
 	 }  
 	 r e t u r n   s t r . s u b s t r i n g ( b e g i n , e n d   +   1 ) ;  
 }  
 f u n c t i o n   c h e c k M Z e n K a K u ( c )   {  
 	 v a r   t m p   =   e s c a p e ( c ) ;  
 	 i f   ( t m p . l e n g t h   = =   1 )   {  
 	 	 r e t u r n   f a l s e ;  
 	 }  
 	 r e t u r n   ( t m p . c h a r A t ( 1 )   = =   ' u ' ) ;  
 }  
  
 f u n c t i o n   c h e c k N Z e n K a K u ( c )   {  
         v a r   s t r   =   e s c a p e ( c ) ;  
         i f   ( s t r . c h a r A t ( 0 )   ! =   ' % ' )   {  
                 r e t u r n   f a l s e ;  
 	 }  
         e l s e   i f   ( s t r . c h a r A t ( 1 )   = =   ' 8 ' )   {  
                 r e t u r n   t r u e ;  
 	 }  
         e l s e   i f   ( s t r . c h a r A t ( 1 )   = =   ' 9 ' )   {  
                 r e t u r n   t r u e ;  
 	 }  
         e l s e   i f   ( s t r . c h a r A t ( 1 )   = =   ' E ' )   {  
                 r e t u r n   t r u e ;  
 	 }  
         e l s e   i f   ( s t r . c h a r A t ( 1 )   = =   ' F ' )   {  
                 r e t u r n   t r u e ;  
 	 }  
         e l s e {  
                 r e t u r n   f a l s e ;  
         }  
 }  
  
  
 f u n c t i o n   g e t L e n g t h ( s C h e c k )   {  
       	 i f   ( ( a p p V e r . c h a r A t ( 0 )   = =   ' M ' )   | |   ( a p p V e r   >   " N 4 . 0 5 " ) )   {  
         	 v a r   n   =   0 ;  
         	 v a r   s t r   =   s C h e c k ;  
         	 v a r   l e n   =   s t r . l e n g t h ;  
 	 f o r   ( v a r   i   =   0 ;   i   <   l e n ;   i + + )   {  
               	         n   + =   c h e c k M Z e n K a K u ( s t r . c h a r A t ( i ) )   ?   2   :   1 ;  
               	 }  
 	 r e t u r n   n ;  
       	 }  
       	 e l s e   i f   ( a p p V e r . c h a r A t ( 0 )   = =   ' N ' )   {  
 	     	 r e t u r n   s C h e c k . l e n g t h ;  
         }  
 }  
  
 f u n c t i o n   c h e c k F u l l ( s C h e c k )   {  
         v a r   i   =   0 ;  
         v a r   s t r   =   s C h e c k ;  
         s t r   =   t o H a n k a k u ( s t r ) ;  
         v a r   l e n   =   s t r . l e n g t h ;  
       	 i f   ( ( a p p V e r . c h a r A t ( 0 )   = =   ' M ' )   | |   ( a p p V e r   >   " N 4 . 0 5 " ) )   {  
 	         f o r   ( i   =   0 ;   i   <   l e n ;   i + + )   {  
               	 	 i f   ( ! c h e c k M Z e n K a K u ( s t r . c h a r A t ( i ) ) )   {  
               	 	 	 r e t u r n   f a l s e ;  
               	 	 }  
         	 }  
       	 }   e l s e   i f   ( a p p V e r . c h a r A t ( 0 )   = =   ' N ' )   {  
       	 	 i f   ( ( l e n   %   2 )   = =   1 )   {  
       	 	 	 r e t u r n   f a l s e ;  
       	 	 }  
 	         f o r   ( i   =   0 ;   i   <   l e n   /   2 ;   i + + )   {  
               	 	 i f   ( ! c h e c k N Z e n K a K u ( s t r . c h a r A t ( i   *   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 E n g N u m ( s t r )   {  
 	 i f (   s t r   = =   n u l l   | |   s t r   = =   " "   ) {  
 	 	 r e t u r n   t r u e ;  
 	 }  
  
 	 v a r   c   =   n e w   R e g E x p ( ) ;  
 	 c   =   / ^ [ \ d | a - z A - Z ] + $ / ;  
 	 i f   ( c . t e s t ( s t r ) )  
 	 	 r e t u r n   t r u e ;  
 	 e l s e  
 	 	 r e t u r n   f a l s e ;  
 }  
  
 f u n c t i o n   r e p l a c e S t r ( s t r ,   s F n d ,   s R e p )   {  
 	 v a r   s T m p   =   " " ;  
       	 v a r   e n d I n d e x   =   0 ;  
     	 v a r   b e g i n I n d e x   =   0 ;  
       	 v a r   l e n   =   s F n d . l e n g t h ;  
     	 w h i l e   ( e n d I n d e x   > =   0 )   {  
         	 e n d I n d e x   =   s t r . i n d e x O f ( s F n d   , b e g i n I n d e x ) ;  
         	 i f   ( e n d I n d e x   > =   0 )   {  
             	 	 s T m p   + =   s t r . s u b s t r i n g ( b e g i n I n d e x ,   e n d I n d e x )   +   s R e p ;  
               	 	 b e g i n I n d e x   =   e n d I n d e x   +   l e n ;  
         	 }  
         	 e l s e   i f   ( b e g i n I n d e x   > =   0 )   {  
               	 	 s T m p   + =   s t r . s u b s t r i n g ( b e g i n I n d e x ) ;  
             	 	 b r e a k ;  
         	 }  
     	 }  
     	 r e t u r n   s T m p ;  
 }  
  
 f u n c t i o n   r e p l a c e C o m m a s ( s t r )   {  
 	 i f   ( s t r   = =   " " )   {  
 	 	 r e t u r n   s t r ;  
 	 }  
 	 s t r   =   r e p l a c e S t r ( s t r ,   " ' " ,   " ' " ) ;  
 	 s t r   =   r e p l a c e S t r ( s t r ,   ' " ' ,   ' " ' ) ;  
 	 r e t u r n   s t r ;  
 }  
  
 f u n c t i o n   c h e c k A S C I I ( s C h e c k )   {  
 	 v a r   s t r   =   e s c a p e ( s C h e c k ) ;  
 	 v a r   c h k S t r   =   " 8 9 a b c d e f A B C D E F "  
 	 v a r   i   =   s t r . i n d e x O f ( " % " ) ;  
       	 i f   ( ( a p p V e r . c h a r A t ( 0 )   = =   ' M ' )   | |   ( a p p V e r   >   " N 4 . 0 5 " ) )   {  
 	 	 w h i l e   ( ( i   > =   0 )   & &   ( i   <   s t r . l e n g t h ) )   {  
 	 	 	 i f   ( s t r . c h a r A t ( i + 1 )   = =   " u " )   {  
 	 	 	 	 r e t u r n   f a l s e ;  
 	 	 	 }  
 	 	 	 i   =   s t r . i n d e x O f ( " % " ,   i + 1 ) ;  
 	 	 }  
       	 }  
       	 e l s e   i f   ( a p p V e r . c h a r A t ( 0 )   = =   ' N ' )   {  
 	 	 w h i l e   ( ( i   > =   0 )   & &   ( i   <   s t r . l e n g t h ) )   {  
 	 	 	 i f   ( c h k S t r . i n d e x O f ( s t r . c h a r A t ( i + 1 ) )   > =   0 )   {  
 	 	 	 	 r e t u r n   f a l s e ;  
 	 	 	 }  
 	 	 	 i   =   s t r . i n d e x O f ( " % " ,   i + 1 ) ;  
 	 	 }  
         }  
         r e t u r n   t r u e ;  
 }  
  
 f u n c t i o n   c h e c k N u m b e r ( s t r )   {  
 	 i f ( s t r   = =   " " )  
 	 {  
 	 	 r e t u r n   f a l s e ;  
 	 }  
         v a r   i ;  
         v a r   l e n   =   s t r . l e n g t h ;  
         v a r   c h k S t r   =   " 1 2 3 4 5 6 7 8 9 0 " ;  
         i f   ( l e n   = =   1 )   {  
 	 i f   ( c h k S t r . i n d e x O f ( s t r . c h a r A t ( i ) )   <   0 )   {  
 	         r e t u r n   f a l s e ;  
 	 }  
 	 }   e l s e   {  
 	 / / c o m m e n t   b y   S J N S / T a o W e i s o n g   @   2 0 0 1 / 0 5 / 1 4  
 	 / / a i m :   ' 0 0 1 2 '   i s   n u m b e r  
 	 / / i f   ( ( c h k S t r . i n d e x O f ( s t r . c h a r A t ( 0 ) )   <   0 )   | |   ( s t r . c h a r A t ( 0 )   = =   " 0 " ) )   {  
 	 i f   ( ( c h k S t r . i n d e x O f ( s t r . c h a r A t ( 0 ) )   <   0 ) )   {  
 	         r e t u r n   f a l s e ;  
 	 }  
 	   f o r   ( i   =   1 ;   i   <   l e n ;   i + + )   {  
 	 	 i f   ( c h k S t r . i n d e x O f ( s t r . c h a r A t ( i ) )   <   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 F l o a t ( s t r )   {  
 	 i f ( s t r   = =   " " )  
 	 {  
 	 	 r e t u r n   f a l s e ;  
 	 }  
         v a r   i ;  
         v a r   l e n   =   s t r . l e n g t h ;  
         v a r   c h k S t r   =   " 1 2 3 4 5 6 7 8 9 0 . " ;  
         i f   ( l e n   = =   1 )   {  
 	 i f   ( c h k S t r . i n d e x O f ( s t r . c h a r A t ( i ) )   <   0 )   {  
 	         r e t u r n   f a l s e ;  
 	 }  
 	 }   e l s e   {  
 	 / / c o m m e n t   b y   S J N S / T a o W e i s o n g   @   2 0 0 1 / 0 5 / 1 4  
 	 / / a i m :   ' 0 0 1 2 '   i s   n u m b e r  
 	 / / i f   ( ( c h k S t r . i n d e x O f ( s t r . c h a r A t ( 0 ) )   <   0 )   | |   ( s t r . c h a r A t ( 0 )   = =   " 0 " ) )   {  
 	 i f   ( ( c h k S t r . i n d e x O f ( s t r . c h a r A t ( 0 ) )   <   0 ) )   {  
 	         r e t u r n   f a l s e ;  
 	 }  
 	   f o r   ( i   =   1 ;   i   <   l e n ;   i + + )   {  
 	 	 i f   ( c h k S t r . i n d e x O f ( s t r . c h a r A t ( i ) )   <   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 N u m b e r S t r i n g ( v a l u e )  
 {  
 	 i f (   v a l u e   = =   n u l l   | |   v a l u e   = =   " "   ) {  
 	 	 r e t u r n   t r u e ;  
 	 }  
  
 	 v a r   c   =   n e w   R e g E x p ( ) ;  
 	 c   =   / ^ \ d + $ / ;  
 	 i f   ( ! c . t e s t ( v a l u e ) )  
 	 	 r e t u r n   f a l s e ;  
 	 e l s e  
 	 	 r e t u r n   t r u e ;  
 }  
  
  
 f u n c t i o n   f o r m a t D a t e 2 ( s Y e a r ,   s M o n t h ,   s D a y )   {  
 	 i f   ( s M o n t h . l e n g t h   = =   1 )   {  
 	 	 s M o n t h   =   " 0 "   +   s M o n t h ;  
 	 }  
 	 i f   ( s D a y . l e n g t h   = =   1 )   {  
 	 	 s D a y   =   " 0 "   +   s D a y ;  
 	 }  
 	 r e t u r n   s Y e a r   +   s M o n t h   +   s D a y ;  
 }  
  
 f u n c t i o n   c o n v D a t e ( s D a t e ,   s S e p )   {  
 	 v a r   p o s   =   0 ;  
 	 v a r   s t r   =   s D a t e ;  
 	 v a r   l e n   =   s t r . l e n g t h ;  
 	 i f   ( ( l e n   <   8 )   | |   ( l e n   >   1 0 ) )   {  
 	 	 r e t u r n   s t r ;  
 	 }  
 	 e l s e   i f   ( s t r . i n d e x O f ( s S e p )   = =   4 )   {  
 	 	 p o s   =   s t r . i n d e x O f ( s S e p ,   5 ) ;  
 	 	 i f   ( p o s   = =   6 )   {  
 	 	 	 i f   ( l e n   = =   8 )   {  
 	 	 	 	 r e t u r n   s t r . s u b s t r i n g ( 0 ,   4 )   +   " 0 "   +   s t r . s u b s t r i n g ( 5 ,   6 )   +   " 0 "   +   s t r . s u b s t r i n g ( 7 ,   8 ) ;  
 	 	 	 }  
 	 	 	 e l s e   {  
 	 	 	 	 r e t u r n   s t r . s u b s t r i n g ( 0 ,   4 )   +   " 0 "   +   s t r . s u b s t r i n g ( 5 ,   6 )   +   s t r . s u b s t r i n g ( 7 ,   9 ) ;  
 	 	 	 }  
 	 	 }  
 	 	 e l s e   i f   ( p o s   = =   7 )   {  
 	 	 	 i f   ( l e n   = =   9 )   {  
 	 	 	 	 r e t u r n   s t r . s u b s t r i n g ( 0 ,   4 )   +   s t r . s u b s t r i n g ( 5 ,   7 )   +   " 0 "   +   s t r . s u b s t r i n g ( 8 ,   9 ) ;  
 	 	 	 }  
 	 	 	 e l s e   {  
 	 	 	 	 r e t u r n   s t r . s u b s t r i n g ( 0 ,   4 )   +   s t r . s u b s t r i n g ( 5 ,   7 )   +   s t r . s u b s t r i n g ( 8 ,   1 0 ) ;  
 	 	 	 }  
 	 	 }  
 	 	 e l s e   {  
 	 	 	 r e t u r n   s t r ;  
 	 	 }  
 	 }  
 	 e l s e   {  
 	 	 r e t u r n   s t r ;  
 	 }  
 }  
 f u n c t i o n   f o r m a t D a t e ( s D a t e ,   s S e p )   {  
 	 v a r   p o s   =   0 ;  
 	 v a r   s t r   =   s D a t e ;  
 	 v a r   l e n   =   s t r . l e n g t h ;  
 	 i f   ( ( l e n   <   8 )   | |   ( l e n   >   1 0 ) )   {  
 	 	 r e t u r n   s t r ;  
 	 }  
 	 e l s e   i f   ( s t r . i n d e x O f ( s S e p )   = =   4 )   {  
 	 	 p o s   =   s t r . i n d e x O f ( s S e p ,   5 ) ;  
 	 	 i f   ( p o s   = =   6 )   {  
 	 	 	 i f   ( l e n   = =   8 )   {  
 	 	 	 	 r e t u r n   s t r . s u b s t r i n g ( 0 ,   4 )   +   s S e p   +   " 0 "   +   s t r . s u b s t r i n g ( 5 ,   6 )   +   s S e p   +   " 0 "   +   s t r . s u b s t r i n g ( 7 ,   8 ) ;  
 	 	 	 }  
 	 	 	 e l s e   {  
 	 	 	 	 r e t u r n   s t r . s u b s t r i n g ( 0 ,   4 )   +   s S e p   +   " 0 "   +   s t r . s u b s t r i n g ( 5 ,   6 )   +   s S e p   +   s t r . s u b s t r i n g ( 7 ,   9 ) ;  
 	 	 	 }  
 	 	 }  
 	 	 e l s e   i f   ( p o s   = =   7 )   {  
 	 	 	 i f   ( l e n   = =   9 )   {  
 	 	 	 	 r e t u r n   s t r . s u b s t r i n g ( 0 ,   4 )   +   s S e p   +   s t r . s u b s t r i n g ( 5 ,   7 )   +   s S e p   +   " 0 "   +   s t r . s u b s t r i n g ( 8 ,   9 ) ;  
 	 	 	 }  
 	 	 	 e l s e   {  
 	 	 	 	 r e t u r n   s t r . s u b s t r i n g ( 0 ,   4 )   +   s S e p   +   s t r . s u b s t r i n g ( 5 ,   7 )   +   s S e p   +   s t r . s u b s t r i n g ( 8 ,   1 0 ) ;  
 	 	 	 }  
 	 	 }  
 	 	 e l s e   {  
 	 	 	 r e t u r n   s t r ;  
 	 	 }  
 	 }  
 	 e l s e   {  
 	 	 r e t u r n   s t r ;  
 	 }  
 }  
  
  
 f u n c t i o n   c h e c k L e a p Y e a r ( y e a r )   {  
 	 i f   ( ( ( y e a r   %   4   = =   0 )   & &   ( y e a r   %   1 0 0   ! =   0 ) )   | |   ( y e a r   %   4 0 0   = =   0 ) )   {  
 	 	 r e t u r n   t r u e ;  
 	 }  
 	 r e t u r n   f a l s e ;  
 }  
  
 f u n c t i o n   g e t S y s D a t e ( )   {  
 	 v a r   t o d a y     =   n e w   D a t e ( ) ;  
 	 v a r   n Y e a r     =   t o d a y . g e t Y e a r ( ) ;  
 	 v a r   n M o n t h   =   t o d a y . g e t M o n t h ( )   +   1 ;  
 	 v a r   n D a y       =   t o d a y . g e t D a t e ( ) ;  
 	 v a r   s T o d a y   =   " " ;  
 	 i f   ( n Y e a r   <   1 0 0 0 )   {  
 	 	 s T o d a y   + =   " "   +   ( 1 9 0 0   +   n Y e a r ) ;  
 	 }  
 	 e l s e   {  
 	 	 s T o d a y   + =   n Y e a r ;  
 	 }  
 	 i f   ( n M o n t h   <   1 0 )   {  
 	 	 s T o d a y   + =   " 0 "   +   n M o n t h ;  
 	 }  
 	 e l s e   {  
 	 	 s T o d a y   + =   n M o n t h ;  
 	 }  
 	 i f   ( n D a y   <   1 0 )   {  
 	 	 s T o d a y   + =   " 0 "   +   n D a y ;  
 	 }  
 	 e l s e   {  
 	 	 s T o d a y   + =   n D a y ;  
 	 }  
 	 r e t u r n   s T o d a y ;  
 }  
  
 f u n c t i o n   c o m p a r e D a t e S t r ( d a t e S t r 1 , d a t e S t r 2 )   {  
     d a t e S t r 1   =   c o n v D a t e ( d a t e S t r 1 , " - " ) ;  
     d a t e S t r 2   =   c o n v D a t e ( d a t e S t r 2 , " - " ) ;  
     i f   ( d a t e S t r 1   >   d a t e S t r 2 )   {  
         r e t u r n   1 ;  
     }   e l s e   i f   ( d a t e S t r 1   = =   d a t e S t r 2 )   {  
         r e t u r n   0 ;  
     }   e l s e   {  
         r e t u r n   - 1 ;  
     }  
     r e t u r n   d a t e S t r 1  
 }  
  
 f u n c t i o n   c h e c k B e f o r e D a t e ( s t r )   {  
 	 s t r   =   c o n v D a t e ( s t r ,   " - " ) ;  
 	 i f   ( s t r . l e n g t h   = =   6 )   {  
         	 s t r   + =   " 0 1 " ;  
 	 }  
 	 i f   ( s t r   > =   g e t S y s D a t e ( ) )   {  
 	 	 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 s T o d a y ( s t r )   {  
 	 s t r   =   c o n v D a t e ( s t r ,   " - " ) ;  
 	 i f (   s t r . l e n g t h   = =   6   )   {  
 	 	 s t r   + =   " 0 1 " ;  
 	 }  
 	 i f (   s t r   = =   g e t S y s D a t e ( )   )   {  
 	 	 r e t u r n   t r u e ;  
 	 } e l s e   {  
 	 	 r e t u r n   f a l s e ;  
 	 }  
 }  
  
 f u n c t i o n   c h e c k A f t e r D a t e ( s t r )   {  
 	 s t r   =   c o n v D a t e ( s t r ,   " - " ) ;  
 	 i f   ( s t r . l e n g t h   = =   6 )   {  
         	 s t r   + =   " 0 1 " ;  
 	 }  
 	 i f   ( s t r   < =   g e t S y s D a t e ( ) )   {  
 	 	 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 a t e ( s t r )   {  
 	 s t r   =   c o n v D a t e ( s t r ,   " - " ) ;  
 	 i f   ( ( s t r . l e n g t h   ! =   8 )   | |   ! c h e c k N u m b e r ( s t r ) )  
 	 	 r e t u r n   f a l s e ;  
 	 v a r   y e a r     =   s t r . s u b s t r i n g ( 0 ,   4 ) ;  
 	 v a r   m o n t h   =   s t r . s u b s t r i n g ( 4 ,   6 ) ;  
 	 v a r   d a y       =   s t r . s u b s t r i n g ( 6 ,   8 ) ;  
 	 d a y O f M o n t h   =   n e w   A r r a y ( 3 1 , 2 9 , 3 1 , 3 0 , 3 1 , 3 0 , 3 1 , 3 1 , 3 0 , 3 1 , 3 0 , 3 1 ) ;  
 	 i f   ( ( m o n t h   <   1 )   | |   ( m o n t h   >   1 2 ) )  
 	 	 r e t u r n   f a l s e ;  
 	 i f   ( ( d a y   <   1 )   | |   ( d a y   >   d a y O f M o n t h [ m o n t h   -   1 ] ) )  
 	 	 r e t u r n   f a l s e ;  
 	 i f   ( ! c h e c k L e a p Y e a r ( y e a r )   & &   ( m o n t h   = =   2 )   & &   ( d a y   = =   2 9 ) )  
 	 	 r e t u r n   f a l s e ;  
 	 r e t u r n   t r u e ;  
 }  
 / / ± & E g r a v e ; & f r a c 1 2 ; & I u m l ; & A a c u t e ; & f r a c 1 2 ; & c e d i l ; & o u m l ; & E c i r c ; ± & f r a c 1 4 ; & a u m l ;  
 / / I f   f r o m D a t e   < =   t o D a t e   :   r e t u r n   t r u e   ;   e l s e   :   r e t u r n   f a l s e  
 f u n c t i o n   c o m p a r e D a t e ( f r o m D a t e , t o D a t e )   {  
 	 i f (   c h e c k D a t e ( f r o m D a t e )   ! =   t r u e   )   r e t u r n   f a l s e ;  
 	 i f (   c h e c k D a t e ( t o D a t e )   ! =   t r u e   )   r e t u r n   f a l s e ;  
 	 f r o m D a t e   =   c o n v D a t e ( f r o m D a t e ,   " - " ) ;  
 	 t o D a t e   =   c o n v D a t e ( t o D a t e ,   " - " ) ;  
 	 i f   ( ( f r o m D a t e . l e n g t h   ! =   8 )   | |   ! c h e c k N u m b e r ( f r o m D a t e )   | |   ( t o D a t e . l e n g t h   ! =   8 )   | |   ! c h e c k N u m b e r ( t o D a t e ) )  
 	 	 r e t u r n   f a l s e ;  
 	 i f ( f r o m D a t e   < =   t o D a t e   ) {  
 	 	 r e t u r n   t r u e ;  
 	 } e l s e {  
 	 	 r e t u r n   f a l s e ;  
 	 }  
 }  
  
 f u n c t i o n   r e m o v e C h a r ( s t r ,   c )   {  
 	 i f (   s t r   = =   n u l l   | |   s t r   = =   " "   )  
 	 	 r e t u r n   s t r ;  
 	 v a r   i   =   s t r . i n d e x O f ( c ) ;  
 	 w h i l e   ( i   > =   0 )   {  
 	 	 s t r   =   s t r . s u b s t r i n g ( 0 ,   i )   +   s t r . s u b s t r i n g ( i   +   1 ,   s t r . l e n g t h ) ;  
 	 	 i   =   s t r . i n d e x O f ( c ) ;  
 	 }  
 	 r e t u r n   s t r ;  
 }  
  
 f u n c t i o n   f o r m a t L a r g e N u m b e r ( s t r )   {  
 	 i f (   s t r   = =   n u l l   | |   ! c h e c k N u m b e r ( s t r )   )  
 	 	 r e t u r n   s t r ;  
 	 v a r   i   =   s t r . l e n g t h ;  
 	 v a r   o u t p u t   =   " " ;  
  
 	 w h i l e (   i   >   0   )   {  
 	 	 i f (   i   <   3   )   {  
 	 	 	 o u t p u t   =   s t r . s u b s t r i n g ( 0 ,   i )   +   o u t p u t   ;  
 	 	 	 b r e a k ;  
 	 	 } e l s e   {  
 	 	 	 i   =   i   -   3 ;  
 	 	 	 o u t p u t   =   s t r . s u b s t r i n g ( i ,   i   +   3 )   +   o u t p u t   ;  
 	 	 	 i f (   i   >   0   )   {  
 	 	 	 	 o u t p u t   =   " , "   +   o u t p u t ;  
 	 	 	 }  
 	 	 }  
 	 }  
 	 r e t u r n   o u t p u t ;  
 }  
  
 f u n c t i o n   c h e c k P h o n e ( s t r )   {  
 	 v a r   i   =   s t r . i n d e x O f ( " - - " ) ;  
 	 v a r   l e n   =   s t r . l e n g t h ;  
 	 i f   ( i   > =   0 )   {  
 	 	 r e t u r n   f a l s e ;  
 	 }  
 	 i   =   s t r . i n d e x O f ( " - " ) ;  
 	 i f   ( ( i   = =   0 )   | |   ( i   = =   l e n   -   1 ) )   {  
 	 	 r e t u r n   f a l s e ;  
 	 }  
 	 e l s e   i f   ( i   >   0 )   {  
 	 	 i   =   s t r . l a s t I n d e x O f ( " - " ) ;  
               	 i f   ( i   = =   l e n   -   1 )   {  
                             	 r e t u r n   f a l s e ;  
 	 	 }  
 	 	 s t r   =   r e m o v e C h a r ( s t r ,   " - " ) ;  
 	 }  
 	 i f   ( ! c h e c k N u m b e r ( s t r ) )   {  
 	 	 r e t u r n   f a l s e ;  
 	 }  
 	 e 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 ( s t r )   {  
         v a r   i ;  
         v a r   l e n   =   s t r . l e n g t h ;  
         v a r   a P o s   =   s t r . i n d e x O f ( " @ " ) ;  
         v a r   d P o s   =   s t r . i n d e x O f ( " . " ) ;  
         v a r   a a P o s   =   s t r . i n d e x O f ( " @ @ " ) ;  
         v a r   a d P o s   =   s t r . i n d e x O f ( " @ . " ) ;  
         v a r   d d P o s   =   s t r . i n d e x O f ( " . . " ) ;  
         v a r   d a P o s   =   s t r . i n d e x O f ( " . @ " ) ;  
 	 v a r   c h k S t r   =   " a b c d e f g h i j k l m n o p q r s t u v w x y z A B C D E F G H I J K L M N O P Q R S T U V W X Y Z 1 2 3 4 5 6 7 8 9 0 - _ @ . " ;  
 / / 	 i f   ( ( a P o s   < =   0 )   | |   ( a P o s   = =   l e n   -   1 )   | |   ( d P o s   < =   0 )   | |   ( d P o s   = =   l e n   -   1 )   | | 	 ( a d P o s   >   0 )   | |   ( d a P o s   >   0 )   | |  
 / /             r e m o v e   b y   S J N S / z q   i n   o r d e r   t o   u s e   M a i l   a t   i n t r a n e t   l i k e   a d m i n @ m a i l h o s t ,   t h i s   m a i l   a d d r e s s   i s   o k .  
 	 i f   ( ( a P o s   < =   0 )   | |   ( a P o s   = =   l e n   -   1 )   | |   ( d P o s   = =   l e n   -   1 )   | | 	 ( a d P o s   >   0 )   | |   ( d a P o s   >   0 )   | |  
 	 	 ( s t r . c h a r A t ( l e n   -   1 )   = =   " @ " )   | |   ( s t r . c h a r A t ( l e n   -   1 )   = =   " . " )   | |   ( a a P o s   >   0 )   | |   ( d d P o s   >   0 ) )   {  
 	 	 r e t u r n   f a l s e ;  
 	 }  
 	 i f   ( s t r . i n d e x O f ( " @ " ,   a P o s   +   1 )   >   0 )   {  
 	 	 r e t u r n   f a l s e ;  
 	 }  
 / / 	 w h i l e   ( a P o s   >   d P o s )   {  
 / / 	 	 d P o s   =   s t r . i n d e x O f ( " . " ,   d P o s   +   1 ) ;  
 / / 	 	 i f   ( d P o s   <   0 )   {  
 / / 	 R e m o v e   b y   S J N S   z q   i n   o r d e r   t o   u s e   m a i l   l i k e   a d m i n @ m a i l h o s t 	 	 	  
 / / 	 	 	 r e t u r n   f a l s e ;  
 / / 	 	 	  
 / / 	 	 }  
 / / 	 }  
         f o r   ( i   =   0 ;   i   <   l e n ;   i + + )   {  
         	 i f   ( c h k S t r . i n d e x O f ( s t r . c h a r A t ( i ) )   <   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 I t e m ( s C h e c k ,   n M i n L e n ,   n M a x L e n ,   c h k F l g )   {  
 / / v a r   I S _ N U L L           = 	 0 X 8 0 ;   / / 	 1 0 0 0 0 0 0 0  
 / / v a r   I S _ F U L L           = 	 0 X 4 0 ;   / / 	 0 1 0 0 0 0 0 0  
 / / v a r   I S _ H A L F           = 	 0 X 2 0 ;   / / 	 0 0 1 0 0 0 0 0  
 / / v a r   I S _ A S C I I         = 	 0 X 1 0 ;   / / 	 0 0 0 1 0 0 0 0  
 / / v a r   I S _ N U M             = 	 0 X 0 8 ;   / / 	 0 0 0 0 1 0 0 0  
 / / v a r   I S _ D A T E           = 	 0 X 0 4 ;   / / 	 0 0 0 0 0 1 0 0  
 / / v a r   I S _ P H O N E         = 	 0 X 0 2 ;   / / 	 0 0 0 0 0 0 1 0  
 / / v a r   I S _ E M A I L         = 	 0 X 0 1 ;   / / 	 0 0 0 0 0 0 0 1  
 / / v a r   I S _ N O T _ N U L L   = 	 0 X 0 0 ;   / / 	 0 0 0 0 0 0 0 0  
 	 v a r   s t r L e n   =   0 ;  
  
 	 i f   ( ( s C h e c k   = =   n u l l )   | |   ( s C h e c k   = =   " " ) )   {  
 	 	 i f   ( ( c h k F l g   &   0 x 8 0 )   = =   0 x 8 0 )   {  
 	 	 	 r e t u r n   M S G _ C H E C K _ S U C C E S S ;  
 	 	 }  
 	 	 e l s e   {  
 	 	 	 r e t u r n   " & E c i r c ; & C c e d i l ; ± & O s l a s h ; & E T H ; & e u m l ; & E c i r c ; & a u m l ; & E g r a v e ; & e u m l ; & m i c r o ; & A u m l ; & I u m l ; & i c i r c ; & A u m l ; & i q u e s t ; " ;  
 	 	 }  
 	 }  
  
 	 i f   ( ( n M i n L e n   >   0 )   | |   ( n M a x L e n   >   0 ) )   {  
 	 	 s t r L e n   =   g e t L e n g t h ( s C h e c k ) ;  
 	 	 i f   ( n M i n L e n   >   0 )   {  
 	 	 	 i f   ( n M i n L e n   = =   n M a x L e n )   {  
 	 	 	 	 i f   ( s t r L e n   ! =   n M i n L e n )   {  
 	 	 	 	 	 i f   ( ( c h k F l g   &   0 x 0 8 )   = =   0 x 0 8 )   {  
 	 	 	 	 	 	 r e t u r n   " & m i c r o ; & A u m l ; & s u p 3 ; ¤ & p a r a ; & E g r a v e ; ± & O s l a s h ; & E T H ; & e u m l ; " +   n M i n L e n   +   " × & O u m l ; & f r a c 1 2 ; & U a c u t e ; " ;  
 	 	 	 	 	 }  
 	 	 	 	 	 e l s e   {  
 	 	 	 	 	 	 r e t u r n   " & m i c r o ; & A u m l ; & s u p 3 ; ¤ & p a r a ; & E g r a v e ; ± & O s l a s h ; & E T H ; & e u m l ; " +   n M i n L e n   +   " × & O u m l ; & f r a c 1 2 ; & U a c u t e ; " ;  
 	 	 	 	 	 }  
 	 	 	 	 }  
 	 	 	 }  
 	 	 	 e l s e   i f   ( s t r L e n   <   n M i n L e n )   {  
 	 	 	 	 i f   ( ( c h k F l g   &   0 x 0 8 )   = =   0 x 0 8 )   {  
 	 	 	 	 	 r e t u r n   " & s u p 2 ; & r a q u o ; & E c i r c ; & C c e d i l ; & E c i r c ; & y a c u t e ; × & O u m l ; " ;  
 	 	 	 	 }  
 	 	 	 	 e l s e   {  
 	 	 	 	 	 r e t u r n   " & s u p 1 ; & y a c u t e ; & O a c u t e ; & U a c u t e ; & p a r a ; & I g r a v e ; & E T H ; & i e x c l ; & p o u n d ; & n o t ; × & i c i r c ; & E T H ; & i e x c l ; & s u p 3 ; ¤ & p a r a ; & E g r a v e ; & I c i r c ; & o r d f ; " +   n M i n L e n   +   " × & O u m l ; & f r a c 1 2 ; & U a c u t e ; " ;  
 	 	 	 	 }  
 	 	 	 }  
 	 	 }  
 	 	 i f   ( n M a x L e n   >   0 )   {  
 	 	 	 i f   ( s t r L e n   >   n M a x L e n )   {  
 	 	 	 	 / /   i f   ( ( c h k F l g   &   0 x 0 8 )   = =   0 x 0 8 )   {  
 	 	 	 	 / /   	 r e t u r n   " & E c i r c ; & C c e d i l ; & E c i r c ; & y a c u t e ; × & O u m l ; & I u m l ; & i c i r c ; & A u m l ; & i q u e s t ; " ;  
 	 	 	 	 / /   }  
 	 	 	 	 / /   e l s e   {  
 	 	 	 	 	 r e t u r n   " & s u p 3 ; & n o t ; & s u p 1 ; & y a c u t e ; & A a c u t e ; & E u m l ; × & i c i r c ; & a c u t e ; ó & s u p 3 ; ¤ & p a r a ; & E g r a v e ; " +   n M a x L e n   +   " × & O u m l ; & f r a c 1 2 ; & U a c u t e ; " ;  
 	 	 	 	 / /   }  
 	 	 	 }  
 	 	 }  
 	 }  
  
  
 	 i f   ( ( c h k F l g   &   0 x 1 0 )   = =   0 x 1 0 )   {  
 	 	 i f   ( ! c h e c k A S C I I ( s C h e c k ) )   {  
 	 	 	 r e t u r n   " & s u p 2 ; & r a q u o ; & O t i l d e ; & y a c u t e ; & E g r a v e ; · " ;  
 	 	 }  
 	 }  
  
 	 i f   ( ( c h k F l g   &   0 x 0 8 )   = =   0 x 0 8 )   {  
 	 	 i f   ( ! c h e c k N u m b e r ( s C h e c k ) )   {  
 	 	 	 r e t u r n   " & E c i r c ; & C c e d i l ; & E c i r c ; & y a c u t e ; × & O u m l ; & I u m l ; & i c i r c ; & A u m l ; & i q u e s t ; " ;  
 	 	 }  
 	 }  
  
 	 i f   ( ( c h k F l g   &   0 x 0 4 )   = =   0 x 0 4 )   {  
 	 	 i f   ( ! c h e c k D a t e ( s C h e c k ) )   {  
 	 	 	 r e t u r n   " & E c i r c ; & C c e d i l ; & E g r a v e ; & O t i l d e ; & A E l i g ; & U a c u t e ; & I u m l ; & i c i r c ; & A u m l ; & i q u e s t ; " ;  
 	 	 }  
 	 }  
  
 	 i f   ( ( c h k F l g   &   0 x 0 2 )   = =   0 x 0 2 )   {  
 	 	 i f   ( ! c h e c k P h o n e ( s C h e c k ) )   {  
 	 	 	 r e t u r n   " & s u p 2 ; & r a q u o ; & O t i l d e ; & y a c u t e ; & E g r a v e ; · " ;  
 	 	 }  
 	 }  
  
 	 i f   ( ( c h k F l g   &   0 x 0 1 )   = =   0 x 0 1 )   {  
 	 	 i f   ( ! c h e c k E m a i l ( s C h e c k ) )   {  
 	 	 	 r e t u r n   " & s u p 2 ; & r a q u o ; & O t i l d e ; & y a c u t e ; & E g r a v e ; · " ;  
 	 	 }  
 	 }  
  
 	 r e t u r n   M S G _ C H E C K _ S U C C E S S ;  
 }  
  
 f u n c t i o n   c h e c k ( s I t e m N a m e ,   s C h e c k ,   n M i n L e n ,   n M a x L e n ,   c h k F l g )   {  
 	 s R e t   =   c h e c k I t e m ( s C h e c k ,   n M i n L e n ,   n M a x L e n ,   c h k F l g ) ;  
 	 i f   ( s R e t   ! =   M S G _ C H E C K _ S U C C E S S )   {  
 	 	 s E r r   + =   s I t e m N a m e   +   s R e t   +   " \ n " ;  
 	 	 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   t r i m I t e m s ( o F r m )   {  
 	 v a r   i   =   0 ;  
 	 v a r   t y p e   =   " " ;  
 	 f o r   ( i = 0 ;   i < o F r m . e l e m e n t s . l e n g t h ;   i + + )   {  
 	 	 t y p e   =   o F r m . e l e m e n t s [ i ] . t y p e ;  
 	 	 i f   ( ( t y p e   = =   " t e x t " )   | |   ( t y p e   = =   " t e x t a r e a " ) )   {  
 	 	 	 o F r m . e l e m e n t s [ i ] . v a l u e   =   t r i m ( o F r m . e l e m e n t s [ i ] . v a l u e ) ;  
 	 	 }  
 	 }  
 }  
  
 f u n c t i o n   g e t F i l e N a m e ( f u l l p a t h ) {  
 	 v a r   p l a t f o r m   =   n a v i g a t o r . p l a t f o r m ;  
 	 v a r   f i l e s e p e r a t o r = ( p l a t f o r m . i n d e x O f ( " W i n " ) = = - 1 ) ? " / " : " \ \ " ;  
 	 v a r   i d x   =   f u l l p a t h . l a s t I n d e x O f ( f i l e s e p e r a t o r ) ;  
 	 i f ( i d x   = =   - 1 ) {  
 	 	 r e t u r n   f u l l p a t h ;  
 	 }  
 	 e l s e   i f ( i d x   > =   f u l l p a t h . l e n g t h   - 1 ) {  
 	 	 r e t u r n   " " ;  
 	 }  
 	 e l s e {  
 	 	 r e t u r n   f u l l p a t h . s u b s t r i n g ( i d x + 1 ) ;  
 	 }  
 }  
  
  
 
