asp取某两个数之间的几角钱随机数

<%

response.write RndNumber(40,1) ‘比如这边取0.01~0.4

'取之间随机值函数
Function RndNumber(v1,v2)
Randomize
RndNumber=v2+int((v1-v2+1)*rnd)
if len(RndNumber)=1 then RndNumber="0"&RndNumber
RndNumber="0."&RndNumber
End Function
%>