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

　　<%

　　'******************************

　　'函数：gen_key(digits)

　　'参数：digits----要生成随机数的位数

　　'作者：阿里西西

　　'日期：2007/7/13

　　'描述：生成由数字，大写字母，小写字母指定位数的随机数；返回值:要生成的指定倍数的随机数

　　'示例：<%=gen_key(8)%>

　　'******************************

　　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

　　%>