测试了utf8和gbk下 两个文件。中文两位英文一位

Function LenStr(ByVal StrValue)
	Dim a,i
	for i=1 to Len(StrValue)
		a=Mid(StrValue,i,1)
		if AscW(a)>127 or AscW(a)<0  then
			LenStr=LenStr+2
		else
			LenStr=LenStr+1
		end if
	next
End Function

response.Write(LenStr("你好")&"<br>")