| 以下是代碼片段： <% 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) %> |