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

上一个：去除HTML代码中所有标签的两种方法
下一个：asp用Chr()函数将易做图数字转字母的方法