Question

ASP 运行时错误 错误 '800a01a8' 缺少对象: '[object]'

if nodeobj.childNodes.Length>1 then
Set item=x.getElementsByTagName("total_results")
total_results=item.Item(0).Text '查询到订单的总数量
if nodeobj.hasChildNodes() and lcase(nodeobj.childNodes.item(0).nodeName)<>"#text" then
set childnodeobj=nodeobj.childNodes
childnodelen=nodeobj.childNodes.item(0).childNodes.Length
%><table cellspacing="0" border="1">
<%
for i=0 to childnodelen-1
' for iii=0 to 14 '老的测试位置的
'test88852=childnodeobj.item(0).childNodes.item(i).childNodes.item(iii).text
'response.Write("|||"&iii&":"&test88852&"")
'next
'buyer_nick=childnodeobj.item(0).childNodes.item(i).childNodes.item(0).text '买家昵称 老的靠位置的实现的，如果有固话位置错误
buyer_nick=childnodeobj.item(0).childNodes.item(i).selectSingleNode("buyer_nick").text '买家昵称
receiver_state=childnodeobj.item(0).childNodes.item(i).selectSingleNode("receiver_state").text '收货人的所在省份
receiver_city=childnodeobj.item(0).childNodes.item(i).selectSingleNode("receiver_city").text 'receiver_city
receiver_district=childnodeobj.item(0).childNodes.item(i).selectSingleNode("receiver_district").text '收货人的所在地区

有的时候会出现错误Microsoft VBScript 运行时错误 错误 '800a01a8'缺少对象: '[object]'
receiver_district=childnodeobj.item(0).childNodes.item(i).selectSingleNode("receiver_district").text
这一行的错误的,,最后看了下,原来是这个获取不到值的时候就出现了这个错误,,请问如何修改下,比如获取不到值就为空.
麻烦写详细一点,本人比较菜,,,,拜托了

Answer 1

修改一下判断，如果有值，则用其值，如果没有则用一个默认值

if childnodeobj.item(0).childNodes.item(i).selectSingleNode("receiver_district") <> null then
receiver_district= childnodeobj.item(0).childNodes.item(i).selectSingleNode("receiver_district").text
else
receiver_district= "默认所在区域"
end if

追问

Microsoft VBScript 运行时错误 错误 '800a01b6'对象不支持此属性或方法