随机码的生成

登录后复制

      
      

       
        1   < %
       
       
 2   Function  RndCode()
       
       
 3  CodeSet  =   " 0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz" 
       
       
 4   AmountSet  =   62   '  文字数量 
       
       
 5   Randomize 
       
       
 6  
       
       
 7   '  随机产生字符 
       
       
 8   Dim  vCode( 10 ), vCodes
       
       
 9   For  i  =   0   To   9 
       
       
10    vCode(i)  =   Int ( Rnd   *  AmountSet)
       
       
11    vCodes  =  vCodes  &   Mid (CodeSet, vCode(i)  +   1 ,  1 )
       
       
12   Next 
       
       
13  RndCode = vCodes
       
       
14   End Function 
       
       
15  
       
       
16  % > 
       
       
17   < % = RndCode()% >
       
       

      
      
      
      

       
       
1.
       
       
2.
       
       
3.
       
       
4.
       
       
5.
       
       
6.
       
       
7.
       
       
8.
       
       
9.
       
       
10.
       
       
11.
       
       
12.
       
       
13.
       
       
14.
       
       
15.
       
       
16.
       
       
17.