较为详细的介绍了asp自定义的各种函数,方便asp的各种开发.
源代码在线查看: len(),lift(),right()不能正常识别中文的解决方法.htm
len(),lift(),right()不能正常识别中文的解决方法
href="len(),lift(),right()不能正常识别中文的解决方法.files/putong_1t" rel=StyleSheet
type=text/css>
src="len(),lift(),right()不能正常识别中文的解决方法.files/fun_Script.js">
width=717>
style="FONT-SIZE: 14px"> style="FONT-SIZE: 14px">len(),lift(),right()不能正常识别中文的解决方法 color=#000000 style="FONT-SIZE: 14px">
更新日期:2002-9-25 阅读次数:282
style="FONT-SIZE: 14px">以下用法和len(),lift(),right()一样。Function
Strlength(Str)Temp_Str=Len(Str)For I=1 To
Temp_StrTest_Str=(Mid(Str,I,1))If Asc(Test_Str)>0
ThenStrlength=Strlength+1ElseStrlength=Strlength+2End
IfNextEnd FunctionFunction
Strleft(Str,L)Temp_Str=Len(Str)For I=1 To
Temp_StrTest_Str=(Mid(Str,I,1))Strleft=Strleft&Test_StrIf
Asc(Test_Str)>0 Thenlens=lens+1Elselens=lens+2End
IfIf lens>=L Then Exit ForNextEnd FunctionFunction
Strright(Str,L)Temp_Str=Len(Str)For i = Temp_Str to 1 step
-1Test_Str=(Mid(Str,I,1))Strright=Test_Str&StrrightIf
Asc(Test_Str)>0 Thenlens=lens+1Elselens=lens+2End
IfIf lens>=L Then Exit ForNextEnd Function
原作者:vifo来 源:开发者俱乐部
width=717>