系统分配随机密码
更新时间：2006年10月31日 00:00:00 作者：
复制代码 代码如下:
<%
'系统分配随机密码
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中SELECT下拉菜单同时获取VALUE和TEXT值的实现代码
这篇文章主要介绍了ASP中SELECT下拉菜单同时获取VALUE和TEXT值的实现代码,需要的朋友可以参考下2020-06-06
其实我这样做的本意是为了防止盗链！大家帮忙看一下通过代码能够根治盗链！2009-03-03
获取一个数字的个位、十位、百位的代码，需要的朋友可以参考下。2010-12-12
AspUpload 是一款功能强大的动态服务器上传组件!安装此程序,可以让你通过ASP程序上传各种文档2007-07-07
下列代码运行将出错(不能为新插入的行确定标识),即新记录不能为自己的另一个字段赋予新生成标识的值2008-10-10
asp下一些高级应用中会出现的一些问题解决方法2008-08-08
计算两个时间之差的函数...2006-08-08
首先是recordset的创建 asp 简单分页代码2009-08-08
正则匹配(正则表达式)模式进行数据匹配替换2010-03-03
asp程序错误详细说明例表...2007-09-09
最新评论