ASP生成随机字符串(数字+大小写字母)示例代码
| 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 |
<% Function gen_key (digits ) dim char_array ( 80 ) ‘定义并初始化数组 For i = 0 To 9 ‘初始化数字 char_array (i ) = CStr (i ) Next For i = 10 To 35 ‘初始化大写字母 char_array (i ) = Chr (i + 55 ) Next For i = 36 To 61 ‘初始化小写字母 char_array (i ) = Chr (i + 61 ) Next Randomize ‘初始化随机数生成器。 do while len (output ) < digits num = char_array ( Int ( ( 62 – 0 + 1 ) * Rnd + 0 ) ) output = output + num loop gen_key = output ‘设置返回值 End Function ‘返回结果 response. write gen_key ( 8 ) %> |
» ASP生成随机字符串(数字+大小写字母)示例代码
