elva

判断中英文结合的字段串长度的小函数

Function Strlen(txt)
    txt=trim(txt)
    x = len(txt)
    y = 0
    for ii = 1 to x
        if asc(mid(txt,ii,1)) < 0 or asc(mid(txt,ii,1)) >255 then
            y = y + 2
        else
            y = y + 1
        end if
    next
    Strlen = y

End Function

posted on 2007-05-28 19:39 叶子 阅读(240) 评论(0)  编辑 收藏 引用 所属分类: ASP


只有注册用户登录后才能发表评论。
网站导航: 博客园   IT新闻   BlogJava   博问   Chat2DB   管理