ASP ile XML(RSS) Dosyasındaki verileri Sayfalama

10.05.2011 tarihinde , Espiar tarafından yazılmış ve 343 kere okunmuş.

Kaynak kodları görmek için devamına tıklayın. <% extURL = "rss/makaleler.asp" set xmlDoc = createObject("Msxml.DOMDocument") xmlDoc.async = false xmlDoc.setProperty "ServerHTTPRequest", true xmlDoc.load(extURL) If (xmlDoc.parseError.errorCode <> 0) then  Response.Write "XML error: " & xmlDoc.parseError.reason Else  set channelNodes = xmlDoc.selectNodes("//channel/*")  for each entry in channelNodes   if entry.tagName = "title" then    strChannelTitle = entry.text   elseif entry.tagName = "description" then    strChannelDescription = entry.text   elseif entry.tagName = "link" then    strChannelLink = entry.text   end if  next  response.write "<h1>" & strChannelTitle & "</h1>"  response.write "<p>" & strChannelDescription & "</p>"  response.write "<p><a href='" & strChannelLink & "'>Besøg " & strChannelTitle & "</a></p>"  response.write "<hr />"  set itemNodes = xmlDoc.selectNodes("//item/*")  For each item in itemNodes   if item.tagName = "title" then    strItemTitle = strItemTitle & item.text & "#%#"   elseif item.tagName = "link" then    strItemLink = strItemLink & item.text & "#%#"   elseif item.tagName = "description" then    strItemDescription = strItemDescription & item.text & "#%#"   end if  next  arrItemTitle = split(strItemTitle,"#%#")  arrItemLink = split(strItemLink,"#%#")  arrItemDescription = split(strItemDescription,"#%#")  response.write "<ul>"   for a = 0 to UBound(arrItemTitle) - 1    response.write "<li>"    response.write "<a href='" & arrItemLink(a) & "'>" & arrItemTitle(a) & "</a>"     if strItemDescription <> "" then      response.write "<br />" & arrItemDescription(a)     end if    response.write "</li>"   next  response.write "</ul>"  set channelNodes = nothing  set itemNodes = nothing End If %>   Etiketler : asp, xml sayfalama, rss, çekme