Hello, everyone. Today I want to tell you how to generate random numbers with ASP. We all know that most websites are registered
Provide username and a random password, but how the password is generated, now I would like to introduce you to the
Take a look at the example below where the user can increase or decrease the number of random characters or numbers.
<%
Function Gen_key (digits)
' Create and define array
Dim Char_array (50)
Char_array (0) = "0"
Char_array (1) = "1"
Char_array (2) = "2"
Char_array (3) = "3"
Char_array (4) = "4"
Char_array (5) = "5"
Char_array (6) = "6"
Char_array (7) = "7"
Char_array (8) = "8"
Char_array (9) = "9"
Char_array (+) = "A"
Char_array (one) = "B"
Char_array (a) = "C"
Char_array (+) = "D"
Char_array (d) = "E"
Char_array (m) = "F"
Char_array (+) = "G"
Char_array (+) = "H"
Char_array (km) = "I"
Char_array (a) = "J"
Char_array (m) = "K"
Char_array = "L"
Char_array (+) = "M"
Char_array (%) = "N"
Char_array = "O"
Char_array = "P"
Char_array (num) = "Q"
Char_array (+) = "R"
Char_array = "S"
Char_array = "T"
Char_array (+) = "U"
Char_array (%) = "V"
Char_array (m) = "W"
Char_array (+) = "X"
Char_array (+) = "Y"
Char_array (km) = "Z"
' Initiate Randomize method for default seeding
Randomize
' Loop through and create ' output based on the variable passed to
' The function for the length of the key.
Do While Len (output) < digits
num = Char_array (Int (35-0 + 1) * Rnd + 0))
Output = output + num
Loop
' Set return
Gen_key = output
End Function
' Write the results to the browser, currently setting a digit key
Response.Write "<pre>" & Gen_key (+) & "</pre>" & vbCrLf
%>
