// VBScript Document
<!--
Function jLenB(string)
	str_length=0
	for i=1 to len(string)
		str_asc=Asc(Mid(string,i,1))
		if str_asc<0 then
			str_length = str_length + 2
		else
			str_length = str_length + 1
		end if
	next
	jLenB=str_length
End Function
-->