改进一下asp自带的formatNumber函数

asp的formatnumber再处理类似 25/5的值时,结果是 5.00  处理类似 28/8的值时,结果是3.50 
改进一下,去掉没用的0  让结果分别是 5和3.5

function fm(nb)
if isnumeric(nb) then
dim a
a=formatnumber(nb,2,-1)
if right((a+""),2)=00 then
fm=clng(a)
else
fm=formatnumber(nb,1,-1)
end if
else
fm=0
end if
end function