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

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