ASP生成随机自定义长度的密码,可用于自己生成用户密码,找回密码功能,本函数生成的密码为纯数字型,适用于对密码强度要求不高的场合。
<% '生成随机自定义长度密码 Function makePassword(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 '调用举例:很简单的调用方法: 'Response.Write makepassword(8) %>