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

asp产生随机密码的函数

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

产生随机密码的函数

<%
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. 正则表达式简介（微软）--3.使用正则表达式
  2. 【spring学习笔记2】AspactJ常见注解和xml实现
  3. 一个asp快速字符串连接类
  4. 怎么实现文本框剩余可输入字符数动态提示
  5. 另类扩展名同样执行ASP
  6. 利用Application和Session优化Asp的数据库联接
  7. 高手们,新年快乐!求非常简单的解决方法?(解决一定送分)
  8. 一个不明白的有关问题
  9. 分页控制