首页 > 学院 > 编程设计 > 正文

如何编制一个产生随机密码的函数？

2020-06-19 13:50:27

字体：大中小

来源：转载

供稿：网友

<%
response.write makePassword(16)

function makePassword(byVal maxLen)

Dim strNewPass
Dim whatsNext, upper, lower, intCounter
Randomize

For intCounter = 1 To maxLen
whatsNext = Int((1 - 0 + 1) * Rnd + 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
makePassword = strNewPass
' 指定字符范围.

end function
%>

[1]

上一篇：如何利用当前时间生成随机函数？

下一篇：怎样避免直接在地址栏敲入URL即可绕过登录页的错误？

学习交流

系统运行缓慢的解决思路

系统运行缓慢的解决思路...

热门图片

猜你喜欢的新闻

猜你喜欢的关注

新闻热点

字节跳动公司一季度营收约为400亿元人民币同比增长130%

2020-06-17 22:25:48

新浪微博：6月12日22时起用户发布评论须关注博主7天以上

2020-06-13 23:26:17

中国联通宣布公用电话全面停止服务：IC卡、校园卡再见！

2020-06-12 23:14:25

对话张朝阳：我已经直播很多年了，每天都教英语

2020-06-12 23:10:32

人人App疑遭全网下架：已无法搜索到该应用

2020-06-12 23:07:24

王健林电商梦破灭！飞凡宣告注销万达退出电商业务

2020-06-10 13:37:38

疑难解答

图片精选

网友关注