波斯马BOSSMA Information Technology

前几日用到了这个，贴出来，大家分享。

<%
'定义参数
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
%>

关键字: asp webservice XMLHTTP