较为详细的介绍了asp自定义的各种函数,方便asp的各种开发.

源代码在线查看: len(),lift(),right()不能正常识别中文的解决方法.htm

软件大小: 6938 K
上传用户: wentianliang
关键词: asp 自定义 函数
下载地址: 免注册下载 普通下载 VIP

相关代码

				
				
				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> 
				        
							

相关资源