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) di…

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((620 + 1) * Rnd + 0))
output = output + num
loop
gen_key = output‘设置返回值
End Function
‘返回结果
response.write gen_key(8)
%>
本文来自网络,不代表24小时课堂在线立场,转载请注明出处:http://www.24ketang.cn/2748.html

作者: 王超博客

为您推荐

发表评论

电子邮件地址不会被公开。 必填项已用*标注

返回顶部