asp货币大写转换函数(2)_ASP教程

推荐：怎样限制只能中文输入的方法。
function isCharsInBag (s, bag) { var i,c; for (i = 0; i s.length; i++) { c = s.charAt(i);//字符串s中的字符 if (bag.indexOf(c) -1) return c; } return ; } 检查函数: function ischinese(s) { var errorChar; var badChar = ABCDEFGHIJKLMNOPQRST

            If nZero <> 0 Or I = J - 9 Or I = J - 5 Or I = J - 1 Then
                If Right(AtoC, 1) = "零" Then AtoC = Left(AtoC, Len(AtoC) - 1)
                Ch1 = "零"
            Else
                Ch1 = ""
            End If
                       
            '如果转换的数值需要扩大，那么需改动以下表达式 I 的值。
            If I = J - 10 Then
                Ch2 = "亿"
            ElseIf I = J - 6 Then
                If nZero <> 0 Then
                    Ch2 = "万"
'                    nZero = 0
                End If
            ElseIf I = J - 2 Then
                Ch2 = "元"
             ElseIf I = J Then
                Ch2 = "整"
            Else
                Ch2 = ""
            End If
            nZero = 0
        End If
       
        AtoC = AtoC & Ch1 & Ch2
    Next I
   
    '最后将多余的零去掉
        AtoC = Replace(AtoC, "零元", "元")
        AtoC = Replace(AtoC, "零万", "万")
        AtoC = Replace(AtoC, "零亿", "亿")
        AtoC = Replace(AtoC, "零整", "整")
    

分享：ASP编程中15个非常有用的例子(二)
8.强迫输入密码对话框 答把这句话放载页面的开头 % response.status=401 not Authorized response.end % 9 如何传递变量从一页到另一页 答 用HIDDEN类型来传递变量 % form method=post action=mynextpage.asp % for each item in request.form % input