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

上一个：asp下返回以千分位显示数字格式化的数值
下一个：asp 将日期格式化为需要的格式