网站制作学习网ASP→正文:随机密码的函数
字体:

随机密码的函数

ASP 2008/1/12 8:20:24  点击:不统计

<%

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



伊图教程网[www.etoow.com]

http://www.etoow.com/html/2007-08/1186185558.html

'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

%>



·上一篇:asp站点的停留时间 >>    ·下一篇:ASP实现UBB功能 >>
推荐文章
最新文章