字符编码为什么要加上65535？

[亚细亚]

在网上看到这个函数，理解不了iCode = iCode + 65535， 为什么要加65535?

 	
 function toByte(Str)
	   dim i,iCode,c,iLow,iHigh
	   toByte=""
	   For i=1 To Len(Str)
		   c=mid(Str,i,1)
		   iCode =Asc(c) 
		  ' response.Write(iCode&"<br>")
		   If iCode<0 Then iCode = iCode + 65535
		   If iCode>255 Then
			 iLow = Left(Hex(Asc(c)),2)
			 iHigh =Right(Hex(Asc(c)),2)
			 toByte = toByte & chrB("&H"&iLow) & chrB("&H"&iHigh)
		   Else
			 toByte = toByte & chrB(AscB(c))
		   End If
	   Next
	 End function

[renjnet]

iCode =Asc(c) 这里读取这个字符的asc码，如果是汉字，则这个值就是负数，这时候就需要加65535，来获取他的编码了

[亚细亚]

引用 1 楼 renjnet 的回复:

iCode =Asc(c) 这里读取这个字符的asc码，如果是汉字，则这个值就是负数，这时候就需要加65535，来获取他的编码了

那样的话，不就改变了汉字的编码了吗？

[renjnet]

引用 2 楼 亚细亚 的回复:

[quote=引用 1 楼 renjnet 的回复:] iCode =Asc(c) 这里读取这个字符的asc码，如果是汉字，则这个值就是负数，这时候就需要加65535，来获取他的编码了

那样的话，不就改变了汉字的编码了吗？[/quote] 你这是转成byte，加完65535后会转16进制处理，直到转成byte，跟改变没关系。