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

asp产生随机密码的函数

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

产生随机密码的函数

<%
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编程要点ABC之一
  2. 如何完整纪录站内所有网页点选次数
  3. ASP数据库事务处理
  4. c# 兑现网页上用户自动登陆|asp.net 模拟网站登录
  5. 怎么查询数组里包含某个值的记录
  6. ASP与sql server的连接有关问题！新手！
  7. SQL语句有关问题、求帮吗！
  8. 大家觉得是动网论坛做的好呀，还是csdn的论坛好，csdn为何不用动网的论坛呀，功能会多一些呀。为何要自已开发呢？该怎么解决
  9. 简单的ASP无组件上传类