pleiadedesarts
Membre récent
 Hors-Ligne
Messages: 26
Je suis un lama!
 
|
bonjour j'ai un fichier rss.php que je veux lire sur ma page d'accueil de mon site
j'ai un lecteur qui est en asp
pas de soucis il le lis bien mais les caractère acent etc.. certain sont remplacer comment faire.
jp
voici le code
<%
Option Explicit
Response.Buffer = true
Response.ExpiresAbsolute = Now () - 1
Response.Expires = 0
%>
<%
' 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 = ""
' 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> |
Auteur 
