如何取得字符串长度? 要求:使一个汉字为两个长度~~~

Question

<%
Function GetStrLength(Str)
dim objRegExp
Set objRegExp=new RegExp
objRegExp.IgnoreCase =true
objRegExp.Global=True
objRegExp.Pattern="[^\x00-\xff]"
Str=objRegExp.Replace(Str,"**")
GetStrLength = len(Str)
End FunctionResponse.Write(GetStrLength("中e"))
%>

Answer 1

<%
function getLen(str)
l=len(str)
t=0
for i=1 to l
c=Abs(Asc(Mid(str,i,1)))
if c>255 then
t=t+2
else
t=t+1
end if
next
                getLen=t
end functionResponse.Write(Getlen("中e"))
%>这个更好些，你自己照着写。
我也是看别人写的。

Answer 2

<script>
String.prototype.len=function(){
return this.replace(/[^\x00-\xff]/g,"**").length;
}
var str="我是zhiin";
alert(str.len())
</script>

Answer 3

/*************************************************************
名称：strbytelen
功能：取得字符串的字节长度，汉字记两个长度
参数：source，源字符串；
返回：endvalue，字符串的字节长度
*************************************************************/
function strbytelen(source) {
var endvalue=0;
var sourcestr=new String(source);
var tempstr;
for (var strposition = 0; strposition < sourcestr.length; strposition ++) {
tempstr=sourcestr.charAt(strposition);
if (tempstr.charCodeAt(0)>255 || tempstr.charCodeAt(0)<0) {
endvalue=endvalue+2;
} else {
endvalue=endvalue+1;
}
}
return(endvalue);
}
var s='Ｔaｗｏ我aa'
alert(strbytelen(s))