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

韩冰

dim char_array(35)

* `" e" q5 t7 r% s$ F: ^0 ~

char_array(0) = '0'

+ F' g5 Q4 T% @

char_array(1) = '1'

U! z8 b$ T1 d

char_array(2) = '2'

char_array(3) = '3'

char_array(4) = '4'

char_array(5) = '5'

5 ?5 V9 F/ w, s( D/ Q

char_array(6) = '6'

0 H1 O& f; v+ o

char_array(7) = '7'

( y; d7 W# F9 B. [6 ]

char_array(8) = '8'

, A4 W! H) p; }' [9 ]% N- C

char_array(9) = '9'

char_array(10) = 'A'

3 q. |: ~0 a3 w4 e: y

char_array(11) = 'B'

char_array(12) = 'C'

/ B( c, L0 \$ T3 p7 N

char_array(13) = 'D'

char_array(14) = 'E'

char_array(15) = 'F'

char_array(16) = 'G'

; T1 _# c/ {8 L# u. S4 b. v* S

char_array(17) = 'H'

o9 y) u ?1 }, {4 m: S( g$ u

char_array(18) = 'I'

char_array(19) = 'J'

char_array(20) = 'K'

char_array(21) = 'L'

) E, D+ d* E) M- {

char_array(22) = 'M'

4 R( v h1 y4 o

char_array(23) = 'N'

* `; H8 R% {, ~: \* V0 z

char_array(24) = 'O'

: D+ B% ?1 J% d0 S% @ ?

char_array(25) = 'P'

char_array(26) = 'Q'

: z2 S, y; A2 d$ W6 n2 a+ U1 K# n

char_array(27) = 'R'

% `7 O# e' D7 ?9 i B7 i8 y# G8 x

char_array(28) = 'S'

char_array(29) = 'T'

char_array(30) = 'U'

" R& e2 {. p h; Z% g' n, y

char_array(31) = 'V'

char_array(32) = 'W'

char_array(33) = 'X'

, j- J' O! a: y d( i$ z

char_array(34) = 'Y'

9 b& a( j4 f1 j) s3 G0 I/ m

char_array(35) = 'Z'

randomize

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

) f& I. q0 x) i& ^

output = output + num

8 M6 e: W( ? K7 ^- n

loop

gen_key = output

End Function

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

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

6 D9 c9 a$ _5 \4 J' w+ q

char_array(36) = 'a'

9 G" O$ e) B4 \7 K2 d$ z

char_array(37) = 'b'

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

7 O; q7 i2 ]6 V! G- C

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

兄弟

强悍啊