如何做一个随机密码产生器?

<%
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 & "
"
) %>

’ 显示浏览器表头信息和服务器变量

<%
For Each name In Request.ServerVariables
Response.write(""&name&":
") Response.write(Request.ServerVariables(name)) Next %>

如何做一个随机密码产生器?_第1张图片

你可能感兴趣的:(如何做一个随机密码产生器?)