<%'返回长度为Length的随机数
Public Function Randomizer(Length)
  Dim CharArray(36),Result,TempStr
  '初始化数组
  CharArray(0)="0"
  CharArray(1)="1"
  CharArray(2)="2"
  CharArray(3)="3"
  CharArray(4)="4"
  CharArray(5)="5"
  CharArray(6)="6"
  CharArray(7)="7"
  CharArray(8)="8"
  CharArray(9)="9"
 
  CharArray(10)="A"
  CharArray(11)="B"
  CharArray(12)="C"
  CharArray(13)="D"
  CharArray(14)="E"
  CharArray(15)="F"
  CharArray(16)="G"
  CharArray(17)="H"
  CharArray(18)="I"
  CharArray(19)="J"
  CharArray(20)="K"
  CharArray(21)="L"
  CharArray(22)="M"
  CharArray(23)="N"
  CharArray(25)="P"
  CharArray(26)="Q"
  CharArray(27)="R"
  CharArray(28)="S"
  CharArray(29)="T"
  CharArray(30)="U"
  CharArray(31)="V"
  CharArray(32)="W"
  CharArray(33)="X"
  CharArray(34)="Y"
  CharArray(35)="Z"
 
  Randomize
  '循环产生随机数
  Do While Len(Result)<Length 'Len函数 返回字符串长度
     TempStr=CharArray(Int(36*Rnd)) '利用Rnd函数产生一个随机数，乘上数组的大小后再取整得到一个整数，从数组中取出序号为该整数的字符
  Result=Result+TempStr
  loop
  Randomizer=Result
end Function
%>