Asp classic 如何使用ASP classic将1000000.00更改为1.000.000,00？

我想用ASP classic将数字1000000.00更改为1.000.000,00。请帮忙

a=1000000
response.write formatnumber(a,0)

它表明

1,000,000

---

没有直接的方法可以做到这一点，因为使用的分隔符取决于计算机的类型。有关

FormatNumber

函数及其使用的更多信息，请参阅

有一条绕道。您可以使用小数点并关闭分组，如下所示：

a=1000000
response.write(FormatNumber(a,2,,,0))

---

然后，您可以使用自己的函数插入首选的分隔符：参见此。

没有直接的方法，因为使用的分隔符取决于计算机的类型。有关

FormatNumber

函数及其使用的更多信息，请参阅

有一条绕道。您可以使用小数点并关闭分组，如下所示：

a=1000000
response.write(FormatNumber(a,2,,,0))

---

然后，您可以使用自己的函数插入首选分隔符：参见此。

谢谢您的帮助

我将strreverse（）函数添加到示例公共函数中

Public Function Format(sValue, sMask)
    Dim iPlaceHolder
    Dim sTempValue
    Dim sResult

    sTempValue = CStr(strreverse(sValue))
    sResult = sMask
    Do Until InStr(sResult, "#") = 0
        iPlaceHolder = InStr(sResult, "#")
        sResult = Replace(sResult, "#", Left(sTempValue, 1), 1, 1)
        sTempValue = Mid(sTempValue, 2)
        If Len(sTempValue) = 0 Then sResult = Left(sResult, iPlaceHolder)
    Loop
    Format = strreverse(sResult)
End Function

回答.书写格式（a，“###################”和“，00”

---

输出：1.000.000,00

谢谢您的帮助

我将strreverse（）函数添加到示例公共函数中

Public Function Format(sValue, sMask)
    Dim iPlaceHolder
    Dim sTempValue
    Dim sResult

    sTempValue = CStr(strreverse(sValue))
    sResult = sMask
    Do Until InStr(sResult, "#") = 0
        iPlaceHolder = InStr(sResult, "#")
        sResult = Replace(sResult, "#", Left(sTempValue, 1), 1, 1)
        sTempValue = Mid(sTempValue, 2)
        If Len(sTempValue) = 0 Then sResult = Left(sResult, iPlaceHolder)
    Loop
    Format = strreverse(sResult)
End Function

回答.书写格式（a，“###################”和“，00”

---

输出：1.000.000,00

我不写标签asp.net，可能是有人编辑的。ASP Classic”（使用VBA）。我尝试使用ASP Classic，但提交时显示无法使用ASP Classic标记。我应该怎么做？我为您添加了

ASP Classic

作为标记（并删除了

ASP.net

），我不编写标记ASP.net，可能是有人编辑的。ASP Classic”（使用VBA）。我尝试使用asp经典，但当我提交它时，显示无法使用asp经典标记。我应该怎么做？我添加了

asp classic

作为您的标签（并删除了

asp.net

），这很好。如果它解决了你的问题，你可以把它标记为答案，这很好。如果它解决了你的问题，你可以把它标记为答案