ASP生成随机密码的又一种方法

韩冰

dim char_array(35)

char_array(0) = '0'

* y( y$ l+ Q7 M

char_array(1) = '1'

char_array(2) = '2'

char_array(3) = '3'

char_array(4) = '4'

char_array(5) = '5'

char_array(6) = '6'

char_array(7) = '7'

' ~8 F. `' d, r/ J \/ u

char_array(8) = '8'

char_array(9) = '9'

: x$ O& Y2 e5 R4 n% t( ^

char_array(10) = 'A'

5 W# U9 G* l, b. P7 }/ v( `- @

char_array(11) = 'B'

. I7 h) r7 X$ w A* }; [

char_array(12) = 'C'

& K1 ^* |2 o6 d) D) y

char_array(13) = 'D'

char_array(14) = 'E'

- o0 A& T0 ]/ n4 }$ r

char_array(15) = 'F'

char_array(16) = 'G'

char_array(17) = 'H'

& b3 t2 D' ]0 |2 b" [: k' W

char_array(18) = 'I'

char_array(19) = 'J'

char_array(20) = 'K'

char_array(21) = 'L'

char_array(22) = 'M'

char_array(23) = 'N'

7 Q- Y+ |' ^7 j% s3 K3 g

char_array(24) = 'O'

" w% M! X4 e8 n5 x* Y+ J

char_array(25) = 'P'

char_array(26) = 'Q'

char_array(27) = 'R'

- k# |8 w& E! a

char_array(28) = 'S'

7 b8 [/ G2 p3 A. h

char_array(29) = 'T'

7 {3 z7 n3 i4 Z7 d

char_array(30) = 'U'

char_array(31) = 'V'

8 V# I' b z/ G+ ^- K

char_array(32) = 'W'

5 {- y1 K/ {4 Y! U) _& X0 Y

char_array(33) = 'X'

char_array(34) = 'Y'

. a" Z: z2 l5 R9 t6 P

char_array(35) = 'Z'

randomize

1 l7 h1 `- W; [2 `; z0 Q) Y( v

do while len(output) num = char_array(Int(35 * Rnd + 0))

k; J. L& q5 |& Y5 I

output = output + num

loop

" k# Q" S, f1 t/ T

gen_key = output

1 T1 o. [& @$ R9 D# e

End Function

: R, ]0 g( G: p, n ^

response.write '随机密码是：' & gen_key(10)

+ q; V) R" m) ~$ B) q r

这是一个生成随机数的通用函数，我们首先将所有可能的字符保存在数组内，这里的例子是0-9及26个英文字符，共36个字符。注意数组下标是从0开始的，所以dim char_array(35)，其实表示有36个字符。注意：本例没有专门区分字母的大小写，如果你还要加上“大小写敏感/区分大小写”特性的话，修改数组大小为char_array(50)，然后在后面列出所有可能的小写字符。例如：

char_array(36) = 'a'

/ K: L2 e: Q( O! S3 L+ g

char_array(37) = 'b'

- l& W- v: i; K' x, p7 f. V

...............类推

8 G0 l0 l" c# F' {' z

注意这是一个可以通用的函数，gen_key(digits)它传进一个参数digits，代表要生成的随机密码位数。今后要生成20为密码就用gen_key(20)即可打印出密码，或者将它保存在数据库内。

兄弟

强悍啊