博客园  :: 首页  :: 新随笔  :: 联系 :: 订阅 订阅  :: 管理

中文姓名的VbScript验证方法

Posted on 2007-06-27 15:14  faib  阅读(555)  评论(1编辑  收藏  举报
        <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, 1then
                    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>