| 本月文章推荐 |
产生随机密码的函数发表日期：2001-2-13
|
|
<%
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 %> |
| 上一篇：查看服务器磁盘、文件的aspx.
人气:11256 下一篇：使用 ASP+ 列表绑定控件（上） 人气:10480 |
| 浏览全部的内容
Dreamweaver插件下载 网页广告代码 祝你圣诞节快乐 2009年新年快乐 |
