用两个随机数控制，第一个生成1~4这里面的一个数（对应一个字母)，第二个生成0~9一个数，然后合起来。

A对应的是:65
接下来依此类推.

<%
array1 = array("A","B","C","D")
array2 = array(0,1,2,3,4,5,6,7,8,9)
dim num1,num2
num1=4
num2=10
Randomize
m1=int(rnd()*num1)'获得随机的0到3的数
m2=int(rnd()*num2)'获得随机的0到9的数
response.Write(array1(m1)&array2(m2))
%>