主页 > 知识库 > 系统分配随机密码

系统分配随机密码

热门标签:科大讯飞语音识别系统 阿里云 电子围栏 Mysql连接数设置 团购网站 银行业务 服务器配置 Linux服务器
复制代码 代码如下:

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

标签:枣庄 萍乡 蚌埠 大理 广元 衢州 衡水 江苏

巨人网络通讯声明:本文标题《系统分配随机密码》,本文关键词  ;如发现本文内容存在版权问题,烦请提供相关信息告之我们,我们将及时沟通与处理。本站内容系统采集于网络,涉及言论、版权与本站无关。
  • 相关文章
  • 收缩
    • 微信客服
    • 微信二维码
    • 电话咨询

    • 400-1100-266