Visualizzazione dei risultati da 1 a 2 su 2

Discussione: rss reader in asp

  1. #1

    rss reader in asp

    primo volevo postare questo rss reader asp che trovai tempo fa e
    che di sicuro può essere utile a qualcuno...
    codice:
    <title>Rss reader</title>
    <base target="_blank">
    
    <%
    'link al file xml o asp o php o altro
    extURL = "http://miosito.com/rss.xml"
    
    ' RSS- loader
    set xmlDoc = createObject("Msxml.DOMDocument")
    xmlDoc.async = false
    xmlDoc.setProperty "ServerHTTPRequest", true
    xmlDoc.load(extURL)
    
    ' Check at RSS-feedet 
    If (xmlDoc.parseError.errorCode <> 0) then
    	' Udskriv eventuelle fejl (for nem fejlretning)
    	Response.Write "XML error: " & xmlDoc.parseError.reason
    
    Else
    
    
    
    	' leggiamo  <item>
    	set itemNodes = xmlDoc.selectNodes("//item/*")
    
    	For each item in itemNodes
    		' Elementerne i channel lægges i variable med #%# som adskillelse
    		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
    
    	' Elementerne i channel splittes i arrays
    	arrItemTitle = split(strItemTitle,"#%#")
    	arrItemLink = split(strItemLink,"#%#")
    	arrItemDescription = split(strItemDescription,"#%#")
    
    	' Elementerne i channel udskrives
    	
    		for a = 0 to UBound(arrItemTitle) - 1
    			
    			response.write "" & arrItemTitle(a) & ""
    				' Description udskrives hvis den eksisterer
    				if strItemDescription <> "" then
    					response.write "
    " & arrItemDescription(a) & "
    "
    				end if
    			
    		next
    	
    
    	' Vi rydder op
    	set channelNodes = nothing
    	set itemNodes = nothing
    
    End If
    %>
    
    <body style="font-size: 8 pt; font-family: Verdana" link="#000000" vlink="#000000" alink="#000000">

    e proprio su questo file asp mi chiedevo ..
    è possibile leggere solo i primi 4 campi
    dell'xml?
    non voglio leggerlo tutto... :master:


    grazie 26000
    L'intuizione creativa più di ogni altra cosa è l'unico elemento per cui la vita vale la pena di essere vissuta (D.W)

  2. #2
    è difficile? :master:
    L'intuizione creativa più di ogni altra cosa è l'unico elemento per cui la vita vale la pena di essere vissuta (D.W)

Permessi di invio

  • Non puoi inserire discussioni
  • Non puoi inserire repliche
  • Non puoi inserire allegati
  • Non puoi modificare i tuoi messaggi
  •  
Powered by vBulletin® Version 4.2.1
Copyright © 2025 vBulletin Solutions, Inc. All rights reserved.