Классический ASP (VBScript) Отображение только первого изображения (изображение YouTube)

Question

Это моя первая публикация здесь - это отличный ресурс, и я, похоже, продолжаю находить здесь решения. Я пишу код для отображения галереи изображений видео YouTube на веб-сайте. Я использую Classic ASP для анализа RSS-канала, и до сих пор я успешно получил эскиз видео YouTube. Сейчас я пытаюсь отобразить только одну из 4 Jpegs - URL-адрес YouTube для миниатюр, похоже, имеет следующий формат:

1. http://i.ytimg.com/vi/oh_OMkstzMQ/0.jpg
2. http://i.ytimg.com/vi/oh_OMkstzMQ/1.jpg
3. http://i.ytimg.com/vi/oh_OMkstzMQ/2.jpg
4. 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    
%>

Надеюсь, кто-нибудь может помочь. Большое спасибо.

Douglas

Answer 1

Если вы просто хотите получить 0.jpg из эскиза URL, попробуйте:

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

Если вы хотите просто получить первый эскиз, вы можете использовать Exit For для выхода из цикла.