반응형

[ASP] 랜덤으로 출력되는 , 랜덤문자조합

 

<%

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


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


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

 

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

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

   Next
   random_str = serialCode
 End Function

 

 Response.Write  random_str()

%>
반응형

+ Recent posts