ASP把长的数字用逗号隔开显示的代码

OStack程序员社区-中国程序员成长平台 › 门户 › 编程› ASP.NET›ASP.NET编程经验

原作者: [db:作者] 来自: [db:来源] 收藏邀请

000000000000000000000000000000000000000000000000000000000000000

<%  
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"  
%>  
An un-formatted number: <%=aLongNumber%><br>  
The Comma formatted number: <%=Comma(aLongNumber)%>  
</body>  
</html>