asp | 랜덤 문자열 생성하기(암호생성기)
페이지 정보
작성자 100K5 작성일16-01-04 23:09 조회55,187회 댓글0건관련링크
본문
<%
Function randomStr(strlen)
Dim str, rr, ii, strRandomCode
str = "abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789"
strlen = 20
Randomize
For ii = 1 to strlen
rr = Int((90 - 1 + 1) * Rnd + 1)
' Response.write "<br>r = " & rr
strRandomCode = strRandomCode & CSTR(Mid(str, rr, 1))
Next
randomStr = strRandomCode
End function
%>
댓글목록
등록된 댓글이 없습니다.