系统分配随机密码 上传者：qwxvxwp 2021-01-08 03:18:31上传 PDF文件 13.44KB 热度 27次 代码如下:<% ‘系统分配随机密码 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 下载地址 用户评论 更多下载 下载地址 立即下载 用户评论 发表评论
