您正在使用IPV4(3.215.177.171)访问本站 您本次共访问本站 1 次
用户名: 用QQ登录本站
密 码:
验证码:
首页 软件 编程 笑话 知识 公告 台风 日历 计算器 行情 简化版
文明驾车我带头,文明行路我带头,礼貌让座我带头      

【腾讯云】云产品限时秒杀,爆款1核2G云服务       [公益] 节省一分零钱 献出一份爱心 温暖世间真情      
虚位以待
2021年 国庆节 7
2021年 重阳节 20
2022年 元 旦 99
2022年 春 节 130
 
  • 本类新增
    本类热门文章
    您现在的位置:首页 >> ASP/ASP.net >> 内容
    ASP截取字符串函数可判断汉字
    内容摘要: FunctionInterceptString(text,length)'函数名dimtext_lengthdimcount_lengthdimcountdimiitext=trim(text)text_length=len(text)'求字符串的长度count_length=0iftext_length=1thenforcount=1totext_leng......
    FunctionInterceptString(text,length)'函数名

    dimtext_length

    dimcount_length

    dimcount

    dimii

    text=trim(text)

    text_length=len(text)'求字符串的长度

    count_length=0

    iftext_length>=1then

    forcount=1totext_length'这一个循环计算要截取的字符串

    ifasc(mid(text,count,1))<0orasc(mid(text,count,1))>255then'如果是汉字

    count_length=count_length+2

    else

    count_length=count_length+1

    endif

    ifcount_length>=lengththen

    text=left(trim(text),count)&"..."'字符串限长

    exitfor

    endif

    next

    InterceptString=text'函数返回值

    else

    InterceptString=""

    endif

    EndFunction

    版权声明:本内容来源于互联网,如有侵犯您的版权,请联系站长,本站收到您的信息后将及时处理。
    上一篇:ASP检测是否本站提交数据函数 下一篇:ASP下载时重命名文件名函数
    发布日期:2021/9/13
    手机扫二维码直达本页
    发布时间:17:28:27
    点击:132
    录入:齐天大圣
    相关文章
    Baidu
    YiJiaCMS V6.0.1 Build 21.9.2(MSSQL) 闽ICP备05000814号-1
    本空间由景安网络提供,百度云加速提供加速防护
    ©2000-2021