ASP UTF-8編碼下字符串截取和獲取長度函數(shù)
更新時(shí)間：2009年05月18日 15:35:15 作者：
截取文字長度函數(shù)，支持UTF-8 ,這樣就可以滿意大部分截取字符串的朋友了。
復(fù)制代碼 代碼如下:
'************************************
'截取文字長度函數(shù)，支持UTF-8
'輸入?yún)?shù)：
' 1、文字內(nèi)容
' 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
'*******************************
'檢測文字長度函數(shù)，支持UTF-8
'輸入?yún)?shù)：
' 1、文字內(nèi)容
'*******************************
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
相關(guān)文章
可以獲得文件的文件名的asp函數(shù)...2007-11-11
正常ASP中對錄入內(nèi)容的過濾僅僅是對左尖括號和右尖括號的HTML源碼的替換，所以在頁面中顯示為左右尖括號，而不是將尖括號作為HTML標(biāo)簽執(zhí)行了。2008-12-12
.Net 自定義轉(zhuǎn)換器JsonConverter的使用詳解
這篇文章主要介紹了.Net 自定義轉(zhuǎn)換器JsonConverter的使用,本文通過實(shí)例代碼給大家介紹的非常詳細(xì)，對大家的學(xué)習(xí)或工作具有一定的參考借鑒價(jià)值，需要的朋友可以參考下2023-04-04
ASP調(diào)用dll及封裝dll實(shí)例，封裝為dll可以提供運(yùn)行效率，加密代碼。2009-11-11
使用模板實(shí)現(xiàn)ASP代碼與頁面分離...2006-08-08
ReplaceTrim 函數(shù)之a(chǎn)sp實(shí)現(xiàn)過濾掉字符中所有的tab和回車和換行的代碼
ReplaceTrim 函數(shù)之a(chǎn)sp實(shí)現(xiàn)過濾掉字符中所有的tab和回車和換行的代碼...2007-09-09
UpdatePanel觸發(fā)javascript腳本的方法附代碼
UpdatePanel觸發(fā)javascript腳本的方法附代碼...2007-10-10
這篇文章主要介紹了ASP模擬POST請求異步提交數(shù)據(jù)的方法,本文使用MSXML2.SERVERXMLHTTP.3.0實(shí)現(xiàn)POST請求,需要的朋友可以參考下2014-07-07
asp頁面提示Response 對象 錯誤 ASP 0156 : 80004005 HTTP 頭錯誤
訪問asp頁面時(shí)提示Response 對象 錯誤 ASP 0156 : 80004005 HTTP 頭錯誤?，行 0 已將 HTTP 頭輸出到客戶端瀏覽器。任何對 HTTP 頭的修改都必須在輸出頁內(nèi)容之前進(jìn)行。2011-09-09
本文介紹的是一些ASP程序設(shè)計(jì)中經(jīng)常用到的源代碼。適合初學(xué)者閱讀。希望對你有幫助，一起來看吧！2015-10-10