上海兼职网站建设，浦东网站制作上海兼职网站制作浦东网站建设上海兼职网站设计上海兼职网页制作

欢迎来到兼职网站制作上海兼职网页制作服务站、本站主要服务于企业整体形象推广
品格设计的宗旨是_以科技展示完美、以服务吸引客户

_ 兼职网站建设/兼职网站改版/兼职网站维护/上海兼职个人网站制作/兼职网站制作/兼职网站设计上海个人做网站，上海个人网站制作，个人网页制作，个人网站制作，个人网站建设上海做网站，上海兼职做网站，
_ /浦东网页制作浦东网站制作浦东网站建设浦东网页设计浦东网站设计浦东做网站浦东网页建设
_ 徐家汇网页制作徐家汇网站制作徐家汇网站建设徐家汇网页设计徐家汇网站设计徐家汇做网站徐家汇网站改版徐家汇网页建设
_ 上海业余网站改版上海业余网站制作上海业余网站建设上海业余网站设计上海业余网页设计上海业余网页制作上海业余网站制作上海兼职网站优化

ASP 写的判断 Money 各个位值的函数

作者：上海兼职网站建设来源：上海兼职网站制作文章点击数：

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

人支持

顶一下

查看
详论

回首页

【发表评论】【告诉好友】【打印此文】【收藏此文】【关闭窗口】

上一篇：显示ASP页面的代码

下一篇：ASP生成静态网页，学习CASE的用法，以及“权限”的一种控制方法

上海兼职网站建设-浦东网站建设-上海兼职网站制作，上海兼职网站设计