中文姓名的VbScript验证方法

        <script language=vbscript>
        'xm 姓名
        function valiName(xm)
            ret = true
            for i = 1 to len(xm)
                if asc(mid(xm, i, 1)) >= 0 and asc(mid(xm, i, 1)) <= 128 then
                    ret = false
                    exit for
                end if
            next
            valiName = ret
        end function
        
        'mc 名称
        'g 不能连续出现的英文字符
        'h 不能连续出现的相同的中文字符
        function valiNameContinuousChar(mc, g, h)
            c = 0 : d = 0
            b = false
            last = ""
            for i = 1 to len(mc)
                if last <> "" and last = mid(mc, i, 1) then
                    d = d + 1
                end if
                if asc(mid(mc, i, 1)) > 0 then
                    if not b then
                        b = true
                    end if
                    c = c + 1
                    if c >= g then exit for
                else
                    b = false
                    c = 0
                end if
                last = mid(mc, i, 1)
            next
            valiNameContinuousChar = c < g and d <= h - 2
        end function
        </script>