asp实现生成由数字，大写字母，小写字母指定位数的随机数

1. <%  
2. '******************************  
3. '函数：gen_key(digits)  
4. '参数：digits----要生成随机数的位数  
5. '作者：阿里西西  
6. '日期：2007/7/13  
7. '描述：生成由数字，大写字母，小写字母指定位数的随机数；返回值:要生成的指定倍数的随机数  
8. '示例：<%=gen_key(8)%>  
9. '******************************  
10. Function gen_key(digits)  
11. '定义并初始化数组  
12.     dim char_array(80)  
13.    '初始化数字  
14.     For i = 0 To 9  
15.         char_array(i) = CStr(i)  
16.     Next  
17.    '初始化大写字母  
18.     For i = 10 To 35  
19.         char_array(i) = Chr(i + 55)  
20.     Next  
21.    '初始化小写字母  
22.     For i = 36 To 61  
23.         char_array(i) = Chr(i + 61)  
24.     Next  
25.    Randomize   '初始化随机数生成器。  
26.    do while len(output) < digits  
27.         num = char_array(Int((62 - 0 + 1) * Rnd + 0))  
28.         output = output + num  
29.     loop  
30. '设置返回值  
31.     gen_key    =    output  
32. End Function  
33. %>