rss reader کمک

[mgh67]

من می خوام با asp یک rss reader بسازم که بتونم انتخاب کنم چند موضوع را نمایش بدهد
به طور مثال تعیین کنم که 5 عدد خروجی یا 10 عدد خروجی داشته باشد
لطفا با مثال کد بگید یا یه مثال برای دانلود بگید
من خودم از کد زیر استفاده می کنم ولی هرکاری کردم نتونستم کاری کنم که اون تعدادی که من می خوام خروجی بده ؟

      <%
For i=1 to 2
IF i=1 then
extURL = "http://newsrss.bbc.co.uk/rss/newsonline_uk_edition/latest_published_stories/rss.xml"
Elseif i=2 then
extURL = "http://www.presstv.com/rss"
End IF
set xmlDoc = createObject("Msxml.DOMDocument")
xmlDoc.async = false
xmlDoc.setProperty "ServerHTTPRequest", true
xmlDoc.load(extURL)
 set itemNodes = xmlDoc.selectNodes("//item/*")
 For each item in itemNodes
  if item.tagName = "title" then
   response.write "<P><span class='style14'>" & item.text & "</span></P>"
  elseif item.tagName = "description" then
   response.write "<P><span class='style14'>" & item.text & "</span></P>"
  elseif item.tagName = "link" then
   response.write "<P><a href='" & item.text & "'>More</a></P>"
  end if
 next
 set channelNodes = nothing
 set itemNodes = nothing
 next
 %>

 

[TNZ187]

یک راه دیگه

سلام
طبق راهی که شما رفتید می شه مثلا این کار رو کرد . یک متغیر خارج از حلقه تعریف کنید و به ازای هر بار که داخل یکی از IF ها می شید یکی به آن اضافه کنید . مثلا داخل قسمتی که عنوان رو رایت می کنه . بعد قبل از همه شرط ها چک کنید که مقدار اون متغیر به ده نرسیده باشه . یعنی

dim count as integer
For each item in itemNodes
  if count <10 then    
  if item.tagName = "title" then
count+=1
   response.write "<P><span class='style14'>" & item.text & "</span></P>"
  elseif item.tagName = "description" then
   response.write "<P><span class='style14'>" & item.text & "</span></P>"
  elseif item.tagName = "link" then
   response.write "<P><a href='" & item.text & "'>More</a></P>"
  end if
end if
 next

ولی
من توصیه می کنم که این کار رو داخل صفحه انجام ندید . در واقع خارج از صفحه این XML رو دریافت کنید و اگه سخت نیست اون رو با XSLT ساختار بندی کنید . البته نتیجه تقریبا یکی ولی اون راه طبق قاعده تر ( با کلاس تر ) می باشد .

 

[mgh67]

یه مثال بگید؟

سلام
طبق راهی که شما رفتید می شه مثلا این کار رو کرد . یک متغیر خارج از حلقه تعریف کنید و به ازای هر بار که داخل یکی از If ها می شید یکی به آن اضافه کنید . مثلا داخل قسمتی که عنوان رو رایت می کنه . بعد قبل از همه شرط ها چک کنید که مقدار اون متغیر به ده نرسیده باشه . یعنی

Dim Count As Integer
For Each Item In Itemnodes
  If Count <10 Then    
  If Item.tagname = "title" Then
Count+=1
   Response.write "<p><span Class='style14'>" & Item.text & "</span></p>"
  Elseif Item.tagname = "description" Then
   Response.write "<p><span Class='style14'>" & Item.text & "</span></p>"
  Elseif Item.tagname = "link" Then
   Response.write "<p><a Href='" & Item.text & "'>more</a></p>"
  End If
End If
 Next

ولی
من توصیه می کنم که این کار رو داخل صفحه انجام ندید . در واقع خارج از صفحه این Xml رو دریافت کنید و اگه سخت نیست اون رو با Xslt ساختار بندی کنید . البته نتیجه تقریبا یکی ولی اون راه طبق قاعده تر ( با کلاس تر ) می باشد .

اگه لطف کنید یه مثال بگید ممنون می شم ؟؟؟؟؟؟؟؟؟؟؟؟

 

[TNZ187]

مثال

سلام
من مثال هایی با اون قالبی که عرض کردم دیدم ، ولی هرچی گشتم نتونستم چیزی پیدا کنم . ولی در مجموع اگه به این آدرس یک سری بزنید ، مضر نیست ، ولی نمی گم که مفید هم هست . http://msdn.microsoft.com/en-gb/ms789074.aspx