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