<%
Function MyRandom( couponLength )
Dim couponValue(35)
couponValue(0) = "A"
couponValue(1) = "B"
couponValue(2) = "C"
couponValue(3) = "D"
couponValue(4) = "E"
couponValue(5) = "F"
couponValue(6) = "G"
couponValue(7) = "H"
couponValue(8) = "I"
couponValue(9) = "J"
couponValue(10) = "K"
couponValue(11) = "L"
couponValue(12) = "M"
couponValue(13) = "N"
couponValue(14) = "O"
couponValue(15) = "P"
couponValue(16) = "Q"
couponValue(17) = "R"
couponValue(18) = "S"
couponValue(19) = "T"
couponValue(20) = "U"
couponValue(21) = "V"
couponValue(22) = "W"
couponValue(23) = "X"
couponValue(24) = "Y"
couponValue(25) = "Z"
couponValue(26) = "0"
couponValue(27) = "1"
couponValue(28) = "2"
couponValue(29) = "3"
couponValue(30) = "4"
couponValue(31) = "5"
couponValue(32) = "6"
couponValue(33) = "7"
couponValue(34) = "8"
couponValue(35) = "9"
'ex) idvalue = Int(( 100-1+1 )*Rnd + 1 ) '1부터 100까지의 난수발생
'ex) idvalue = Int((50-2+1 ) *Rnd+2 ) '2부터 50까지의 난수발생
'ex) idvalue = Int((35-0+1 )*Rnd+0 ) '0부터 35까지의 난수 발생
'couponLength 길이 만큼의 쿠폰번호를 만든다
For i=1 To couponLength
'난수 발생 초기화
Randomize
idvalue=Int((35- 0 + 1) * Rnd + 0)
couponNo = couponNo & couponValue(idvalue)
Next
MyRandom = couponNo '리턴값
End Function
Response.Write MyRandom( 16 ) '16자리의 쿠폰번호를 생성한다
%>