asp
인증번호생성 함수
duraboys
2011. 2. 16. 11:05
<%
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)
%>