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

asp产生随机密码的函数

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

产生随机密码的函数

<%
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. ASP不用Golobal和session实现在线人数统计
  3. 大家帮小弟我看看下面的代码有什么有关问题 调试通不过
  4. 无限级目录树+记忆节点状态
  5. 将ASP动态网页转换成HTM静态页面的方法
  6. 哪位朋友能提供基于Web的五子棋代码？该如何解决
  7. 关于生成HTML文件的新闻系统
  8. 动态创建下拉菜单
  9. ASP页面ACCESS数据库链接出异常