如何编制一个产生随机密码的函数？

<%response.write makePassword(16)function makePassword(byVal maxLen)Dim strNewPassDim whatsNext, upper, lower, intCounterRandomizeFor intCounter = 1 To maxLen whatsNext = Int((1 – 0 + 1) * Rnd + 0)If whatsNext = 0 Then upper = 90 lower = 65Else upper = 57 lower = 48End If strNewPass = strNewPass & Chr(Int((upper – lower + 1) * Rnd + lower))Next makePassword = strNewPass \’ 指定字符范围.end function%>

[1]