获取字符串长度的函数(ASP/VB/JS)

function strLen(str){      
	var len=0;      
	for(var i=0;i<str.length;i++){      
		var intCode=str.charCodeAt(i);      
		if(intCode>=0 &amp;&amp; intCode<=128){      
			len = len + 1;      
		}else{      
			len = len + 2;      
		}      
	}      
    return len;      
}

Private Function Length(iTxt)   
	Dim txt: txt = Trim(iTxt)   
	Dim x: x = Len(txt)   
	Dim y: y = 0   
	Dim ii, chrA   
	For ii = 1 To x   
		chrA = Mid(txt, ii, 1)   
		If Asc(chrA) >= 0 And Asc(chrA) <= 255 Then  
			y = y + 1   
		Else    
			y = y + 2   
		End If    
	Next  
	Length = y   
End Function 

• ASP/Visual Basic
• JavaScript
• 技术人生