[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()

%>