1
<%
2
Function getMoney(s)
3
On Error Resume Next
4
If Not IsNumeric(s) Then s = 0
5
getMoney = FormatNumber(CDbl(s), 2, -1, 0, -1)
6
End Function
7
8
%>(鼠標移到代碼上去，在代碼的頂部會出現四個圖標，第一個是查看源代碼，第二個是復制代碼，第三個是打印代碼，第四個是幫助)
