<%

'******************************

'函数：gen_key(digits)

'参数：digits----要生成随机数的位数

'作者：阿里西西

'日期：2007/7/13

'描述：生成由数字，大写字母，小写字母指定位数的随机数；返回值:要生成的指定倍数的随机数

'示例：<%=gen_key(8)%>

'******************************

Functiongen_key(digits)

'定义并初始化数组

dimchar_array(80)

'初始化数字

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'初始化随机数生成器。

dowhilelen(output)<digits

num=char_array(Int((62-0+1)*Rnd+0))

output=output+num

loop

'设置返回值

gen_key=output

EndFunction

%>