ASP隨機函數

<%
Function RndNumber(MaxNum,MinNum)
Randomize
RndNumber=int((MaxNum-MinNum+1)*rnd+MinNum)
RndNumber=RndNumber
End Function

response.write RndNumber(1000,9999)
%>
以上是網友寫的生成隨機4位數字的函數, 很簡潔. 我想寫ASP 4位數字驗證碼應該能用上. 由此也可以改寫擴展為N位驗證碼.. 不錯.
下面是我寫的, 也湊合
<%
dim a
Randomize
a=int(right(rnd,1))*1111
response.write (a)
%>
輸出:1111,2222,3333...