28,391
社区成员
发帖
与我相关
我的任务
分享xmlServerHttp
function XmlServerHttpSend(url)
Dim xmlServerHttp
Set xmlServerHttp = Server.CreateObject("Msxml2.ServerXMLHTTP")
Dim lResolve, lConnect, lSend, lReceive
lResolve = 10 * 1000
lConnect = 10 * 1000
lSend = 30 * 1000
lReceive = 30 * 1000
xmlServerHttp.setTimeouts lResolve, lConnect, lSend, lReceive
xmlServerHttp.open "GET",url,False
xmlServerHttp.send
if xmlServerHttp.readyState=4 then
if xmlServerHTTP.status=200 then
XmlServerHttpSend=xmlServerHttp.responseText
else
XmlServerHttpSend="NO"
end if
else
XmlServerHttpSend="NO"
end if
end function
我得到的结果却是
<?xml version="1.0" encoding="UTF-8" ?>
- <password>
<Status>-10</Status>
<Description>Invalid Phone Number</Description>
</password>
如何得到Status的值？
Dim xmlServerHttp
Set xmlServerHttp = Server.CreateObject("Msxml2.ServerXMLHTTP")
Dim lResolve, lConnect, lSend, lReceive
lResolve = 10 * 1000
lConnect = 10 * 1000
lSend = 30 * 1000
lReceive = 30 * 1000
xmlServerHttp.setTimeouts lResolve, lConnect, lSend, lReceive
xmlServerHttp.open "GET",url,False
xmlServerHttp.send
if xmlServerHttp.readyState=4 then
if xmlServerHTTP.status=200 then
XmlServerHttpSend=xmlServerHttp.responseText
else
XmlServerHttpSend="NO"
end if
else
XmlServerHttpSend="NO"
end if
end function
我得到的结果却是
<?xml version="1.0" encoding="UTF-8" ?>
- <password>
<Status>-10</Status>
<Description>Invalid Phone Number</Description>
</password>
如何得到Status的值？
...全文
请发表友善的回复…
发表回复
davs 2004-12-30
- 打赏
- 举报
Function GetStatus(Str)
Dim dom
set dom=Server.CreateObject("Microsoft.XMLDOM")
dom.async=false
dom.LoadXML(Str)
if dom.readyState=4 And Dom.parseError.errorCode=0 Then'装载成功
GetStatus=dom.documentElement.selectSingleNode("/password/Status").text
End If
End Function
Dim dom
set dom=Server.CreateObject("Microsoft.XMLDOM")
dom.async=false
dom.LoadXML(Str)
if dom.readyState=4 And Dom.parseError.errorCode=0 Then'装载成功
GetStatus=dom.documentElement.selectSingleNode("/password/Status").text
End If
End Function
heyixiang 2004-12-30
- 打赏
- 举报
没人？
heyixiang 2004-12-30
- 打赏
- 举报
寻求VBS下的帮助
heyixiang 2004-12-30
- 打赏
- 举报
顶啊
