如何创建一个生成随机密码的函数

<
response.write makepassword（16）

功能makepassword（ByVal maxlen）

昏暗的strnewpass
昏暗的下一项是什么，上，下，intcounter
随机化

对于intcounter = 1 maxlen
下一项是什么= Int（（1 + 1）*、+ 0）
如果下一项是什么= 0
上= 90
低= 65
其他的
上= 57
低= 48
最后如果
strnewpass = strnewpass CHR（Int（（（（上-下+ 1）*、+下）））
下一个
makepassword = strnewpass
指定字符范围。

端功能
%>

{ 1 }