主题:  求解 1，000

北狼
职务：普通成员
等级：1
金币：0.0
发贴：31
#12004/2/5 13:57:50
我想把类似于
1000
25689
5646464564665
之类的数字从数据库中调出后，显示为
1，000
25，689
5，646，464，564，665
样子的格式，在asp中应该怎么做，有知道的朋友麻烦告诉一下，小弟不胜感激！！

我是烂货
职务：普通成员
等级：1
金币：10.0
发贴：303
#22004/2/5 14:06:59
比如你读出的数据存储在变量a中

dim i as integer,j as integer
dim v as string
j=0
v=""

for i=len(a) to 1 step -1
v=mid(a,i,1)&v
j=j+1
if j >=3 then
j=0
v=","&v
end if
next i

基本算法是这样，我没有试过，临时写的



北狼
职务：普通成员
等级：1
金币：0.0
发贴：31
#32004/2/5 14:41:18
先谢过2楼的朋友！！！！！
经测试可以实现。算法是正确的。
:D

我的一个朋友给我这样做的，可以实现我的要求，贴在这里也许别的朋友能用上，
-------------------------------------------------------------------------
Function wwqformat(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
wwqformat = Result
End Function
--------------------------------------------------------------------