<%'ASP 무 작위 문자열 생 성(숫자+대소 문자)연습'아 회 남 연습,내 가 생각 하 는 것 이 아니 라 Function randKey(obj) Dim char_array(80) Dim temp For i = 0 To 9 char_array(i) = Cstr(i) Next For i = 10 To 35 char_array(i) = Chr(i + 55) Next For i = 36 To 61 char_array(i) = Chr(i + 61) Next Randomize For i = 1 To obj 'rnd 함수 가 되 돌아 오 는 임 의 수 는 0~1 사이 에 0 과 같 을 수 있 지만 1 과 같 지 않 습 니 다. '공식:int(상한-하한+1)*Rnd+하한)는 하한 에서 상한 사이 의 수 를 얻 을 수 있 으 며 하한 과 같 을 수 있 으 나 상한 과 같 을 수 없다. temp = temp&char_array(int(62 - 0 + 1)*Rnd + 0) Next randKey = temp End Function Response.Write(randKey(6)) %>
