系统分配随机密码

　　<%

　　'系统分配随机密码

　　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()

　　%>