随机码的生成

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

转载于:https://www.cnblogs.com/Dicky/archive/2005/05/25/162520.html