-
<%
-
'******************************
-
'函数：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
-
%>
