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

asp产生随机密码的函数

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

产生随机密码的函数

<%
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制作的日历程序
  3. 水晶报表有关问题
  4. 乱码有关问题，乱码只是从数据库里面取出来的数据会乱码，页面其他不乱码
  5. ASP教程：OpenSchema方法技术探讨
  6. 求asp调用数据库的sql语句？解决办法
  7. 大家哪位高手能给小弟我翻译下这段js,小弟我实在搞不懂是什么意思(模仿QQ菜单,小弟我从网上找的)!
  8. 怎么将要编辑的内容载入FCK编辑器
  9. 客户机提交网页到服务器后,服务器怎样能自动运行一个处理页面,这个页面需要提交给另一个服务器解决方案