首页 网页制作网络编程脚本专栏数据库网站运营网络安全平面设计CMS教程

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

所属分类： 网络编程 / 编程10000问 阅读数： 1534
收藏 0 赞 0 分享
<%
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]

更多精彩内容其他人还在看

如何把一长串数字分位显示？

如何把一长串数字分位显示？
收藏 0 赞 0 分享

如何正确显示数据库里同时存在的GB码和BIG5码？

如何正确显示数据库里同时存在的GB码和BIG5码？
收藏 0 赞 0 分享

如何实现人民币的大写转换？

如何实现人民币的大写转换？
收藏 0 赞 0 分享

怎样给文件加密最安全？

怎样给文件加密最安全？
收藏 0 赞 0 分享

如何用Access加密页面？

如何用Access加密页面？
收藏 0 赞 0 分享

为什么用磁盘序列号加密过的代码不能被复制安装？

为什么用磁盘序列号加密过的代码不能被复制安装？
收藏 0 赞 0 分享

如何根据用户银行帐户余额的多少进行显式的提交或终止？

如何根据用户银行帐户余额的多少进行显式的提交或终止？
收藏 0 赞 0 分享

如何获知所有的Cookie？

如何获知所有的Cookie？
收藏 0 赞 0 分享

如何提示用户打开Cookie？

如何提示用户打开Cookie？
收藏 0 赞 0 分享

如何刪除客户端的Cookies？

如何刪除客户端的Cookies？
收藏 0 赞 0 分享
查看更多

网络赚钱

更多

站长故事

更多
建站极客
合作伙伴
在线工具
建站极客移动版
聚合全网技术文章，根据你的阅读喜好进行个性推荐
© 2012 - 2020 www.zhanzhang360.cn Some Rights Reserved.
沪ICP备13040166号-22