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>")
%>
最新评论
真是很精彩
第一页打开可以...
我按你的方法去...
Yes, probably so it ...
好,学习了。
不懂恋爱鱼儿!...
实用.我喜欢
多谢.一次性解决...
很好,收藏了
删除后不能发表...