产生随机密码的ASP函数

ggp asp 2013-06-29 600 次浏览

<%
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
%>尿道口尖锐湿疣浙江尖锐湿疣医院江苏性病医院

回顶部