asp生成某一范圍內的隨機數

<%
'自定義函數
Function RndNumber(MaxNum,MinNum)
 Randomize 
 RndNumber=int((MaxNum-MinNum+1)*rnd+MinNum)
 RndNumber=RndNumber
End Function

'產生一個800~900之間的隨機數
response.write RndNumber(900,800)
%>