系统分配随机密码

发布：dxy 字体：[增加减小] 类型：转载

复制代码代码如下:

<% 
'系统分配随机密码 
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() 
%>