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

声明：本站所有文章，如无特殊说明或标注，均为本站原创发布。任何个人或组织，在未征得本站同意时，禁止复制、盗用、采集、发布本站内容到任何网站、书籍等各类媒体平台。如若本站内容侵犯了原著者的合法权益，可联系我们进行处理。