Dall'archivio script > Misc

Inserire le news di Punto Informatico nel proprio sito

di Daniele BochicchioDaniele Bochicchio, in Misc, XML,

Lo script di oggi è fatto in collaborazione con Punto Informatico, il più importante quotidiano online sul web.

Da qualche giorno tutti possono inserire i link alle notizie nel proprio sito, in modo gratuito, grazie a dei semplici file di testo che Punto Informatico mette a disposizione di tutti.
ASPItalia.com ha un accordo già da diverso tempo per la visualizzazione delle notizie, ed oggi vi propone uno script in grado di mostrarle nel vostro sito, utilizzando l'oggetto XMLHTTP.
Questo oggetto è installato insieme a Internet Explorer 5, e quindi è disponibile su quasi tutti i server, diventando quindi lo standard de facto per la ricezione di file da server remoti.

Lo script in sé è molto semplice, e si commenta da solo

<%

' Copyright 2000 - Daniele Bochicchio per ASPItalia.com
' Aggiornamenti a questo file su https://www.aspitalia.com
' Versione 1.0
'
' E' consentito l'utilizzo grautito a condizione che questo
' disclaimer rimanga intatto.

Dim objXMLHTTP, StrURL, arrNews, strSep

'Il separatore per ogni notizia
strSep = " > "

'l'url con le notizie
StrURL = "http://punto-informatico.it/fader/uoxmla.txt" ' SOLO ULTIM'ORA
StrURL = "http://punto-informatico.it/fader/pixmla.txt" ' TUTTE LE NEWS

 'Set objXMLHTTP = Server.CreateObject("MSXML2.ServerXMLHTTP")
 'Utilizziamo la versione 3 che non ha problemi di performance

 Set objXMLHTTP = Server.CreateObject("Microsoft.XMLHTTP")
'Questo per la 2

objXMLHTTP.Open "GET", StrURL, false

 ' Richiama il file
 objXMLHTTP.Send

' Salvo in un array
arrNews = CStr(objXMLHTTP.ResponseText)
arrNews = Split(arrNews, VbCrLf)

Set objxml = Nothing


Response.write "<p>Notizie a cura di " & _
  "<a href=""http://punto-informatico.it"" " &_
  " target=_blank>Punto Informatico</a></p>"


Response.write "<p>"

for i=0 to ubound(arrNews)-1 step 2

  Response.write strSep
  Response.write " <a href='" & arrNews(i+1) &"' target=_blank>"
  Response.write arrNews(i)
  Response.write "</a><br>"

next

Response.write "</p>"

%>

Punto Informatico potete leggerlo su
https://www.aspitalia.com/servizi/notizie/ o
http://punto-informatico.it

Per maggiori informazioni su XMLHTTP
https://www.aspitalia.com/liste/usag/script.asp?ID=135

Commenti

Visualizza/aggiungi commenti

| Condividi su: Twitter, Facebook, LinkedIn
Aggiorna

Per inserire un commento, devi avere un account.

Fai il login e torna a questa pagina, oppure registrati alla nostra community.

Approfondimenti

Nessuna risorsa collegata

I più letti di oggi