asp以千分位格式显示数字

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31

< % 
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 
%>

< % 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 %>

1
2

a=1234567890
response.write comma(a)

a=1234567890 response.write comma(a)