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

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

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

可以让程序告诉我详细的页面错误和数据库连接错误吗？

可以让程序告诉我详细的页面错误和数据库连接错误吗？
收藏 0 赞 0 分享

如何把Recordset转换成彩色的XML文件

如何把Recordset转换成彩色的XML文件
收藏 0 赞 0 分享

如何把URL和邮件地址转换为超级链接？

如何把URL和邮件地址转换为超级链接？
收藏 0 赞 0 分享

如何把一个Excel文件放到ASP页面中去？

如何把一个Excel文件放到ASP页面中去？
收藏 0 赞 0 分享

如何把中文转换为UNICODE？

如何把中文转换为UNICODE？
收藏 0 赞 0 分享

如何编写TOP 10之类的排行榜？

如何编写TOP 10之类的排行榜？
收藏 0 赞 0 分享

如何动态添加Form项？

如何动态添加Form项？
收藏 0 赞 0 分享

如何读取一个.ini文件？

如何读取一个.ini文件？
收藏 0 赞 0 分享

如何计算ASP页面的载入时间？

如何计算ASP页面的载入时间？
收藏 0 赞 0 分享
查看更多

网络赚钱

更多

站长故事

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