FunctionrandKey(obj)

Dimchar_array(80)

Dimtemp

Fori=0To9

char_array(i)=Cstr(i)

Next

Fori=10To35

char_array(i)=Chr(i+55)

Next

Fori=36To61

char_array(i)=Chr(i+61)

Next

Randomize

Fori=1Toobj

'rnd函数返回的随机数在0~1之间，可等于0，但不等于1

'公式：int((上限-下限+1)*Rnd+下限)可取得从下限到上限之间的数，可等于下限但不可等于上限

temp=temp&char_array(int(62-0+1)*Rnd+0)

Next

randKey=temp

EndFunction

Response.Write(randKey(6))

%>