중복되지 않는 난수만들기

Function fRannum(rSize)
Dim i
Dim ReturnStr
Dim ranVal
Dim ranStr

For i=1 to rSize
ranVal = int(Rnd*(100-65))+65


If ranVal<=90 Then
ranStr = CHR(ranVal)
Else
ranStr = Trim(CStr(ranVal-91)) ' 숫자를 문자로 변환시 부등호 표현때문에 앞의 한자리가 공백 처리된다.
End IF
ReturnStr = ReturnStr & ranStr
Next

fRannum=ReturnStr

End Function

For i=1 to 100
Response.Write FormatNumber(i,0) & Chr(9)&Chr(9) & fRannum(16) & chr(13)&chr(10)
Next