ajax XMLHTTP Post Form时的表单乱码综合解决(3)

日期：2020-05-13 栏目：程序人生 浏览：次

strReturn = strReturn & Chr(CLng(ThisCharCode) * &H100 + CInt(NextCharCode))  
i = i + 1  
End If  
Next  
bytes2BSTR = strReturn  
End Function  
strA = URLEncoding("submit1=Submit&text1=中文")  
oReq = CreateObject("MSXML2.XMLHTTP")  
oReq.open "POST","http://ServerName/VDir/TstResult.asp",false  
oReq.setRequestHeader "Content-Length",Len(strA)  
oReq.setRequestHeader "CONTENT-TYPE","application/x-www-form-urlencoded"  
oReq.send strA  
alert bytes2BSTR(oReq.responseBody)  
</SSRIPT>