/**//*
作者:阿牛(牛昆亮) QQ:273352165 MSN:niukl@hotmail.com
声明:可以免费使用,请您保留此信息
如果您有什么改过,记得告诉我!
*/
function PostDataToUrl(strUrl,strContent)
set xmlhttp = CreateObject("MSXML2.XMLhttp")
xmlhttp.open "POST",strUrl,false
xmlhttp.setRequestHeader "CONTENT-TYPE","text/xml;charset=gb2312;"
vout = Str2Bytes(strcontent,"gb2312")
xmlhttp.setRequestHeader "Content-Length",len(vout)
xmlhttp.send(vout)
strxml = xmlhttp.responseText
set xmlhttp = nothing
PostDataToUrl = strxml
end function
Function Str2Bytes(str,charset)
Dim ms,strRet
Set ms = CreateObject("ADODB.Stream") '建立流对象
ms.Type = 2 ' Text
ms.Charset = charset '设置流对象的编码方式为 charset
ms.Open
ms.WriteText str '把str写入流对象中
ms.Position = 0 '设置流对象的起始位置是0 以设置Charset属性
ms.Type = 1 'Binary
![](/Images/OutliningIndicators/None.gif)
vout = ms.Read(ms.Size) '取字符流
ms.close '关闭流对象
Set ms = nothing
Str2Bytes = vout
End Function
![](/Images/OutliningIndicators/None.gif)
QQ:273352165
evlon#126.com
转载请注明出处。