asp以千分位格式显示数字

很多时候我在处理数值的时候需要把数值变成千分位的格式，即每三个数加一个"，"，下面是ASP格式化数值的函数。

< % 
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 
%>

使用的时候只需要用把数值放在comma函数里面就好了。

a=1234567890
response.write comma(a)

输出来的结果是：1,234,567,890