Asp随机生成一个密码

<%
'生成随机密码

genPassword = ""
Randomize
For i = 1 to 8
intNum = Int(10 * Rnd + 48)
intUpper = Int(26 * Rnd + 65)
intLower = Int(26 * Rnd + 97)
intRand = Int(3 * Rnd + 1)
Select Case intRand
Case 1
strPartPass = Chr(intNum)
Case 2
strPartPass = Chr(intUpper)
Case 3
strPartPass = Chr(intLower)
End Select
genPassword = genPassword & strPartPass
Next
response.write(genPassword & "<br>")
 %>

引用地址:

发表评论
post by 不懂戀愛魚兒 | 2010年8月12日 | 归档于 [Asp技术]
标签: asp

发表评论

sitemap