//±àÂëת»»
	function encodeGB2312(vIn)
		dim strReturn,i,ThisCharCode,innerCode,Hight8,Low8,NextCharCode
		strReturn=""
		for i=1 to LenB(vIn)
  			ThisCharCode=AscB(MidB(vIn,i,1))
  			if ThisCharCode<&H80 Then
    			strReturn=strReturn & Chr(ThisCharCode)
  			else
    			NextCharCode=AscB(MidB(vIn,i+1,1))
    			strReturn=strReturn&Chr(CLng(ThisCharCode)*&H100+CInt(NextCharCode))
    			i=i+1
  			end if
  		next
  		encodeGB2312=strReturn
	end function