ASP generate random strings (numbers + uppercase and lowercase) code _ Application Tips

<%
' ASP generates random strings (numbers + uppercase and lowercase) exercises
' I'll practice for my own use, not what I think.
Function Randkey (obj)
Dim Char_array (80)
Dim Temp
For i = 0 to 9
Char_array (i) = Cstr (i)
Next
For i = ten to 35
Char_array (i) = Chr (i + 55)
Next
For i = 61
Char_array (i) = CHR (i + 61)
Next
Randomize
For i = 1 to obj
The ' Rnd function returns a random number between 0~1, which is equal to 0, but not equal to 1.
' Formula: Int ((upper-bound + 1) *rnd+ lower bound) to obtain a number from the lower bound to the upper limit, which is equal to the lower limit but not equal to the upper limit
temp = temp&char_array (int (62-0 + 1) *rnd + 0)
Next
Randkey = Temp
End Function
Response.Write (Randkey (6))
%>