产生随机密码的函数

作者：整理

<%
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
‘’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
%>

返回顶部

下一篇：这里！！ >>

· 使用asp实现支持附件的邮件系统（三）
· 我用JS+Cookie编写的购物车，（添加、修改过程在客户端执行，一次提交服务器，IE适用），请大家指正（一）
· 使用asp实现支持附件的邮件系统（二）
· 我用JS+Cookie编写的购物车，（添加、修改过程在客户端执行，一次提交服务器，IE适用），请大家指正（二）
· 我用JS+Cookie编写的购物车，（添加、修改过程在客户端执行，一次提交服务器，IE适用），请大家指正（三）
· 网络寻呼机数据库版发送消息tomessage.asp
· 网络寻呼机数据库版处理发送消息SubmitMessage.asp
· 网络寻呼机数据库版显示消息showmessage.asp
· 网络寻呼机数据库版显示历史消息history.asp
· 网络寻呼机数据库版删除选中的消息deletemessage.asp
· 网络寻呼机数据库版隐藏文件watch.asp
· 网络寻呼机数据库版总结
· 一个例子：从新浪提取上海天气的vbs
· 购物车范例(转）（处理页面）
· 购物车范例（转）（购物车页面）
· 附：源代码4：BBSLOGIN.ASP
· 附：源代码5：BBSLOGIN.HTM
· BBSCHECKOUT.ASP
· BLOBAL.ASA
· 附：原文
· 附：源代码2：BBSAUTOSEARCH.ASP
· 附：源代码1：BBSSENDBEGIN.ASP
· 附：源代码3：BBSSENDINFO.ASP
· 试用网络传呼机
· 用ASP实现网上“五子连珠”大赛 (转贴)
· 用FLASH和ASP做留言本-ASP篇(下)
· 用FLASH和ASP做留言本-ASP篇(上)
· 用FLASH和ASP做留言本-FLASH篇
· 多题投票统计系统之SAVE篇--原创
· 使用Windows DNA 设计、部署和管理一个可伸缩的电子商务网站（1）--来自M$
· 使用Windows DNA 设计、部署和管理一个可伸缩的电子商务网站（2）--来自M$
· 使用Windows DNA 设计、部署和管理一个可伸缩的电子商务网站（3）--来自M$
· 使用Windows DNA 设计、部署和管理一个可伸缩的电子商务网站（4）--来自M$
· 一篇关于客户端用ASP参生报表的好东东（高级篇）
· 一篇关于客户端用ASP参生报表的好东东
· 发送信息页面send.asp--基于web的QQ程序3(only asp)
· 接收信息页面inform.asp--基于web的QQ程序2(only asp)
· 显示页面show.asp--基于web的QQ程序1(only asp)