Function doPost(content , url)

Dim xmlHttp,result,message,temp '初始化MSXML2.ServerXMLHTTP对象-xmlHttp和result
Set xmlHttp = server.CreateObject("MSXML2.ServerXMLHTTP")
Set result = CreateObject("Scripting.Dictionary")

'设置超时时间-3分钟
Server.ScriptTimeOut = 180

'设置程序发生错误时,略过错误!
On Error Resume Next '设置xmlHttp参数
xmlHttp.open  "POST" , url , False
xmlHttp.setRequestHeader "Content-Length",Len(content)
xmlHttp.setRequestHeader "Content-Type", "application/x-www-form-urlencoded"
xmlHttp.Send content

'设置程序出错返回信息
If Err.number <> 0 Then
result.add "code" , Err.number
result.add "description" , Err.description
Else 
'设置服务器返回信息
message = bytesToBSTR(xmlHttp.responsebody,"gbk")
'截取返回消息中的代码和描述
temp = Split(message , " ")
result.add "code" , temp(0)
result.add "description" , temp(1)
End If '返回一个含有错误代码和错误描述的MSXML2.ServerXMLHTTP对象
Set doPost = result

'释放对象资源
Set xmlHttp = Nothing
Set result = Nothing 
End Function