asp下返回以千分位显示数字格式化的数值

<%

'******************************

'函数：comma(str)

'参数：str，待处理的数字

'作者：阿里西西

'日期：2007/7/12

'描述：返回以千分位显示数字格式化的数值

'示例：<%=comma("120300")%>

'******************************

function comma(str) 

if not(isnumeric(str)) or str = 0 then 

result = 0 

elseif len(fix(str)) < 4 then 

result = str 

else 

pos = instr(1,str,".") 

if pos > 0 then 

dec = mid(str,pos) 

end if 

res = strreverse(fix(str)) 

loopcount = 1 

while loopcount <= len(res)

tempresult = tempresult + mid(res,loopcount,3) 

loopcount = loopcount + 3 

if loopcount <= len(res) then 

tempresult = tempresult + "," 

end if 

wend 

result = strreverse(tempresult) + dec 

end if 

comma = result 

end function 

%>