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

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

' 显示浏览器表头信息和服务器变量
<%
for each name in request.servervariables
response.write("<b>"&name&"</b>:<br>")
response.write(request.servervariables(name))
next
%>

[1]