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

　　%>