[ASP] Rnd 함수 (랜덤한 문자 조합 만들기)

<%

Function random_str()
  Dim str, strlen, r, i, ds, serialCode '사용되는 변수를 선언

  str = "ABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789" '랜덤으로 사용될 문자 또는 숫자

   strlen = 5 '랜덤으로 출력될 값의 자릿수 ex)해당 구문에서 10자리의 랜덤 값 출력

 

   Randomize '랜덤 초기화
   For i = 1 To strlen '위에 선언된 strlen만큼 랜덤 코드 생성
    r = Int((36 - 1 + 1) * Rnd + 1)  ' 36은 str의 문자갯수

    serialCode = serialCode + Mid(str,r,1)

   Next
   random_str = serialCode
 End Function

 

 Response.Write  random_str()

%>

참고 URL -

http://copyrightyoon.tistory.com/entry/ASP-Rnd-%ED%95%A8%EC%88%98-%EB%9E%9C%EB%8D%A4%ED%95%9C-%EB%AC%B8%EC%9E%90-%EC%A1%B0%ED%95%A9-%EB%A7%8C%EB%93%A4%EA%B8%B0