如何把一长串数字分位显示？

最新推荐文章于 2022-06-25 18:03:37 发布

我是高手高手高高手

最新推荐文章于 2022-06-25 18:03:37 发布

阅读量1.3k

点赞数

分类专栏： ASP技术

本文链接：https://blog.csdn.net/haibo0668/article/details/51566158

版权

ASP技术专栏收录该内容

71 篇文章 3 订阅

订阅专栏

见下：
<%
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
%>
<html>
<body>
<%
aLongNumber = "12345678"
%>
原来的数字: <%=aLongNumber%><br>
用逗号格式化后: <%=Comma(aLongNumber)%>
</body>
</html>