asp实现生成由数字，大写字母，小写字母指定位数的随机数——同城生活贴吧——123发布网|123同城网|123同城信息网|免费发布信息|123招聘|123交友|123房产

登录123 | 账号: 密码: 商铺贴吧

今天是：


供应求购	免费商铺	商业资讯	库存二手	黄页大全		生活贴吧	房屋租售	招聘求职	婚恋交友	自助广告

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

发布时间：2011/1/22 9:42:08 发布人：qqqqqq 点击：188

asp实现生成由数字，大写字母，小写字母指定位数的随机数
www.firnow.com 时间： 2010-09-02 作者：网络编辑：huyang629 点击： 15 [ 评论 ]
-
-
<%
'******************************
'函数：gen_key(digits)
'参数：digits----要生成随机数的位数
'作者：阿里西西
'日期：2007/7/13
'描述：生成由数字，大写字母，小写字母指定位数的随机数；返回值:要生成的指定倍数的随机数
'示例：<%=gen_key(8)%>
'******************************
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
%>

回复此帖

※

发布回复

↓请遵循123发布网同城生活贴吧/论坛发帖规则；↓寻一夜情、包养、招嫖类信息的一律全部删除，并报公安备案↓

回复标题：
回复内容：
上传图片：
验证码：