rss σε asp

Πληροφορίες σχετικές με την ASP, ASP.NET και με τις εφαρμογές που είναι γραμμένες με αυτήν.

Συντονιστές: WebDev Moderators, Super-Moderators

Απάντηση
Άβαταρ μέλους
cyberfreak
Honorary Member
Δημοσιεύσεις: 3474
Εγγραφή: 08 Σεπ 2004 16:38
Τοποθεσία: Κρυα Βρυση
Επικοινωνία:

rss σε asp

Δημοσίευση από cyberfreak » 22 Αύγ 2007 22:49

των κωδικα των βρηκα δεν ειναι δικος μου κ μου βγαζει προβλημα στην Mypage.asp

Κώδικας: Επιλογή όλων

<%
 Response.Expires = -1

 ' =========== RSS2HTML.ASP for ASP/ASP.NET ==========
 ' copyright 2005-2007 &#40;c&#41; www.Bytescout.com
 '  version 1.23, 14 June 2007 
 ' ===============================================
 ' ##############################################################
 ' ####### CHECK OUR COMMERCIAL PRODUCTS FOR ASP/ASP.NET&#58; #######
 ' SWF Scout &#91; http&#58;//bytescout.com/swfscout.html &#93;- create, read, modify flash movies &#40;SWF&#41;
 ' SWF SlideShow Scout &#91; http&#58;//bytescout.com/swfslideshowscout.html &#93;- convert JPEG,PNG,BMP into slideshow flash &#40;SWF&#41; with effects
 ' PDFDoc Scout &#91; http&#58;//bytescout.com/pdfdocscout.html &#93;- generate PDF documents with security options
 ' ##############################################################

 ' =========== configuration =====================
 ' ##### URL to RSS Feed to display #########
 URLToRSS = "http&#58;//rss.news.yahoo.com/rss/topstories"

 ' ##### max number of displayed items #####
 MaxNumberOfItems = 7

 ' ##### Main template constants
 MainTemplateHeader = "<table>"
 MainTemplateFooter = "</table>"
 ' ##### 

' ######################################
 Keyword1 =  ""  ' Keyword1 =  "tech" - set non-empty keyword value to filter by this keyword
 Keyword2 = "" ' Keyword1 =  "win" - set non-empty keyword value to filter by this 2nd keyword too
' #################################

 ' ##### Item template.
 ' ##### &#123;LINK&#125; will be replaced with item link
 ' ##### &#123;TITLE&#125; will be replaced with item title
 ' ##### &#123;DESCRIPTION&#125; will be replaced with item description
 ' ##### &#123;DATE&#125; will be replaced with item date and time
 ' ##### &#123;COMMENTSLINK&#125; will be replaced with link to comments &#40;if you use RSS feed from blog&#41;
 ' ##### &#123;CATEGORY&#125; will be replaced with item category
 ItemTemplate = "<tr><td><strong>&#123;DATE&#125;</strong><br/><strong>&#123;CATEGORY&#125;<br/></strong><a href=" & """&#123;LINK&#125;""" & ">&#123;TITLE&#125;</a><BR>&#123;DESCRIPTION&#125;</td></tr>"

 ' ##### Error message that will be displayed if not items etc
 ErrorMessage = "Error has occured while trying to process " &URLToRSS & "<BR>Please contact web-master"

 ' ================================================

 Set xmlHttp = Server.CreateObject&#40;"MSXML2.XMLHTTP.3.0"&#41;
 xmlHttp.Open "Get", URLToRSS, false
 xmlHttp.Send&#40;&#41;
 RSSXML = xmlHttp.ResponseText

 Set xmlDOM = Server.CreateObject&#40;"MSXML2.DomDocument.3.0"&#41;
 xmlDOM.async = False
 xmlDOM.validateOnParse = False
 xmlDom.resolveExternals = False

 If not xmlDOM.LoadXml&#40;RSSXML&#41; Then
     ErrorMessage = "Can not load XML&#58;" & vbCRLF & xmlDOM.parseError.reason & vbCRLF & ErrorMessage
 End If 

 Set xmlHttp = Nothing ' clear HTTP object

 Set RSSItems = xmlDOM.getElementsByTagName&#40;"item"&#41; ' collect all "items" from downloaded RSS

 RSSItemsCount = RSSItems.Length-1

 ' if not <item>..</item> entries, then try to get <entry>..</entry>
 if RSSItemsCount = -1 Then 
 Set RSSItems = xmlDOM.getElementsByTagName&#40;"entry"&#41; ' collect all "entry" &#40;atom format&#41; from downloaded RSS
 RSSItemsCount = RSSItems.Length-1

 End If 

 Set xmlDOM = Nothing ' clear XML


 ' writing Header
 if RSSItemsCount > 0 then 
  Response.Write MainTemplateHeader
 End If

 j = -1

 For i = 0 To RSSItemsCount
 Set RSSItem = RSSItems.Item&#40;i&#41;

  for each child in RSSItem.childNodes

   Select case lcase&#40;child.nodeName&#41;
     case "title"
           RSStitle = child.text
     case "link"
	   If RSSLink = "" Then
		If child.Attributes.length>0 Then
		 RSSLink = child.GetAttribute&#40;"href"&#41;
		 	 if &#40;RSSLink <> ""&#41; Then
 			  if child.GetAttribute&#40;"rel"&#41; <> "alternate" Then
	   			 RSSLink = ""
			  End If
 	   		 End If
		End If ' if has attributes	   	
 		If RSSLink = "" Then
		 	RSSlink = child.text
	   	End If
	   End If
     case "description"
           RSSdescription = child.text
     case "content" ' atom format
           RSSdescription = child.text
     case "published"' atom format
           RSSDate = child.text
     case "pubdate"
           RSSDate = child.text
     case "comments"
           RSSCommentsLink = child.text
     case "category"
	  	Set CategoryItems = RSSItem.getElementsByTagName&#40;"category"&#41;
		RSSCategory = ""
	  		for each categoryitem in CategoryItems
           			if RSSCategory <> "" Then 
					RSSCategory = RSSCategory & ", "
				End If
			
					RSSCategory = RSSCategory & categoryitem.text
			Next
   End Select
  next

