1. 爱易网页
  2. ASP教程
  3. asp产生随机密码的函数

asp产生随机密码的函数

日期：2011-12-03　 浏览次数：21102 次

产生随机密码的函数

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


%>

相关资料更多>

  1. ASP.NET的一套笔考试题
  2. ADO事件之(2)---EndOfRecordset (RecordsetEvent) 方法
  3. 网站风格切换,该怎么处理
  4. 菜鸟学习ASP教程之编程基础
  5. 再问ａｓｐ数据批处理有关问题
  6. IIS6和IIS7对静态文件gzip压缩方式
  7. Asp的安全管理（12）_安全加密_ASP教程
  8. 请高手帮忙改一改JS函数!解决思路
  9. 虚拟主机怎么实现asp自动比较内容后再生成生产静态页面