专门格式化金钱数的函数，这个函数是专门格式化金钱的，大家可能都知道，在数字为0的时候，我们会发现在显示时会为：.15 元等等，如果为0它会给补0并在后面加两个比整数小一点的00。

<%
Function FormatMoney(Nums)
 Num = Nums
 If Num = "" Or Num = 0 Then
    FormatMoney = "0.00"
    Exit Function
 Else
    tmp0 = CStr(FormatNumber(Num,2))
    tmp1 = Left(tmp0,InstrRev(tmp0,".")-1)
    tmp2 = right(tmp0,2)
    FormatMoney = tmp1&"."&tmp2&""
 End If
End Function
%>
测试
<%=FormatMoney("100")%>结果：100.00