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)文章
防采集是很麻煩而且累人的事，你做的再好，別人要采還得采。累人就在于要防別人采集，還要不影響搜索引擎收錄（大部分個(gè)人站長(zhǎng)的站的生存都寄于百度和Google）。所以要防采集，就得先不影響收錄，所以我們先要分析到如何分辨搜索爬蟲(chóng)。2008-04-04![一個(gè)改進(jìn)的ASP生成SQL命令字符串類的代碼[已測(cè)]](http://img.jbzj.com/images/xgimg/bcimg1.png)
一個(gè)改進(jìn)的ASP生成SQL命令字符串類的代碼[已測(cè)]
網(wǎng)上找資料發(fā)現(xiàn)的，但是調(diào)試的時(shí)候發(fā)現(xiàn)有一些問(wèn)題，改了一下，還有一定的問(wèn)題，但是可以做一般使用了。沒(méi)有考慮數(shù)據(jù)類型的問(wèn)題，還有SQL Server 和access的區(qū)別，以后有時(shí)間再改進(jìn)吧，不知道效率怎么樣。如果有朋友改進(jìn)，也麻煩給我發(fā)一份2011-12-12
最近發(fā)現(xiàn)很多同仁對(duì)我的網(wǎng)站比較青睞，同事幫我分析網(wǎng)站log時(shí)，驚訝的發(fā)現(xiàn)：2M的log居然有將近1M都是測(cè)試我網(wǎng)站的安全性的，其中至少0.5M的log來(lái)自WVS。2010-04-04
在ASP中連接MySQL數(shù)據(jù)庫(kù)，最好的通過(guò)ODBC方法
在ASP中連接MySQL數(shù)據(jù)庫(kù)，最好的通過(guò)ODBC方法...2006-11-11
Asp函數(shù)介紹(37個(gè)常用函數(shù))
下面的函數(shù)是asp中經(jīng)常用的到呢，大家可以收藏一下經(jīng)常查詢下2008-11-11
asp中提示至少一個(gè)參數(shù)沒(méi)有被指定值 解決方法
在寫(xiě)SQL語(yǔ)句的時(shí)候，我們經(jīng)常會(huì)調(diào)用一些參數(shù)，很可能這些參數(shù)中有一個(gè)沒(méi)有被賦值2012-10-10
微信公眾號(hào)可通過(guò)現(xiàn)金紅包接口發(fā)放微信支付現(xiàn)金紅包(附開(kāi)發(fā)教程)
這篇文章主要介紹了微信公眾號(hào)可通過(guò)現(xiàn)金紅包接口發(fā)放微信支付現(xiàn)金紅包的相關(guān)資料,需要的朋友可以參考下2016-09-09
不用模板只用ASP+FSO生成靜態(tài)HTML頁(yè)的一個(gè)方法
不用模板只用ASP+FSO生成靜態(tài)HTML頁(yè)的一個(gè)方法...2006-09-09
當(dāng)網(wǎng)站的數(shù)據(jù)越來(lái)越多的時(shí)候，一臺(tái)服務(wù)器就遇到瓶勁了，導(dǎo)致服務(wù)器運(yùn)行慢，前臺(tái)頁(yè)面半天打不開(kāi)。2011-05-05
2008-01-01