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

1. <%  
2. '******************************  
3. '函数：comma(str)  
4. '参数：str，待处理的数字  
5. '作者：阿里西西  
6. '日期：2007/7/12  
7. '描述：返回以千分位显示数字格式化的数值  
8. '示例：<%=comma("120300")%>  
9. '******************************  
10. function comma(str)   
11. if not(isnumeric(str)) or str = 0 then   
12. result = 0   
13. elseif len(fix(str)) < 4 then   
14. result = str   
15. else   
16. pos = instr(1,str,".")   
17. if pos > 0 then   
18. dec = mid(str,pos)   
19. end if   
20. res = strreverse(fix(str))   
21. loopcount = 1   
22. while loopcount <= len(res)   
23.  
24.  
25. tempresult = tempresult + mid(res,loopcount,3)   
26. loopcount = loopcount + 3   
27. if loopcount <= len(res) then   
28. tempresult = tempresult + ","   
29. end if   
30. wend   
31. result = strreverse(tempresult) + dec   
32. end if   
33. comma = result   
34. end function   
35. %>