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

时间:2022-09-18 12:48:03

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>