ASP求字符串長(zhǎng)度函數(shù)，漢字算兩個(gè)字符

求字符串長(zhǎng)度一般用LEN函數(shù)能實(shí)現(xiàn)返回文本串的字符數(shù)

Len( text)
功能得到字符串的長(zhǎng)度。
語(yǔ)法Len (string)
參數(shù)string：string類型變量返回值Long。函數(shù)執(zhí)行成功時(shí)返回字符串的長(zhǎng)度，發(fā)生錯(cuò)誤時(shí)返回-1。假如任何參數(shù)的值為NULL，則Len()函數(shù)返回NULL。

以下是改良過(guò)的求字符串長(zhǎng)度函數(shù)，漢字算兩個(gè)字符，英文算一個(gè)字符。ASP(VBScript)語(yǔ)言
<%
'**************************************************
'函數(shù)名：strLength
'作  用：求字符串長(zhǎng)度。漢字算兩個(gè)字符，英文算一個(gè)字符。
'參  數(shù)：str  ----要求長(zhǎng)度的字符串
'返回值：字符串長(zhǎng)度
'**************************************************
function strLength(str)
ON ERROR RESUME NEXT
dim WINNT_CHINESE
WINNT_CHINESE    = (len("漢字")=2)
if WINNT_CHINESE then
dim l,t,c
dim i
l=len(str)
t=l
for i=1 to l
c=asc(mid(str,i,1))
if c<0 then c=c+65536
if c>255 then
t=t+1
end if
next
strLength=t
else
strLength=len(str)
end if
if err.number<>0 then err.clear
end function
%>

分享題目：ASP求字符串長(zhǎng)度函數(shù)，漢字算兩個(gè)字符
地址分享：http://www.jbt999.com/news29/275279.html

成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián)，為您提供App開(kāi)發(fā)、電子商務(wù)、網(wǎng)站營(yíng)銷、定制網(wǎng)站、網(wǎng)站排名、網(wǎng)站收錄

廣告

聲明：本網(wǎng)站發(fā)布的內(nèi)容（圖片、視頻和文字）以用戶投稿、用戶轉(zhuǎn)載內(nèi)容為主，如果涉及侵權(quán)請(qǐng)盡快告知，我們將會(huì)在第一時(shí)間刪除。文章觀點(diǎn)不代表本網(wǎng)站立場(chǎng)，如需處理請(qǐng)聯(lián)系客服。電話：028-86922220；郵箱：[email protected]。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載，或轉(zhuǎn)載時(shí)需注明來(lái)源： 創(chuàng)新互聯(lián)