<% '****************************** '函数：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 %>