<%
 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)

%>


저작자 표시 비영리 동일 조건 변경 허락
신고

'☆Develpoer > └ asp' 카테고리의 다른 글

WinHTTP v5.x HTTP Request  (0) 2011.02.16
XML 데이터 파싱하기  (0) 2011.02.16
인증번호생성 함수  (0) 2011.02.16
Http Request 5  (0) 2011.02.16
Mod Function  (0) 2011.02.16
Classic ASP page template for VS 2005  (0) 2011.01.28

+ Recent posts