ASP生成指定位数随机密码的程序代码

程序代码
<%
function genPassword(length)
    Randomize
    do until len(newPass) = length
        code = Int((74 * Rnd) + 48)
        if not((code >= 58 and code <= 64) or (code >= 91 and code <= 96)) then
            newPass = newPass & chr(code)
        end if
    loop
    genPassword = newPass
end function

response.write genpassword(512)
%>