ASP生成随机密码的又一种方法
<P>dim char_array(35) </P><P>char_array(0) = '0' </P>
<P>char_array(1) = '1' </P>
<P>char_array(2) = '2' </P>
<P>char_array(3) = '3' </P>
<P>char_array(4) = '4' </P>
<P>char_array(5) = '5' </P>
<P>char_array(6) = '6' </P>
<P>char_array(7) = '7' </P>
<P>char_array(8) = '8' </P>
<P>char_array(9) = '9' </P>
<P>char_array(10) = 'A' </P>
<P>char_array(11) = 'B' </P>
<P>char_array(12) = 'C' </P>
<P>char_array(13) = 'D' </P>
<P>char_array(14) = 'E' </P>
<P>char_array(15) = 'F' </P>
<P>char_array(16) = 'G' </P>
<P>char_array(17) = 'H' </P>
<P>char_array(18) = 'I' </P>
<P>char_array(19) = 'J' </P>
<P>char_array(20) = 'K' </P>
<P>char_array(21) = 'L' </P>
<P>char_array(22) = 'M' </P>
<P>char_array(23) = 'N' </P>
<P>char_array(24) = 'O' </P>
<P>char_array(25) = 'P' </P>
<P>char_array(26) = 'Q' </P>
<P>char_array(27) = 'R' </P>
<P>char_array(28) = 'S' </P>
<P>char_array(29) = 'T' </P>
<P>char_array(30) = 'U' </P>
<P>char_array(31) = 'V' </P>
<P>char_array(32) = 'W' </P>
<P>char_array(33) = 'X' </P>
<P>char_array(34) = 'Y' </P>
<P>char_array(35) = 'Z' </P>
<P>randomize</P>
<P>do while len(output) num = char_array(Int(35 * Rnd + 0))</P>
<P>output = output + num</P>
<P>loop</P>
<P>gen_key = output</P>
<P>End Function</P>
<P>response.write '随机密码是：' & gen_key(10) </P>
<P>这是一个生成随机数的通用函数，我们首先将所有可能的字符保存在数组内，这里的例子是0-9及26个英文字符，共36个字符。注意数组下标是从0开始的，所以dim char_array(35)，其实表示有36个字符。注意：本例没有专门区分字母的大小写，如果你还要加上“大小写敏感/区分大小写”特性的话，修改数组大小为char_array(50)，然后在后面列出所有可能的小写字符。例如：</P>
<P>char_array(36) = 'a'</P>
<P>char_array(37) = 'b'</P>
<P>...............类推 </P>
<P>注意这是一个可以通用的函数，gen_key(digits)它传进一个参数digits，代表要生成的随机密码位数。今后要生成20为密码就用gen_key(20)即可打印出密码，或者将它保存在数据库内。</P> 强悍啊:)
页:
[1]