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