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

<% ‘****************************** ‘函数：comma(str) ‘参数：str，待处理的数字 ‘作者：阿里西西 ‘日期：2007/7/12 ‘描述：返回以千分位显示数字格式化的数值 ‘示例： ‘****************************** function comma(str)  if not(isnumeric(str)) or str = 0 then  result = 0  elseif len(fix(str)) < 4