' now check filter
 If &#40;InStr&#40;RSSTitle,Keyword1&#41;>0&#41; or &#40;InStr&#40;RSSTitle,Keyword2&#41;>0&#41; or &#40;InStr&#40;RSSDescription,Keyword1&#41;>0&#41; or &#40;InStr&#40;RSSDescription,Keyword2&#41;>0&#41; then

  j = J+1

  if J<MaxNumberOfItems then 
  ItemContent = Replace&#40;ItemTemplate,"&#123;LINK&#125;",RSSlink&#41;
  ItemContent = Replace&#40;ItemContent,"&#123;TITLE&#125;",RSSTitle&#41;
  ItemContent = Replace&#40;ItemContent,"&#123;DATE&#125;",RSSDate&#41;
  ItemContent = Replace&#40;ItemContent,"&#123;COMMENTSLINK&#125;",RSSCommentsLink&#41;
  ItemContent = Replace&#40;ItemContent,"&#123;CATEGORY&#125;",RSSCategory&#41;

  Response.Write Replace&#40;ItemContent,"&#123;DESCRIPTION&#125;",RSSDescription&#41;
  ItemContent = ""
  RSSLink = ""
  End if
End If 

 Next

 ' writing Footer
 if RSSItemsCount > 0 then 
  Response.Write MainTemplateFooter
 else 
  Response.Write ErrorMessage
 End If

' Response.End ' uncomment this for use in on-the-fly output
%>
εκει που καλει το http://rss.news.yahoo.com/rss/topstories το αλλαξα ωστε ν δουλεψει..μεχρι εδω ολα καλα μετα εχω μια αλλη σελιδα με κωδικα

Κώδικας: Επιλογή όλων

<html>
<body>
<p>My Page</p>
<p>RSS content is displayed below&#58;</p>
<hr>
<!--#include virtual="RSS2HTML.asp"-->
<hr>
<p>&nbsp;</p>
</body>
</html>
και μου βγαζει error
Ενεργές σελίδες διακομιστή, ASP 0126 (0x80004005)
Το αρχείο συμπερίληψης "RSS2HTML.asp" δεν βρέθηκε.
/todaynews/MyPage.asp, line 6

Άβαταρ μέλους
cyberfreak
Honorary Member
Δημοσιεύσεις: 3474
Εγγραφή: 08 Σεπ 2004 16:38
Τοποθεσία: Κρυα Βρυση
Επικοινωνία:

rss σε asp

Δημοσίευση από cyberfreak » 23 Αύγ 2007 18:29

κανεις ρε παιδια :cry:

Άβαταρ μέλους
Alice_Cooper
Δημοσιεύσεις: 1947
Εγγραφή: 11 Μάιος 2007 00:33
Τοποθεσία: Ioannina
Επικοινωνία:

rss σε asp

Δημοσίευση από Alice_Cooper » 24 Αύγ 2007 03:18

den exo asxolithe me asp
kati diorthoseis se etoimo na to valou kapou gia allon
alla apo toi katalaveno apo to error
kapou sto
<!--#include virtual="RSS2HTML.asp"-->
leei oti den vriskei afto...
dokimases olo to path?
h etc ...="./todaynews/RSS2HTML.asp"
ego afto tha dokimaza gia arxh :p

Άβαταρ μέλους
cyberfreak
Honorary Member
Δημοσιεύσεις: 3474
Εγγραφή: 08 Σεπ 2004 16:38
Τοποθεσία: Κρυα Βρυση
Επικοινωνία:

rss σε asp

Δημοσίευση από cyberfreak » 25 Αύγ 2007 12:35

thanks αυτο ηταν κ εγω καθομουν εψαχνα για τπτ λάθη μεσα στον κωδικα..αλλα τ να κανω ενα μυαλο χειμωνα καλοκαιρι κ αυτο αλλου :lol: :lol:

Απάντηση

Επιστροφή στο “ASP, ASP.NET”

Μέλη σε σύνδεση

Μέλη σε αυτήν τη Δ. Συζήτηση: Δεν υπάρχουν εγγεγραμμένα μέλη και 0 επισκέπτες