Function Moneynm(n,m)
  checkPoint = InstrRev(n,".")
  If n>9999.99 Then
   Response.write"数据超过限制，请确定您的报销金额在9999.99元以内！"
  Else
If (checkPoint <> 0) Then
   leftNum = Mid(n,1,checkPoint-1)
   rightNum = Mid(n,checkPoint+1,Len(n))
   Else
   leftNum = n
End If
  gw = Mid(leftNum,Len(leftNum),Len(leftNum))
  sw = 0
  bw = 0
  qw = 0
  jw = 0
  fw = 0
If Len(leftNum)>1 Then
  sw = Mid(leftNum,Len(leftNum)-1,1)
 End If
If Len(leftNum)>2 Then
  bw = Mid(leftNum,Len(leftNum)-2,1)
End If
If Len(leftNum)>3 Then
  qw = Mid(leftNum,Len(leftNum)-3,1)
End If
If Len(rightNum)>0 Then
  jw = Mid(rightNum,1,1)
End If
If Len(rightNum)>1 Then
  fw = Mid(rightNum,2,1)
End If
  Select case m
  case "gw"
Response.Write gw
  case "sw"
Response.Write sw
  case "bw"
Response.Write bw
  case "qw"
Response.Write qw
  case "jw"
Response.Write jw
  case "fw"
Response.Write fw
  End Select
 End If
End Function