系统分配随机密码


复制代码 代码如下:

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



相关阅读:
asp汉字中文图片验证码
XHTML2死掉,XHTML1.x语法在HTML5中可以使用
论WEB标准在中国的灰飞烟灭
5.7 实现高级JavaScript技术(三)
WIN2003 服务器安全配置批处理文件
JS多级连动菜单
什么是XHTML?
活用Windows Server 2008系统的几种安全功能
asp.net程序在调式和发布之间图片路径问题的解决方法
JSON 编辑器实现代码
关闭Windows系统更新提醒
javascript实例 站内搜索例子 (一)
Lesson02_06 分区标签
Windows Vista硬盘安装图解
快速导航

Copyright © 2016 phpStudy | 皖ICP备18014864号-4