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. %>