<% '系统分配随机密码 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                 Createpass = Createpass & UCase(Chr(Ran))             ElseIf Ran = 1 Then                 Ran = CInt(Rnd * 9)                 Createpass = Createpass & Ran             ElseIf Ran = 2 Then                 Ran = CInt(Rnd * 25) + 97                 Createpass = Createpass & Chr(Ran)             End If         Next     End Function response.write createpass() %>