[ASP] 랜덤 문자열 구하기

 

<%
    Function random_str()
      Dim str, strlen, r, i, ds, serialCode '사용되는 변수를 선언
'      str = "ABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789" '랜덤으로 사용될 문자 또는 숫자
      str = "0123456789" '랜덤으로 사용될 문자 또는 숫자
 
       strlen = 6 '랜덤으로 출력될 값의 자릿수 ex)해당 구문에서 10자리의 랜덤 값 출력
       Randomize '랜덤 초기화
       For i = 1 To strlen '위에 선언된 strlen만큼 랜덤 코드 생성
        r = Int((10 - 1 + 1) * Rnd + 1)  ' 36은 str의 문자갯수
 
        serialCode = serialCode + Mid(str,r,1)
 
       Next
       random_str = serialCode
     End Function
 
%>