ASP - random 적용 난수 발생
Function fncRandom_str()
Dim str_rnd, strlen_rnd, rnd_r, rnd_i, rnd_ds, serialCode, nLength '사용되는 변수를 선언
str_rnd = "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789" '랜덤으로 사용될 문자 또는 숫자
strlen_rnd = 7 '랜덤으로 출력될 값의 자릿수 ex)해당 구문에서 10자리의 랜덤 값 출력
nLength = Len( str_rnd )
Randomize '랜덤 초기화
For rnd_i = 1 To strlen_rnd '위에 선언된 strlen_rnd 랜덤 코드 생성
rnd_r = Int((nLength - 1 + 1) * Rnd + 1) ' 36은 str의 문자갯수
serialCode = serialCode + Mid(str_rnd,rnd_r,1)
Next
fncRandom_str = serialCode
'Response.Write random_str()
End Function
'프로그래밍 > Web' 카테고리의 다른 글
전화대신 채팅상담 - channel.io (0) | 2020.12.04 |
---|---|
왓챠, 이스터에그 중 루모스, 볼드모트 해봄. (0) | 2020.12.03 |
AWSOME DAY 온라인 컨퍼런스 (0) | 2020.11.24 |
Active Server Pages (ASP) (0) | 2020.11.17 |
javascript Chart circular gauge color-bar (0) | 2020.11.16 |