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

asp产生随机密码的函数

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

产生随机密码的函数

<%
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. 截获回车键的方法，并模拟Tab键
  2. asp不能自定义数组上标
  3. 怎么用response write "<script languath=javascript>aletr P;</script>"
  4. 如何样可以直接用网页打开dwg(CAD文件格式)格式的文件
  5. 以前搜集的一些资料---如何建立自己的上传组件的编程思路_组件开发_ASP教程
  6. asp中ADO的优化
  7. xmlhttp如何显示图片
  8. 超链接传值有关问题
  9. asp 分页代码