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

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22

<% 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 '返回结果 response.write gen_key(8) %>

未经允许不得转载：王超博客 » ASP生成随机字符串(数字+大小写字母)示例代码