function service(ServerName,VarName,strs)
Set Http = SERVER.CREATEOBJECT("Microsoft.XMLHTTP")
URL = "http://AirWebService.51jp.cn/FlightsWebService/DataBaseWebService.asp"
SoapRequest=VarName & "=" & strs & "&PassWord=" & getPass
Http.Open "POST",URL,FALSE
Http.setRequestHeader "Content-Type", "application/x-www-form-urlencoded"
Http.setRequestHeader "Content-Length",LEN(SoapRequest)
Http.send(SoapRequest)
strvas = Http.ResponseText
service = trim(strvas)
end function

谢谢了！