当前位置: 首页 > 图文教程 > 网络编程 > ASP > asp 下产生任意位数随机密码的代码

ASP
表单递交合法性检测-Email
表单递交合法性检测-日期
表单递交合法性检测-只接受数字
表单递交合法性检测-只允许填写字母
表单递交合法性检测-不允许指定字符
用ADO STREAM做的无组件上传程序
通过地址栏传递参数.通过url传递参数
利用global.asa计划执行程序
ASP.NET连SQL7接口源代码
悠哉悠哉,一个复合查询方法
如何取得所有的Session变量
ASP中页面限权访问的几种方法
去除空格的函数
如何在网页中存取剪贴板中的内容
判断gif图像尺寸的方法
带日期标注的日历控件
在config.web中保存数据库连接串
动态创建下拉菜单
加密页面代码生成器
javascript动态装入XML数据

ASP 中的 asp 下产生任意位数随机密码的代码


出处:互联网   整理: 软晨网(RuanChen.com)   发布: 2009-09-13   浏览: 183 ::
收藏到网摘: n/a

<%
'******************************
'函数:MakePassword(byval maxlen)
'参数:maxlen,要生成的密码位数长度
'作者:阿里西西
'日期:2007/7/12
'描述:产生任意位数随机密码
'示例:<%=MakePassword(8)%>
'******************************
function MakePassword(byval maxlen)
dim strnewpass
dim whatsnext, upper, lower, intcounter
randomize
for intcounter = 1 to maxlen
whatsnext = int((1 - 0 + 1) * rnd + 0)
if whatsnext = 0 then
'character
upper = 90
lower = 65
else
upper = 57
lower = 48
end if
strnewpass = strnewpass & chr(int((upper - lower + 1) * rnd + lower))
next
makepassword = strnewpass
end function
%>