Question

我正在使用Flickr API和MSXML2.ServerXMLHTTP.6.0来读取XML响应。

例如：

https://www.flickr.com/services/rest/?method=flickr.photos.search&api_key=[mykey]&text=cheese&per_page=1&sort=relevance&min_upload_date=2010-05-25

返回：

<rsp stat="ok">
    <photos page="1" pages="847622" perpage="1" total="847622">
        <photo id="8658999887" owner="46248160@N04" secret="13e2615193" server="8123" farm="9" title="cheeses" ispublic="1" isfriend="0" isfamily="0"/>
    </photos>
</rsp>

我做了一些简单的ASP来设置变量值：

vurl = https://www.flickr.com/services/rest/?method=flickr.photos.search&api_key=[mykey]&text=cheese&per_page=1&sort=relevance&min_upload_date=2010-05-25
Set http = Server.CreateObject("MSXML2.ServerXMLHTTP.6.0")
http.Open "GET", vurl, False
http.Send

Set dom = http.responseXML

Set items = dom.getElementsByTagName("photos")

If NOT (items IS Nothing) Then

    For Each item In items

        Set tags = item.getElementsByTagName("photo")
        If NOT (tags IS Nothing) Then 
            var_id = tags(0).getAttribute("id")
            var_owner = tags(0).getAttribute("owner")
            var_server = tags(0).getAttribute("server")
            var_farm = tags(0).getAttribute("farm")
            var_title = tags(0).getAttribute("title")
            var_public = tags(0).getAttribute("public")
            var_secret = tags(0).getAttribute("secret")
            var_img_url2 = "https://farm"&var_farm&".staticflickr.com/"&var_server&"/"&var_id&"_"&var_secret&"_b.jpg"
            var_id = ""
            %>
            <%
        End If

    Next

end if

我的问题是，如果API没有为搜索字词返回图像 - 例如“aplogranite”的XML响应是：

<rsp stat="ok">
    <photos page="1" pages="0" perpage="1" total="0"/>
</rsp>

上面的代码返回此错误：

Microsoft VBScript runtime error '800a01a8'

Object required: '[object]'

我试图通过以下方式捕获它：

Set items = dom.getElementsByTagName("photos")

If NOT (items IS Nothing) Then...

但它仍然是错误。

我想知道如何捕获错误以便我可以处理XML在“photo”标记中不包含任何数据的情况？

Answer 1

似乎代替Nothing，getElementsByTagName()在没有元素匹配标记名参数的情况下返回空集合。因此，请尝试检查返回值的Length：

If tags.Length > 0 Then
    ....
End If

或者可以测试Nothing的第一个元素：

If Not (tags(0) Is Nothing) Then
    ....
End If

需要陷阱对象：'[object]'与MSXML2.ServerXMLHTTP.6.0

1 个答案: