首页 > 网站 > 建站经验 > 正文

asp 一个简单生,成随机数程序

2019-11-02 15:30:54

字体：大中小

来源：转载

供稿：网友

一个简单生成随机数程序
Public Function GetRndCode(maxLen)
Dim strNewPass,whatsNext,upper,lower,intCounter
Randomize
For intCounter = 1 To maxLen
whatsNext = Int((1 - 0 + 1) * Rnd

双视影院[www.aikan.tv/special/shuangshiyingyuan/]

+ 0)
   If whatsNext = 0 Then
    upper = 90
    lower = 65
   Else
    upper = 57
    lower = 48
   End If
   strNewPass = strNewPass & Chr(Int((upper - lower + 1) * Rnd + lower))
Next
GetRndCode = strNewPass
End Function

使用方法
code =GetRndCode(15)

上一篇：asp 判断,数字是否整形

下一篇：asp 判断!客户端操作系统

学习交流

索泰发布一款GTX 1070 Mini迷你版本:小机

索泰发布一款GTX 1070 Mini迷你版本:小机箱大爱...

热门图片

猜你喜欢的新闻

猜你喜欢的关注

新闻热点

荣耀总裁赵明乌镇演讲：荣耀首款5G手机V30下月发布

2019-10-23 09:17:05

搜狐张朝阳：回归媒体是搜狐重新崛起的关键

2019-10-21 09:20:02

华为轮值董事长郭平：虚拟技术创造现实价值

2019-10-21 09:00:12

滴滴英文服务上线两周年用户已超200万

2019-09-26 08:57:12

华为推出全球至快AI训练集群Atlas900

2019-09-25 08:46:36

马斯克：特斯拉正组建中国技术团队

2019-09-25 08:15:43

疑难解答

图片精选

网友关注