堆栈溢出: 'GetRnd'

' ’# 函数GetRnd(bound)返回一个不重复的随机数字
  ' ’#参数bound：随机范围
  Function GetRnd(bound)
  DIM ranNum
  Randomize()
  ranNum=int(bound*rnd)
  If Instr(Appeared,"["&ranNum&"]") Then '产生的随机数是否出现过
  ranNum = getRnd(bound)
  End If
  Appeared = Appeared & "["&ranNum&"]" '记录已出现的随机数
  GetRnd = ranNum
  End Function  

请高手赐教，要怎么解决？


Microsoft VBScript 运行时错误 '800a001c' 

堆栈溢出: 'GetRnd' 

\trybook.asp, line 150

VBScript code

function make_randomize(max_len,w_n) 'max_len 生成长度，w_n：0 可能包含字母，1：只为数字 
randomize 
for intcounter=1 to max_len 
whatnext=int((1-0+1)*rnd+w_n) 
if whatnext=0 then 
upper=122 
lower=97 
else 
upper=57 
lower=48 
end if 
strnewpass=strnewpass & chr(int((upper-lower+1)*rnd)+lower) 
next 
make_randomize=strnewpass 
end function