[ASP] 인증번호 생성함수 ASP



 '//인증번호
 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


덧글

댓글 입력 영역


통계 위젯 (화이트)

1522
132
358625

red 210