繁體中文当前位置: 首页 > 图文教程 > 网络编程 > ASP > asp 下产生任意位数随机密码的代码
- ASP
- 查询翻页优化
- 强制刷新和判断文件地址
- asp缓存类
- Byval与Byref的区别
- 全面认识ASP注入技巧
- ubbcode函数
- newasp中下载类
- [ASP]精华代码
- 由给定的字符串生成关键字
- 经验几则
- 转换中文为unicode 转换unicode到正常文本
- 在ASP应用程序中限制重复提交同一表单
- ASP 程序实现自动升级功能
- 在ASP编程中使用数组
- asp组件编写准备工作
- 利用AdoDb.Stream对象来读取UTF-8格式的文本文件
- 把字符串转换成数据库SQL语句格式
- access中链接表的问题
- access数据库的一些少用操作,ASP,创建数据库文件,创建表,创建字段,ADOX
- Asp Access 创建静态文件/HTML
ASP 中的 asp 下产生任意位数随机密码的代码
出处:互联网 整理: 软晨网（RuanChen.com） 发布: 2009-09-13 浏览: 87 ::
收藏到网摘: 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
%>
评论 (0) All
