<%
'******************************
'函數：comma(str)
'參數：str，待處理的數字
'作者：阿里西西
'日期：2007/7/12
'描述：返回以千分位顯示數字格式化的數值
'示例：<%=comma("120300")%>
'******************************
functioncomma(str)
ifnot(isnumeric(str))orstr=0then
result=0
elseiflen(fix(str))<4then
result=str
else
pos=instr(1,str,".")
ifpos>0then
dec=mid(str,pos)
endif
res=strreverse(fix(str))
loopcount=1
whileloopcount<=len(res)
tempresult=tempresult+mid(res,loopcount,3)
loopcount=loopcount+3
ifloopcount<=len(res)then
tempresult=tempresult+","
endif
wend
result=strreverse(tempresult)+dec
endif
comma=result
endfunction
%>