系统分配随机密码

331 阅读 0 评论 219 点赞

我是靠谱客的博主从容往事，这篇文章主要介绍系统分配随机密码，现在分享给大家，希望可以做个参考。

复制代码代码如下:

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