1. 爱易网页
  2. ASP教程
  3. asp产生随机密码的函数

asp产生随机密码的函数

日期：2011-12-03　 浏览次数：21067 次

产生随机密码的函数

<%
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


%>

相关资料更多>

  1. 高分求ASP版微信自定义菜单的写法。跪求解决方案
  2. 使用fso在c:\创建1.txt的文本文件解决方案
  3. 请教首页最新3天日期怎么显示红色
  4. 站点统计有关问题
  5. ASP进阶教程Ⅶ：留言簿设置密码验证
  6. VBScript 函数
  7. JScript 方法 - floor 方法
  8. ASP做象资源管理器的树形目录
  9. 远程数据获取之ASP小偷程序的入门教程