asp 下产生任意位数随机密码的代码

<%
"******************************
"函数：MakePassword（byval maxlen）
"参数：maxlen，要生成的密码位数长度
"作者：阿里西西
"日期：2007/7/12
"描述：产生任意位数随机密码
"示例：<%=MakePassword（8）%>
"******************************
function MakePassword（byval maxlen）
dim strnewpass
dim whatsnext, upper, lower, intcounter
randomize
for intcounter = 1 to maxlen
whatsnext = int（（1 - 0 + 1） * rnd + 0）
if whatsnext = 0 then
"character
upper = 90
lower = 65
else
upper = 57
lower = 48
end if
strnewpass = strnewpass & chr（int（（upper - lower + 1） * rnd + lower））
next
makepassword = strnewpass
end function
%>