<% '****************************** '函数：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  %>