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

asp产生随机密码的函数

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

产生随机密码的函数

<%
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. 一个在线交易市场方案的设计与实现（二)
  2. 利用ASP打造网站论坛DIY(二)
  3. 正则表达式简介（微软）--6.优先权顺序_正则表达式_ASP教程
  4. 服务器端的包含指令
  5. ASP+javascript的完整的日历使用
  6. 在ASP中使用MD5加密_ASP安全加密_ASP教程
  7. 二十八条改善 ASP 性能和外观的技巧(8-14)
  8. asp.net gridview通用种
  9. 解决ASP无法查询包含日文字符的SQL语句问题