<
******************************
功能：MakePassword（ByVal maxlen）
参数：maxlen，密码的长度数将产生
作者：Ali Cici
日期：2007 7 12
描述：生成随机数的随机密码
的例子：
******************************
功能makepassword（ByVal maxlen）
昏暗的strnewpass
昏暗的下一项是什么，上，下，intcounter
随机化
对于intcounter = 1 maxlen
下一项是什么= int（（1 + 1）*、+ 0）
如果下一项是什么= 0
'字符
上= 90
低= 65
其他的
上= 57
低= 48
最后如果
strnewpass = strnewpass CHR（int（（（（上-下+ 1）*、+下）））
下一个
makepassword = strnewpass
端功能
%>