recv_test.asp

为了对短消息信息应用开发商提供支持

<%
'Option Explicit
Dim objHttpRequest	'XML文档对象
Dim objXmlDoc	    'XML文档对象
Dim root

Dim SendNum         '发送号码
Dim RecvNum         '接收号码
Dim RecvTime        '接收时间
Dim RecvMsg         '接收信息


'根据参数，生成调用URL,因为是测试例子，不对变量为空的情况做处理
URL = "http://web.mobset.com/SDK/Sms_Recv.asp?CorpID="&request("CorpID")&"&LoginName="&request("LoginName")&"&XML=1"


'调用MSXML，发送请求
set objHttpRequest = CreateObject("MSXML2.ServerXMLHTTP" )

if objHttpRequest is Nothing Then
 '返回错误
 response.write "create Msxl2.ServerXMLHTTP error"
 response.end
end if

Set objXmlDoc = CreateObject("Msxml2.DOMDocument")
If objXmlDoc Is Nothing Then
 '返回错误
 response.write "create Msxl2.DoMDocument error"
 response.end
End If
objXmlDoc.async = false


'发出请求
objHttpRequest.open "GET",URL,False
objHttpRequest.send()
if objHttpRequest.status <> 200  then
 '返回错误
 response.write "Open Request Error"
 response.end
end if


'加载Xml流
bResult = objXmlDoc.loadXML(objHttpRequest.responseText)
If bResult = False Then
		'写错误日志
   response.write "load response xml error"
   response.end
End If

'获取信息
set root = objXmlDoc.documentElement
for i=1 to root.childNodes.length
  set node = root.childNodes.item(i)
  if not node is Nothing then
    set node2= node.childNodes.item(0)
    SendNum = node2.nodeTypedValue   'SendNum
    set node2= node.childNodes.item(1)
    RecvNum = node2.nodeTypedValue   'RecvNum
    set node2= node.childNodes.item(2)
    RecvTime = node2.nodeTypedValue   'RecvTime
    set node2= node.childNodes.item(3)
    RecvMsg = node2.nodeTypedValue   'RecvMsg
	
    response.write SendNum&"-"&RecvNum&"-"&RecvTime&"-"&RecvMsg&"<BR>"
  end if
next

'释放资源
Set objXmlDoc = Nothing
Set objHttpRequest = Nothing

%>