ASP把長(zhǎng)的數(shù)字用逗號(hào)隔開(kāi)顯示的代碼
更新時(shí)間：2008年06月18日 21:25:05 作者：
對(duì)于一些比較長(zhǎng)的數(shù)字，我們可以用asp實(shí)現(xiàn)隔開(kāi)顯示，尤其是一些金錢(qián)相關(guān)的東西
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>
復(fù)制代碼 代碼如下:
<%
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>
相關(guān)文章
asp下實(shí)現(xiàn)格式化文件大小以MB顯示的函數(shù)
asp下實(shí)現(xiàn)格式化文件大小以MB顯示的函數(shù)...2007-08-08
如何從數(shù)據(jù)庫(kù)中隨機(jī)取出10條記錄的方法
如何從數(shù)據(jù)庫(kù)中隨機(jī)取出10條記錄的方法...2007-01-01
GetRows的用法詳解！...2006-08-08
ASP下Cookie操作的詳細(xì)講解...2007-08-08
asp下UTF-8頁(yè)面亂碼的解決方法...2007-04-04
透徹掌握ASP分頁(yè)技術(shù)很詳細(xì)的分析
一些論壇上面關(guān)于分頁(yè)的ASP程序依然有許多的關(guān)注者，但里面只有代碼，沒(méi)有詳細(xì)的解釋，對(duì)于初學(xué)者來(lái)說(shuō)，這樣總是得不到真正的掌握，此次我將針對(duì)分頁(yè)技術(shù)進(jìn)行詳解，讓大家來(lái)理解ASP分頁(yè)！2008-06-06
asp中利用CSW中文分詞組件來(lái)實(shí)現(xiàn)自己網(wǎng)站的內(nèi)容關(guān)鍵詞自動(dòng)提取
asp中利用CSW中文分詞組件來(lái)實(shí)現(xiàn)自己網(wǎng)站的內(nèi)容關(guān)鍵詞自動(dòng)提取...2007-03-03
注意：執(zhí)行的ASP文件需要管理員權(quán)限2008-12-12
asp中回車(chē)換行符CHR(10)表示換行，CHR(13)表示回車(chē)，CHR(32)表示空格
這篇文章主要介紹了asp中回車(chē)換行符CHR(10)表示換行，CHR(13)表示回車(chē)，CHR(32)表示空格,需要的朋友可以參考下2006-08-08
JScript中遍歷Request表單參數(shù)集合的方法
這篇文章主要介紹了JScript中遍歷Request表單參數(shù)集合的方法,本文以遍歷Request.QueryString集合為例給出了實(shí)現(xiàn)代碼,需要的朋友可以參考下2015-03-03