Question

这是我第一次在这里发帖 - 这是一个很好的资源，我一直在寻找解决方案。我正在编写代码以在网站上显示YouTube视频的图片库。我正在使用经典ASP来解析RSS提要，到目前为止我已经成功获得了YouTube视频的缩略图。现在我只想显示4个Jpegs中的一个 - 用于缩略图的YouTube RSS的URL似乎采用以下格式：

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

所以，我想知道是否有人可以建议只从Feed中获取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

如果您只想从缩略图网址获取0.jpg，请尝试：

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

如果您想获得第一个缩略图，可以使用Exit For来摆脱循环。

经典ASP（VBScript）仅显示第一张图片（YouTube图片）

1 个答案: