2011-05-13 71 views
1

這是我第一次在這裏發佈 - 這是一個很好的資源,我一直在尋找解決方案在這裏。我正在編寫代碼在網站上顯示YouTube視頻圖庫。我使用的是經典ASP解析RSS提要,到目前爲止,我已經成功獲得了YouTube視頻的縮略圖。現在,我想只顯示4個JPEG文件之一 - 在YouTube RSS爲縮略圖的URL似乎是按以下格式:經典ASP(VBScript)只顯示第一張圖片(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  
%> 

希望有人可以提供幫助。 非常感謝。

道格拉斯

回答

1

如果你只是想從縮略圖URL 0.jpg,嘗試:

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

如果你想只拿到第一個縮略圖,你可以使用Exit For保釋出來的循環。

相關問題