| 다음은 코드 조각입니다. <% 함수 makepassword (byval maxlen) 희미한 strnewpass whatsnext, 상단, 하단, intcounter를 어둡게합니다 무작위 화 intcounter = 1에서 Maxlen whatsnext = int ((1-0 1) * rnd 0) WhatsNext = 0이면 상단 = 90 낮은 = 65 또 다른 상단 = 57 낮은 = 48 끝 If strnewpass = strnewpass & chr (Inchete -lower 1) * rnd lower) 다음 makepassword = strnewpass 엔드 기능 '비밀번호 길이를 지정하고 함수를 호출하십시오 Response.Write MakePassword (16) %> |