随机码的生成

 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()% >