产生随机密码的函数
<%
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+ 列表绑定控件(上) 下一篇:使用 ASP+ 列表绑定控件(中) 更多相关文章
|
推荐文章
精彩文章
|