Ir para conteúdo

POWERED BY:

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

João Sauer

RSS de outro site

Por , em ASP Clássico

Recommended Posts

xanburzum    169

xanburzum
Postado

sim, é possivel

acesse o laboratorio de script k existem varios exemplos

Compartilhar este post

Link para o post
Compartilhar em outros sites

xanburzum    169

xanburzum
Postado

só complementando

 

exemplo de ler o RSS 2.0 feed, você também pode por em cache o conteúdo HTML construído sobre o feed RSS,Em cache o HTML resultante, que irá melhorar o desempenho ea página que não irá sobrecarregar o servidor

 

<%@ Language="VBScript" %>
<html>
<head>
<title>RSS Reader</title>
</head>
<body>
<%
If DateDiff("h", Application("rss-html-time"), Now()) >= 2 then  
Set xmlDOM = Server.CreateObject("MSXML2.DOMDocument")  
xmlDOM.async = False
 xmlDOM.setProperty "ServerHTTPRequest", True 
  xmlDOM.Load("http://www.codebeach.com/rss-it-jobs.asp")
  Set itemList = xmlDOM.getElementsByTagName("item")
  strHTML = strHTML & "<ul>"
  For Each item In itemList
  For each child in item.childNodes  
      Select case lcase(child.nodeName)
	  case "title"       
	     title = child.text       
		  case "link"
		   link = child.text      
		     case "description"
			 description = child.text  
			     End Select  
				   Next
				    strHTML = strHTML & "<li>"
					  strHTML = strHTML & "<a href='" & Server.HTMLEncode(link) & "'>"
					  strHTML = strHTML & Server.HTMLEncode(title)strHTML = strHTML & "</a>"
					  strHTML = strHTML & "<br>"
					   strHTML = strHTML & description
					   strHTML = strHTML & "<br> "
					   strHTML = strHTML & "</li>"
					     Next
						  strHTML = strHTML & "</ul>"
						  Set xmlDOM = Nothing
						    Set itemList = Nothing
							Application.Lock    
							Application("rss-html") = strHTML  
							 Application("rss-html-time") = Now() 
							  Application.UnLock
							  End If
							  Response.Write(Application("rss-html"))
							  %>
                              </body>
                              </html>

Compartilhar este post

Link para o post
Compartilhar em outros sites
Ir para a lista de tópicos ASP Clássico
×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.

  Aceito