ASP生成随机字符串(数字+大小写字母)的代码

时间:2022-06-01 18:26:15
  1. <%  
  2. 'ASP生成随机字符串(数字+大小写字母)练习  
  3. '阿会楠练习,为我所用,非我所想   
  4. Function randKey(obj)  
  5.  Dim char_array(80)  
  6.  Dim temp  
  7.  For i = 0 To 9   
  8.   char_array(i) = Cstr(i)  
  9.  Next  
  10.  For i = 10 To 35  
  11.   char_array(i) = Chr(i + 55)  
  12.  Next  
  13.  For i = 36 To 61  
  14.   char_array(i) = Chr(i + 61)  
  15.  Next  
  16.  Randomize  
  17.  For i = 1 To obj  
  18.   'rnd函数返回的随机数在0~1之间,可等于0,但不等于1  
  19.   '公式:int((上限-下限+1)*Rnd+下限)可取得从下限到上限之间的数,可等于下限但不可等于上限  
  20.   temp = temp&char_array(int(62 - 0 + 1)*Rnd + 0)  
  21.  Next  
  22.  randKey = temp  
  23. End Function  
  24. Response.Write(randKey(6))  
  25. %>