免费CHAT GPT-http://chat.winvvv.com欢迎使用

如何编制一个产生随机密码的函数？林青霞邀请莫言做客企业微信

 <%
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
        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]

企业微信坠楼昏迷90天苏醒