asp分位显示位数较长的数字

技术文章

asp分位显示位数较长的数字

时间：2009-03-25 点击：1567

<%
'分位显示数字Num1
Public Function DigitDividing(Num1)
    Dim Num2, PointFlag, Sign, I, TempNum1, TempNum2
    If Not(IsNumeric(Num1)) Or Num1 = 0 Then
        Num2 = 0
    ElseIf Len(Fix(Num1)) < 4 Then
        Num2 = Num1
    Else
PointFlag = InStr(1, Num1, ".")
        If PointFlag > 0 Then
            '含有小数，截取小数点后的数字
TempNum1 = Mid(Num1,PointFlag)
        End if
If Sgn(Num1)= -1 Then
'为负数，增加负号
Sign = "-"
End If
'将数字反序，每取3位依次处理
        TempNum2 = StrReverse(Fix(Abs(Num1)))
I = 1
While I <= Len(TempNum2)
            Num2 = Num2 + Mid(TempNum2,I,3)
            I = I + 3
            If I <= Len(TempNum2) Then
                '添加分隔符
Num2 = Num2 + ","
            End If
        Wend
        Num2 = Sign + StrReverse(Num2) + TempNum1
    End If
    DigitDividing = Num2
End Function
%>
<form name="form1" method="post" action="">
输入数字：
<input name="text" type="text" id="text" >
<input type="submit" name="Submit" value="提交">
</form>
<%
Dim X
X=Request.Form("text")
If X<>"" Then
%>
<p>输入的数字：<%=X%></p>
<p>分位显示数字：<%=DigitDividing(X)%></p>
<%
End If
%>

asp检测字符串出现的次数

asp过滤字符串中的HTML代码

asp截取字符串

asp实现字符串和数组的转换

asp将每个单词的首个字母改成大写

> 返回

地址：上海市普陀区胶州路941号长久商务中心电话： QQ：