<%

'******************************

'函数：MakePassword(byvalmaxlen)

'参数：maxlen，要生成的密码位数长度

'作者：阿里西西

'日期：2007/7/12

'描述：产生任意位数随机密码

'示例：<%=MakePassword(8)%>

'******************************

functionMakePassword(byvalmaxlen)

dimstrnewpass

dimwhatsnext,upper,lower,intcounter

randomize

forintcounter=1tomaxlen

whatsnext=int((1-0+1)*rnd+0)

ifwhatsnext=0then

'character

upper=90

lower=65

else

upper=57

lower=48

endif

strnewpass=strnewpass&chr(int((upper-lower+1)*rnd+lower))

next

makepassword=strnewpass

endfunction

%>