<%
'定义参数
dim name,password
'依次为WebService的服务器地址、文件名称、方法接口
url = "http://192.168.10.1/Email.asmx/EmailSend"
'传递参数,如果包含&,需要使用%26进行替换
SoapRequest="name=name&password=password"
Set xmlhttp = server.CreateObject("Msxml2.XMLHTTP")
xmlhttp.Open "POST",url,false
xmlhttp.setRequestHeader "Content-Type","application/x-www-form-urlencoded"
xmlhttp.setRequestHeader "HOST","192.168.10.1"
xmlhttp.setRequestHeader "Content-Length",LEN(SoapRequest)
xmlhttp.Send(SoapRequest)
'显示结果，如果成功显示:200 OK
Response.Write xmlhttp.Status & " "
Response.Write xmlhttp.StatusText
Set xmlhttp = Nothing
%>
