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