javascript vbscript 统计含中文的字符串的个数

vbscript版的统计中英文都可以的,英文为1个字符,中文为2个字符,在网上找得太辛苦了,百度基本找不到,google的找到了,却老是无法显示此页,日你他妈的paty

javascript:

function countsl(val) {
var sum=0;
if(val){
for(var i=0;i<val.length;i++){
if(val.charCodeAt(i)>255){sum+=2;}
else{sum+=1;}
}
}
return sum;
}

vbscript:

Function ChineseLen(Str)
Dim oRegExp, sTmp
If Len(Trim(str)) > 0 Then
Set oRegExp = new RegExp
oRegExp.IgnoreCase = True
oRegExp.Global = True
oRegExp.Pattern = "[uff00-uffffu4e00-u9fa5ufe10-ufe1fufe30-ufe4fu1100-u11ffu2600-u26ffu2700-u27bfu2800-u28ffu3300-u33ffu3200-u32ffua490-ua4cfua000-ua48fu3130-u318fuac00-ud7afu31f0-u31ffu30a0-u30ffu3040-u309fu31a0-u31bfu3100-u312Fu2FF0-u2FFFu2F00-u2FDFu31c0-u31efu3000-u303fu2e80-u2effuff00-uffef]"
sTmp = oRegExp.Replace(str, "xx")
Set oRegExp=Nothing
End If
ChineseLen = Len(sTmp)
End function