posts - 50, comments - 140, trackbacks - 8, articles - 0
  博客园 :: 首页 :: 新随笔 :: 联系 :: 订阅 订阅 :: 管理

中文姓名的VbScript验证方法

Posted on 2007-06-27 15:14 faib 阅读(233) 评论(1)  编辑 收藏 网摘 所属分类: HTML / Javascript
        <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>

Feedback

#1楼    回复  引用    

2007-07-23 10:06 by Tanson [未注册用户]
你用正则不是快很多?这样很复杂哦

标题  
姓名  
主页
Email (博主才能看到) 
验证码 *  看不清,换一张 [登录][注册]
内容(请不要发表任何与政治相关的内容)  
  登录  使用高级评论  新用户注册  返回页首  恢复上次提交      
该文被作者在 2007-06-27 15:57 编辑过
Google站内搜索

China-pub 计算机图书网上专卖店!6.5万品种 2-8折!
近千种 9-95 新二手计算图书火热销售中!
开发者征途系统新作:《设计模式——基于C#的工程化实现及扩展》



相关文章:

相关链接: