dim url,soaprequest,retvalue
                 url=webservice的地址
                        下面是接口需要的参数
                 soaprequest="ChannelName='106全网'&MemberName='用户名'&PassWord='密码'&MsgContent='短信内容
'&TeleNum='手机号码'&LsNum='状态报告流水号'&MoreNum='扩展号'"
                 set xmlhttp = server.createobject("msxml2.xmlhttp")
                 xmlhttp.open "post",url,false
                 xmlhttp.setrequestheader "content-type", 
                "application/x-www-form-urlencoded"
                 xmlhttp.setrequestheader "host",host
                 xmlhttp.setrequestheader "content-length",len(soaprequest)
                 xmlhttp.send(soaprequest)
                  if xmlhttp.status = 200 then
                      set xmldoc = server.createobject("msxml2.domdocument")
                      xmldoc.load(xmlhttp.responsexml)      
                      'xmldoc是接收了webservice返回的xml内容，如果webservice返回的不是xml，就用xmlhttp.responsetext
                 else
                      '调用webservice失败
                 end if
                 set xmlhttp = nothing