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

ASP
[原创]本人常用的asp代码
asp防止刷新功能
生成所有页面的效果+分页生成
ASP在SQL Server 2000中新建帐号和权限
PR值查询代码制作
GetRows的用法详解!
ASP简洁的多重查询的解决方案
ASP实现SQL备份、恢复
用ASP写组件
ASP中Request对象获取客户端数据的顺序(容易忽略)
利用Adodb.Stream制作彩色验证码
ASP 类 Class入门 推荐
asp数据库防下载处理
浏览文件夹下面所有图片
结合asp和存储过程做的搜索程序
实现支持逻辑搜索/单词搜索/词组搜索+支持OR/AND关键字的VBS CLASS!
支持加号空格的查询
取得表单提交的所有数据
发邮件的asp(CDONTS.NewMail)
使用FSO把文本信息导入数据库

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


出处:互联网   整理: 软晨网(RuanChen.com)   发布: 2009-09-13   浏览: 98 ::
收藏到网摘: 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
%>