ASP生成指定位数的随机密码技巧

程序代码iUZ中国设计秀
<%iUZ中国设计秀
function genPassword(length)iUZ中国设计秀
    RandomizeiUZ中国设计秀
    do until len(newPass) = lengthiUZ中国设计秀
        code = Int((74 * Rnd) + 48)iUZ中国设计秀
        if not((code >= 58 and code <= 64) or (code >= 91 and code <= 96)) theniUZ中国设计秀
            newPass = newPass & chr(code)iUZ中国设计秀
        end ifiUZ中国设计秀
    loopiUZ中国设计秀
    genPassword = newPassiUZ中国设计秀
end functioniUZ中国设计秀

response.write genpassword(512)iUZ中国设计秀
%>iUZ中国设计秀