开发学院WEB开发ASP 产生随机密码的函数 阅读

产生随机密码的函数

 2001-02-13 10:56:00 来源:WEB开发网   
核心提示:<%response.write makePassWord(16)function makePassword(byVal maxLen)Dim strNewPassDim whatsNext, upper, lower, intCounterRandomizeFor intCounter = 1 To maxLe
<%
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
%>  

Tags:产生 随机 密码

编辑录入:爽爽 [复制链接] [打 印]
[]
  • 好
  • 好的评价 如果觉得好,就请您
      0%(0)
  • 差
  • 差的评价 如果觉得差,就请您
      0%(0)
赞助商链接