|
![]() |
名片设计 CorelDRAW Illustrator AuotoCAD Painter 其他软件 Photoshop Fireworks Flash |
|
<% 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 %> 返回类别: 教程 上一教程: 如何远程调用ACCESS数据库 下一教程: 多表单域无组件文件上传的例子 您可以阅读与"产生随机密码的函数"相关的教程: · 一个生成随机密码的函数 · 用ASP产生随即密码的程序 · 随机产生N位由数字和字母组成的密码 · 产生随机滚动信息 · 随机产生用户密码 |
![]() ![]() |
快精灵印艺坊 版权所有 |
首页![]() ![]() ![]() ![]() ![]() ![]() ![]() |