随机密码产生器（转）
<%
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 & "
")
%>
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 & "
")
%>
Display All Browser Headers and Server Variables
<%
For Each name In Request.ServerVariables
Response.write(""&name&":
")
Response.write(Request.ServerVariables(name))
Next
%>
来自 “ ITPUB博客 ” ，链接：https://blog.itpub.net/10294527/viewspace-124733/ ，如需转载，请注明出处，否则将追究法律责任。
上一篇：
测试字符串是否为big或big5码（转）
请登录后发表评论
登录
全部评论
