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


<%
'******************************
'函数: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
%>



相关阅读:
Linux操作系统的备份方法介绍
去html代码的正则 推荐" target="_blank">去html代码的正则 推荐
简要介绍SQL Server 2008新的事件处理系统
Oracle数据库9i在AIX环境下的性能调整
CommunityServer又称CS论坛的相关学习资料
W3C教程(8):W3C XML Schema 活动
谈谈PHP语法(2)
JDBCTM 指南:入门7-CallableStatement
在PHP中使用XML
令人期待的PHP 6.0 新语法改进及特性增强
在CentOS系统安装pop3的步骤
基于jquery的无刷新分页技术
windows常见故障及其解决办法
创建Guid 的代码
快速导航

Copyright © 2016 phpStudy |