当前位置: 首页 > 图文教程 > 网络编程 > 编程10000问 > 如何把一长串数字分位显示？

编程10000问
ASP问答集
asp中在JScript中使用RecordSet对象的GetRows
oblog_4.6_SQL 语句

No. « 6 7 8 9 »

技术文章搜索

关键字

编程10000问 中的 如何把一长串数字分位显示？

出处:互联网   整理: 软晨网（RuanChen.com）   发布: 2010-01-10   浏览: 39 ::
收藏到网摘: n/a

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