Asp 生成随机字符串13位(无错版)

What is Web编程 Readers Blog?

Web编程 Readers Blog集中了Web资深程序员的技巧和实战经验，涵盖了Web编程的全部范围: 3P(ASP, JSP, PHP) web编程技术，MySQL数据库开发，服务器网络安全和DIV+CSS布局等，提供一些优秀的编程源码，使您的Web编程学习之路更加平坦。

浏览模式: 标准 | 列表

Asp 生成随机字符串13位(无错版)

Submitted by 作者: admin 2008-05-06 15:17:09

<%@   LANGUAGE   =   VBScript   %>
<%
'参数digits，表示随机数的位数
Function   GetKey(digits)

dim   char_array(36)
dim   output,num
char_array(0)   =   "0"
char_array(1)   =   "1"
char_array(2)   =   "2"
char_array(3)   =   "3"
char_array(4)   =   "4"
char_array(5)   =   "5"
char_array(6)   =   "6"
char_array(7)   =   "7"
char_array(8)   =   "8"
char_array(9)   =   "9"
char_array(10)   =   "a"
char_array(11)   =   "s"
char_array(12)   =   "d"
char_array(13)   =   "f"
char_array(14)   =   "e"
char_array(15)   =   "f"
char_array(16)   =   "g"
char_array(17)   =   "h"
char_array(18)   =   "i"
char_array(19)   =   "j"
char_array(20)   =   "k"
char_array(21)   =   "l"
char_array(22)   =   "m"
char_array(23)   =   "n"
char_array(24)   =   "o"
char_array(25)   =   "p"
char_array(26)   =   "q"
char_array(27)   =   "r"
char_array(28)   =   "s"
char_array(29)   =   "t"
char_array(30)   =   "u"
char_array(31)   =   "v"
char_array(32)   =   "w"
char_array(33)   =   "x"
char_array(34)   =   "y"
char_array(35)   =   "z"

randomize

do   while   len(output)   <   digits
num   =   char_array(Int((35)   *   Rnd   +   0))
output   =   output   +   num
loop

GetKey   =   output
End   Function

'把结果返回给浏览器
response.write   "本实例生成的十三位随机字符串为:"
response.write   "<center>"
for j = 0 to 500
    response.write   GetKey(13)
    response.write   "<br>"
next

response.write   "</center>"
%>

Web编程 Readers Blog

create the blog for Web编程 scholars

What is Web编程 Readers Blog?