功能作用:ASP产生不重复的随机数(模拟游戏 扑克牌) <% function GetRnd(lowerNum,upperNum) Dim unit,RndNum,Fun_X unit = upperNum - lowerNum Redim MyArray(unit) For Fun_I=0 To unit myArray(Fun_I)= lowerNum + Fun_I Next For Fun_I=0 To round(unit) RndNum = getRndNumber(Fun_I,unit) Fun_X = myArray(RndNum) myArray(RndNum)=myArray(Fun_I) myArray(Fun_I)=Fun_X Next GetRnd = myArray end function function getRndNumber(lowerbound,upperbound) Randomize getRndNumber=Int((upperbound-lowerbound+1)*Rnd+lowerbound) end function %>