인증번호생성 함수

<%

 Private Function AuthNumCreate()

  Dim i, index1, index2, con, number

  Randomize

  Dim smsnum(7)

  

   For i = 1 To 7 Step 1

      smsnum(i) = i

   Next

   For i = 1 To 7 Step 1

     Index1 = Int(7*Rnd() + 1)

     Index2 = Int(7*Rnd() + 1)

     con = smsnum(Index1)

     smsnum(Index1) = smsnum(Index2)

     smsnum(Index2) = con

   Next

   For i = 1 To 7 Step 1

     number = number & smsnum(i)   

   Next

  AuthNumCreate = number

 End Function

Response.Write (AuthNumCreate)

%>

출처 : nom3203.egloos.com/2422975