如何编制一个产生随机密码的函数？
更新时间：2006年11月16日 00:00:00 作者：
（福利推荐：【腾讯云】服务器最新限时优惠活动，云服务器1核2G仅99元/年、2核4G仅768元/3年，立即抢购>>>：9i0i.cn/qcloud）
（福利推荐：你还在原价购买阿里云服务器？现在阿里云0.8折限时抢购活动来啦！4核8G企业云服务器仅2998元/3年，立即抢购>>>：9i0i.cn/aliyun）
<%
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
%>
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]
相关文章
如何更好地保护我的网页？...2006-11-11
如何创建一个PDF文件？...2006-11-11
如何在ASP中恰当地运用Cookies？...2006-11-11
网上考试设计思路是怎样的？...2006-11-11
如何实现无组件上传二进制文件？...2006-11-11
这篇文章主要为大家介绍了为什么数组下标是从0?开始而不是?1?呢的问题解析，有需要的朋友可以借鉴参考下，希望能够有所帮助，祝大家多多进步，早日升职加薪2023-04-04
如何用下拉列表显示数据库里的内容？...2006-11-11
如何在读取Excel文件时创建列表的下拉菜单？...2006-11-11
这篇文章主要为大家介绍了web面试中面试官会经常问到的http缓存问题，本文来为大家极大为什么要有http缓存?http缓存之强制缓存，协商缓存中的资源标识等问题2021-09-09
在之前，信息量不像现在那么大的时候，我们通过一些分类网站去获取我们想要的信息，随着互联网信息量越来越大，用户大多时候并不清楚自己想要搜什么，这就需要推荐系统去给用户推荐2021-08-08
最新评论