<%
'*********************************
'Function: gen_key(digits)
'Parameters: digits----The number of bits to generate random numbers
'Author: Alixi
'Date: 2007/7/13
'Description: Generate a random number of digits specified by numbers, uppercase letters, lowercase letters; return value: a random number of specified multiple to be generated
'Example: <%=gen_key(8)%>
'*********************************
Functiongen_key(digits)
'Define and initialize the array
dimchar_array(80)
'Initialize the number
Fori=0To9
char_array(i)=CStr(i)
Next
'Initialize capital letters
Fori=10To35
char_array(i)=Chr(i+55)
Next
'Initialize lowercase letters
Fori=36To61
char_array(i)=Chr(i+61)
Next
Randomize' initializes the random number generator.
dowhilelen(output)<digits
num=char_array(Int((62-0+1)*Rnd+0))
output=output+num
loop
'Set the return value
gen_key=output
EndFunction
%>