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