搜索文章:

首页  |  Java技术  |  Asp.net  |  Asp编程  |  VC/C++  |  Delphi  |  VB编程

产生随机密码的函数

作者: 整理
<%
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
%>
下一篇:这里!! >>
相关文章:
© 2006   www.java-asp.net