ASP UTF-8编码下字符串截取和获取长度函数
2017-02-06
29
复制代码 代码如下:"************************************ "截取文字长度函数,支持UTF-8 "输入参数: " 1、文字内容 " 2、文字最大长度 "************************************ Public Function Cut_Title(Title,TLen) Dim k,i,d,c Dim iStr Dim ForTotal If CDbl(TLen) > 0 Then k...