产生随机密码的函数,ASP加密

产生随机密码的函数

作者：汉南居士
关键字：ASP加密

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

	来源：互联网阅读：491 次日期：2005-5-30
【双击滚屏】【推荐朋友】【收藏】【打印】【关闭】【字体：大中小】

上一篇：CDONTS组件
下一篇：遍历目录及目录下文件

>> 相关文章

·ASP中页面限权访问的几种方法

·MD5不可逆加密算法的ASP实现实例