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

时间:2022-09-18 12:17:39
  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. %>