产生随机密码的函数
敬业的IT人
互联网
佚名
2008-4-14 16:37:03
<%
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
'character
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
'character
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
%>
- 最新文章
- 一个漂亮的点击计数器[04-14]
- 搜索按钮(客户端表单)[04-14]
- 转换字符串带有http://的超级链接字符串为真正的超级链接..[04-14]
- 编写数据库脚本[04-14]
- 用ASP建立邮件列表[04-14]
- 用ASP技术编制隐藏用户密码程序[04-14]
- 相关文章
- 用ASP技术编制隐藏用户密码程序[04-14]
- 产生密码，记录到数据库，然后发送给用户。[04-14]
- 加密处理使密码更安全[04-14]
- PKCS #5: 基于口令的密码系统规范 版本2.0[03-18]
- 密码保护[03-13]
- 分机密码锁[03-11]
