如何编制一个产生随机密码的函数?
来源:asp之家 时间:2009-11-08 19:06:00
可用下列函数来产生你需要的东西,将它们发送给用户就可以啦:
<%
response.write makePassword(16)
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
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
投稿
猜你喜欢
发现IE6下URL path不会自动补全
2009-03-31 12:52:00
JavaScript Table行定位效果
2009-05-25 10:47:00
怎样缩小SQL Server数据库的日志文件
2009-01-15 13:08:00
常见Dreamweaver使用过程中的问题及解决办法
2011-03-17 16:16:00
ASP技巧:Script块不能放在另一个Script 块内
2009-08-19 17:17:00
asp显示左边的n个字符自动识别汉字的函数
2007-09-13 12:16:00
eWebEditor在线HTML编辑助手下载及安装使用说明
2008-10-11 13:58:00
09七夕节各大搜索引擎LOGO欣赏
2009-08-27 15:34:00
可能被你忽略的 JavaScript 代码陷阱
2009-12-26 18:16:00
一个不错的js软键盘代码而且移植方便
2007-08-14 12:56:00
asp模板解析类模块(支持if,function,loop及解析缓存)
2008-08-11 13:06:00
asp最简单的生成验证码代码
2011-03-07 11:05:00
激发你的灵感:50个优秀的Favicons设计
2007-10-21 19:52:00
网页切片算法的若干问题
2008-04-17 13:10:00
百度百科的图片轮播代码
2009-05-06 12:58:00
您需要了解的DIV+CSS网页布局的8条面试题目
2010-01-29 13:22:00
SQL Server 2005:数据类型最大值
2009-06-04 09:55:00
跨平台、多浏览器页面测试
2008-06-24 11:54:00
微软建议的ASP性能优化28条守则(5)
2008-02-27 13:54:00
图片预加载效果的实现
2008-06-16 12:08:00