| 以下是代码片段： <% 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 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 ’指定密码长度,并调用函数 response.write makePassword(16) %> |