复制代码 代码如下:'************************************ '截取文字长度函数，支持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=0 d=StrLen(Title) iStr="" ForTotal = Len(Title) For i=1 To ForTotal c=Abs(AscW(Mid(Title,i,1))) If c>255 Then k=k+2 Else k=k+1 End If iStr=iStr&Mid(Title,i,1) If CLng(k)>CLng(TLen) Then iStr=iStr".." Exit For End If Next Cut_Title=iStr Else Cut_Title="" End If End Function '******************************* '检测文字长度函数，支持UTF-8 '输入参数： ' 1、文字内容 '******************************* Public Function StrLen(strText) Dim k,i,c Dim ForTotal k=0 ForTotal = Len(strText) For i=1 To ForTotal c=Abs(AscW(Mid(strText,i,1))) If c>255 Then k=k+2 Else k=k+1 End If Next StrLen=k End Function

　　推荐阅读

　　Asp 日期格式化问题

对于access数据库的日期时间类型字段存储的日期，直接从数据库中读出显示的效果是带时间的如，2009-06-13 18：00 ，如果只是希望显示日期应该怎么办呢？ Vbscrip有一个函数FormatDateTime（）。其说明如下： 返回表>>>详细阅读

本文标题：ASP UTF-8编码下字符串截取和获取长度函数

地址：http://www.17bianji.com/kaifa2/ASP/32031.html

 1/2    1