<%
url = "http://service2.winic.org:8003/Service.asmx" 'webservice 地址
'==============================发送短信记录函数
function GetMessageRecord(uid,pwd,num,startDate,endDate)
SoapRequest=""& _
""& _
""& _
""& _
""&uid&""& _
""&pwd&""& _
""&num&""& _
""&startDate&""& _
""&endDate&""& _
""& _
""& _
""
Set xmlhttp = server.CreateObject("Msxml2.XMLHTTP")
xmlhttp.Open "POST",url,false
xmlhttp.setRequestHeader "Content-Type", "text/xml;charset=utf-8"
xmlhttp.setRequestHeader "HOST","service2.winic.org"
xmlhttp.setRequestHeader "Content-Length",LEN(SoapRequest)
xmlhttp.setRequestHeader "SOAPAction", "http://tempuri.org/GetMessageRecord " '一定要与WEBSERVICE的命名空间相同，否则服务会拒绝
xmlhttp.Send(SoapRequest)
''样就利用XMLHTTP成功发送了与SOAP示例所符的SOAP请求.'检测一下是否返回200=成功：
If xmlhttp.Status = 200 Then
Set xmlDOC = server.CreateObject("MSXML.DOMDocument")
xmlDOC.load(xmlhttp.responseXML)
GetMessageRecord=xmlDOC.documentElement.selectNodes("//GetMessageRecordResult")(0).text '显示节点为GetUserInfoResult的数据(返回字符串)
Set xmlDOC = nothing
Else
GetMessageRecord=xmlhttp.Status&" "
GetMessageRecord=xmlhttp.StatusText
End if
Set xmlhttp = Nothing
end function
'==============================
uid=request.Form("uid")
pwd=request.Form("pwd")
num=request.Form("num")
startDate=request.Form("ddate")
endDate=request.Form("ddate2")
dim txtResult
txtResult= GetMessageRecord(uid,pwd,num,startDate,endDate) '发送短信
IF LEN(txtResult) >10 THEN
%>
| 用户名 |
信息编号 |
短信内容 |
短信条数 |
发送状态 |
<%
arrResult=split(txtResult,"|")
for ii=0 to ubound(arrResult)
arrStr=split(arrResult(ii),"/")
%>
| <%=arrStr(0)%> |
<%=arrStr(1)%> |
<%=arrStr(2)%> |
<%=arrStr(3)%> |
<%=arrStr(4)%> |
<%next%>
<%
ELSE
RESPONSE.WRITE txtResult
END IF%>