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生成随机字符串(数字+大小写字母)示例代码

赞 (0)
分享到:更多 ()