vbscript - 经典ASP(VBScript)仅显示第一个图像(YouTube图像)

Question

这是我第一次在这里发布-这是一个很好的资源，我似乎一直在这里找到解决方案。我正在编写代码以在网站上显示YouTube视频的图片库。我正在使用Classic ASP解析RSS feed，到目前为止，我已经成功获取了YouTube视频的缩略图。现在，我尝试仅显示4个Jpeg中的一个-缩略图的YouTube RSS的网址似乎采用以下格式:

http://i.ytimg.com/vi/oh_OMkstzMQ/0.jpg

http://i.ytimg.com/vi/oh_OMkstzMQ/1.jpg

http://i.ytimg.com/vi/oh_OMkstzMQ/2.jpg

http://i.ytimg.com/vi/oh_OMkstzMQ/3.jpg

因此，我想知道是否有人可以建议一种仅从提要中获取 0.jpg的方法？我将在下面发布我的代码:

<%
Dim xml, xhr, ns, YouTubeID, TrimmedID, GetJpeg, GetJpeg2, GetJpeg3, thumbnailUrl, xmlList, nodeList, TrimmedThumbnailUrl
Set xml = Server.CreateObject("MSXML2.FreeThreadedDOMDocument")
xml.async = False
xml.setProperty "ServerHTTPRequest", True
xml.Load("http://gdata.youtube.com/feeds/api/users/Shuggy23/favorites?orderby=updated")
If xml.parseError.errorCode <> 0 Then
    Response.Write xml.parseError.reason
End If
Set xmlList = xml.getElementsByTagName("entry")
Set nodeList = xml.SelectNodes("//media:thumbnail")
For Each xmlItem In xmlList
    YouTubeID = xmlItem.getElementsByTagName("id")(0).Text
    TrimmedID = Replace(YouTubeID, "http://gdata.youtube.com/feeds/api/videos/", "")
    For Each xmlItem2 In nodeList
        thumbnailUrl = xmlItem2.getAttribute("url")

        Response.Write thumbnailUrl & "<br />"
    Next    
Next    
%>

希望有人能帮忙。
非常感谢。

道格拉斯

Answer 1

如果您只想从缩略图URL获取0.jpg，请尝试:

Right(thumbnailUrl, Len(thumbnailUrl) - InStrRev(thumbnailUrl, "/"))

如果只想获取第一个缩略图，则可以使用 Exit For摆脱循环。