代码如下:<% ‘系统分配随机密码 Function Createpass() Dim Ran, i, LengthNum LengthNum = 6 Createpass = “” For i = 1 To LengthNum Randomize Ran = CInt(Rnd * 2) Randomize If Ran = 0 Then Ran = CInt(Rnd * 25) + 97