ASP to generate random number of digits, uppercase letters, lowercase letters specified number of digits _ Application Tips

<%
'******************************
' Function: Gen_key (digits)
' Parameters: digits----number of digits to generate random numbers
' Author: Arisisi
' Date: 2007/7/13
' Description: Generates a random number with digits, uppercase letters, and lowercase letters specifying digits; return value: Random number of specified multiples to generate
' Example: <%=gen_key (8)%>
'******************************
Function Gen_key (digits)
' Define and initialize the array
Dim Char_array (80)
' Initialize the number
For i = 0 to 9
Char_array (i) = CStr (i)
Next
' Initialize uppercase letters
For i = ten to 35
Char_array (i) = Chr (i + 55)
Next
' Initialize lowercase letters
For i = 61
Char_array (i) = CHR (i + 61)
Next
Randomize ' Initializes a random number generator.
Do While Len (output) < digits
num = Char_array (Int (62-0 + 1) * Rnd + 0))
Output = output + num
Loop
' Set return value
Gen_key = output
End Function
%>