1. 首页
  2. 数据库
  3. 其它
  4. 系统分配随机密码

系统分配随机密码

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