<% '****************************** '函數(shù)：gen_key(digits) '參數(shù)：digits----要生成隨機數(shù)的位數(shù) '作者：阿里西西 '日期：2007/7/13 '描述：生成由數(shù)字，大寫字母，小寫字母指定位數(shù)的隨機數(shù)；返回值:要生成的指定倍數(shù)的隨機數(shù) '示例：<%=gen_key(8)%> '****************************** Function gen_key(digits) '定義并初始化數(shù)組 dim char_array(80) '初始化數(shù)字 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 '初始化隨機數(shù)生成器。 do while len(output) < digits num = char_array(Int((62 - 0 + 1) * Rnd + 0)) output = output + num loop '設置返回值 gen_key = output End Function %>
