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

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

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

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

如何决定是否将登录内容保存到Cookie里？

如何决定是否将登录内容保存到Cookie里？
收藏 0 赞 0 分享

如何在ASP中恰当地运用Cookies？

如何在ASP中恰当地运用Cookies？
收藏 0 赞 0 分享

如何在Flash中处理Cookies？

如何在Flash中处理Cookies？
收藏 0 赞 0 分享

如何实现全文检索？

如何实现全文检索？
收藏 0 赞 0 分享

如何用FileSystemObject组件来做一个站内搜索？

如何用FileSystemObject组件来做一个站内搜索？
收藏 0 赞 0 分享

如何做一个文本搜索？

如何做一个文本搜索？
收藏 0 赞 0 分享

如何做一个只搜索本网站的引擎？

如何做一个只搜索本网站的引擎？
收藏 0 赞 0 分享

如何实现歌曲在线点播？

如何实现歌曲在线点播？
收藏 0 赞 0 分享

如何实现网上考试？

如何实现网上考试？
收藏 0 赞 0 分享

网上考试设计思路是怎样的？

网上考试设计思路是怎样的？
收藏 0 赞 0 分享
查看更多

网络赚钱

更多

站长故事

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