[precode]

Function gen_key(digits) 
'定义并初始化数组 
    dim char_array(80) 
'初始化数字 
    For i = 0 To 9 
        char_array(i) = CStr(i) 
    Next 
'初始化大写字母 
    For i = 10 To 35 
        char_array(i) = Chr(i + 55) 
    Next 
'初始化小写字母 
    For i = 36 To 61 
        char_array(i) = Chr(i + 61) 
    Next 
Randomize   '初始化随机数生成器。 
do while len(output) < digits 
        num = char_array(Int((62 - 0 + 1) * Rnd + 0)) 
        output = output & num 
    loop 
'设置返回值 
    gen_key    =    output 
End Function

[/precode]

调用：Response.write “”&gen_key(8)&””