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

　　推荐阅读

　　asp实现取得数组中的最大值的代码

<% '****************************** '函数：GetMax(str) '参数：str，待处理的数字数组，以,分隔多了数字 '作者：阿里西西 '日期：2007/7/12 '描述：取得数组中的最大值 '示例：<%=GetMax("360,120,5,600,32")%> >>>详细阅读

本文标题：asp实现生成由数字，大写字母，小写字母指定位数的随机数

地址：http://www.17bianji.com/kaifa2/ASP/32502.html

 1/2    1