ASP 支持中文的len(),left(),right()的函數(shù)代碼
更新時(shí)間：2010年05月30日 01:43:58 作者：
在用ASP處理文字時(shí)。系統(tǒng)自帶的字符串長(zhǎng)度檢測(cè)函數(shù)有時(shí)候也不是很好用。
比如一個(gè)漢字也只會(huì)算一個(gè)字節(jié)，在排版時(shí)如果全是漢字，好說，反正沒什么差別，但是如果被操作的字符串有漢字又有英文字母時(shí)，就不方便了，以下三個(gè)函數(shù)可以代替ASP自帶的相關(guān)函數(shù)。
也有注意的地方，如果用在循環(huán)中，因不變量“i”也是常用于循環(huán)的變量，執(zhí)行以下函數(shù)時(shí)，“i”的值會(huì)發(fā)生變化，如果是調(diào)用他的循環(huán)中用到相同的變量，會(huì)產(chǎn)生未知的結(jié)果，請(qǐng)換用其它變量名。
以下用法和len(),left(),right()一樣。
程序代碼
Function Strlength(Str)
Temp_Str=Len(Str)
For I=1 To Temp_Str
Test_Str=(Mid(Str,I,1))
If Asc(Test_Str)>0 Then
Strlength=Strlength+1
Else
Strlength=Strlength+2
End If
Next
End Function
Function Strleft(Str,L)
Temp_Str=Len(Str)
For I=1 To Temp_Str
Test_Str=(Mid(Str,I,1))
Strleft=Strleft&Test_Str
If Asc(Test_Str)>0 Then
lens=lens+1
Else
lens=lens+2
End If
If lens>=L Then Exit For
Next
End Function
Function Strright(Str,L)
Temp_Str=Len(Str)
For i = Temp_Str to 1 step -1
Test_Str=(Mid(Str,I,1))
Strright=Test_Str&Strright
If Asc(Test_Str)>0 Then
lens=lens+1
Else
lens=lens+2
End If
If lens>=L Then Exit For
Next
End Function
也有注意的地方，如果用在循環(huán)中，因不變量“i”也是常用于循環(huán)的變量，執(zhí)行以下函數(shù)時(shí)，“i”的值會(huì)發(fā)生變化，如果是調(diào)用他的循環(huán)中用到相同的變量，會(huì)產(chǎn)生未知的結(jié)果，請(qǐng)換用其它變量名。
以下用法和len(),left(),right()一樣。
程序代碼
復(fù)制代碼 代碼如下:
Function Strlength(Str)
Temp_Str=Len(Str)
For I=1 To Temp_Str
Test_Str=(Mid(Str,I,1))
If Asc(Test_Str)>0 Then
Strlength=Strlength+1
Else
Strlength=Strlength+2
End If
Next
End Function
Function Strleft(Str,L)
Temp_Str=Len(Str)
For I=1 To Temp_Str
Test_Str=(Mid(Str,I,1))
Strleft=Strleft&Test_Str
If Asc(Test_Str)>0 Then
lens=lens+1
Else
lens=lens+2
End If
If lens>=L Then Exit For
Next
End Function
Function Strright(Str,L)
Temp_Str=Len(Str)
For i = Temp_Str to 1 step -1
Test_Str=(Mid(Str,I,1))
Strright=Test_Str&Strright
If Asc(Test_Str)>0 Then
lens=lens+1
Else
lens=lens+2
End If
If lens>=L Then Exit For
Next
End Function
您可能感興趣的文章:
相關(guān)文章
垃圾引用防治補(bǔ)丁以及發(fā)送引用修正補(bǔ)丁的自動(dòng)安裝程序
垃圾引用防治補(bǔ)丁以及發(fā)送引用修正補(bǔ)丁的自動(dòng)安裝程序...2007-02-02
asp獲取客戶端某一個(gè)圖片的x,y坐標(biāo)的代碼
asp獲取客戶端某一個(gè)圖片的x,y坐標(biāo)的代碼...2007-11-11
asp下去除數(shù)組中重復(fù)項(xiàng)的方法
這篇文章主要為大家介紹了asp中去除數(shù)組中重復(fù)項(xiàng)的方法，需要的朋友可以參考下2007-08-08
asp access數(shù)據(jù)庫(kù)并生成XML文件范例
簡(jiǎn)單asp加載access數(shù)據(jù)庫(kù)，并生成XML，然后再將XML數(shù)據(jù)加載進(jìn)LIST組件范例學(xué)習(xí)。2009-04-04
全面優(yōu)化ASP應(yīng)用程序的性能的方法...2007-03-03
ASP是非常簡(jiǎn)單的，以至于許多的開發(fā)者不會(huì)去思考錯(cuò)誤處理，正確處理錯(cuò)誤能夠讓你的應(yīng)用程序更加合理。我看到過很多個(gè)用ASP編寫的商業(yè)網(wǎng)站，大多數(shù)都忽略了錯(cuò)誤處理2017-04-04
vbcrlf生成的代碼在查看源代碼的時(shí)候是有換行的。2009-05-05
ASP讀取Request.QueryString編碼的函數(shù)代碼
ASP讀取Request.QueryString編碼的函數(shù)代碼，學(xué)習(xí)asp的朋友可以參考下。2011-09-09
如何通過ASP管理NT帳號(hào)...2007-01-01![ASP+JS三級(jí)聯(lián)動(dòng)下拉菜單[調(diào)用數(shù)據(jù)庫(kù)數(shù)據(jù)]](http://img.jbzj.com/images/xgimg/bcimg9.png)
ASP+JS三級(jí)聯(lián)動(dòng)下拉菜單[調(diào)用數(shù)據(jù)庫(kù)數(shù)據(jù)]
ASP+JS三級(jí)聯(lián)動(dòng)下拉菜單[調(diào)用數(shù)據(jù)庫(kù)數(shù)據(jù)]...2007-03-03