公交车上荫蒂添的好舒服的电影-公用玩物(np双xing总受)-公用小荡货芊芊-公与妇仑乱hd-攻把受做哭边走边肉楼梯play-古装一级淫片a免费播放口

：通用ASP為數字增加千分符處理函數（修正版）

通用ASP為數字增加千分符處理函數（修正版）
1、說明
在使用時，假設將原來的數字（設為object）增加千分符（正負數都可以）的方法為
comma(ParseStr(object))。 ParseStr處理將任何object轉為字符的問題（直接調用comma的話，對于object為空時會出錯），comma主要部分來源于網絡，但是對其進行了修正，一個是原來對于長整形的處理可能出錯，現在統一用CLng轉化，另一個是對于負號的處理（原來的函數如果是負數，且數字位數恰好為3的整數倍則會在負號與數字之間多一個“，”）。

2、asp代碼如下
function comma(str)
   addit=""
    if not(isnumeric(str)) or str = 0 then
        result = 0
    elseif len(fix(str)) < 4 then
        result = str
    else
        if CLng(str)<0 then
            str= cstr(abs(CLng(str)))
            addit="-"
        end if
        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 = addit + result
end function

Function ParseStr(l)
    On Error Resume Next
    ParseStr = CStr(l)
    If Err.Number <> 0 Then
              Err.Clear
            ParseStr = ""
    End If

End Function