ASP UTF-8编码下字符串截取 和取得长度函数

ASP UTF-8编码下字符串截取和取得长度函数：

代码如下:

'************************************

'截取文字长度函数，支持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

（编辑：银川站长网）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!