Lecteur rss en asp simple, en un seul fichier

Commenter

Contenu du snippet

Ce lecteur RSS en ASP est encore plus simple que notre version en PHP disponible sur le site codes-sources.com

Si vous disposez d'un hébergement en Windows ASP (Active Server Pages vous pouvez récupérer facilement un fil d'information RSS par exemple d'un Blog et le publier directement sur votre site.

De ce fait, vous pouvez aussi bien utiliser le programme ci-dessous pour afficher n'importe quel RSS.

Voici un exemple d'importation de notre fil RSS sur un de nos site Web en ASP :

http://www34.brinkster.com/itcom3/asprssreader.asp?rssurl=http://ublog.com/itcom3/rss

Veillez à passer un argument rssurl avec l'adresse du fil que vous souhaitez afficher dans votre page ASP

A+,

Pierre

Source / Exemple : 


<%  
 Option Explicit 
 Response.Buffer = true 
 Response.ExpiresAbsolute = Now () - 1
 Response.Expires = 0
%>

<%
'-----------------------------------------------------------------------------
' Name   : ASPRSSReader.asp
' Description  : very sample RSS Reader in ASP
' Company  : ITCom3
' Modify by : Pierre Rouarch
' Date : March, 27, 2004
'--------------------------------------------------------------------------------
%>

<%
' Variables
Dim myRSSURL, myRSSDocument,  myNews, mychannelNodes, entry, myChannelTitle, myChannelLink, myChannelDescription, myBase, myitemNodes, item, myitemTitle, myitemLink, myitempubDate, myitemDescription

' get RSS Address e.g : http://www.mysite.com/ASPRSSReader.asp?rssurl=http://www.rsssite.com/rssfile
myRSSURL=request("rssurl")
if Len(myRSSURL)=0 then
 ' Change with  your  default RSS URL
 myRSSURL = "http://www.u-blog.net/itcom3/rss"
end if

' Load RSS file
set myRSSDocument = createObject("Msxml.DOMDocument")
myRSSDocument.async = false
myRSSDocument.setProperty "ServerHTTPRequest", true
myRSSDocument.load(myRSSURL)

' Check if it 's loaded
If (myRSSDocument.parseError.errorCode <> 0) then
 ' Save error in myNews for displaying 
 myNews =  "XML error: " & myRSSDocument.parseError.reason
' Continue if OK
Else

 'Get elements <channel>
 set mychannelNodes = myRSSDocument.selectNodes("//channel/*")

 for each entry in mychannelNodes   ' Normaly one Channel
  if entry.tagName = "title" then
   myChannelTitle = entry.text
  elseif entry.tagName = "link" then
   myChannelLink = entry.text
  elseif entry.tagName = "description" then
   myChannelDescription = entry.text
   ' Save all in myBase for displaying 
   myBase =  myBase & "<h1>" & myChannelTitle & "</h1>"
   myBase =  myBase & "<p>" & myChannelDescription & "</p>"
   myBase =  myBase &  "<p><a href='" & myChannelLink & "'>" & myChannelTitle & "</a></p>" & "<hr>"
 end if
 next ' next <channel> element

 ' Get elements <item>
 set myitemNodes = myRSSDocument.selectNodes("//item/*")

 For each item in myitemNodes
  if item.tagName = "title" then
   myItemTitle =  item.text  
  elseif item.tagName = "link" then
   myItemLink =  item.text 
  elseif item.tagName = "pubDate" then
   myItempubDate =  item.text 
  elseif item.tagName = "description" then
   myItemDescription =  item.text 
   ' Save all in myNews for displaying 
   myNews = myNews &  myItempubDate & "<br>" 
   myNews = myNews & "<h2>" & myItemTitle & "</h2>" 
         myNews = myNews & "<p>" & myItemDescription & "</p>"
   myNews = myNews & "<p><a href='" & myItemLink & "'>" & myItemTitle & "</a></p>" & "<hr>"
  end if

 

 next ' Next <item> element

 ' Liberate Nodes
 set mychannelNodes = nothing
 set myitemNodes = nothing

End If ' if no error

%>

<html>
<head>
<title>Very Sample RSS Reader in ASP</title>
<meta http-equiv="Content-Type" content="text/html charset=iso-8859-1">
</head>
<body>

<%
Response.write myBase
Response.write myNews
%>

</body>
</html>

Conclusion :


Merci à Ublog.com pour l'hébergement de notre Blog
Merci à Brinkster.com pour nos hébergements en ASP

A voir également

S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Du même auteur (itcom3)