Dall' >

Inserire le news di Punto Informatico nel proprio sito

Daniele Bochicchio

di , 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 //www.aspitalia.com'>http://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=""//punto-informatico.it'>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
http://www.aspitalia.com/servizi/notizie/ o
http://punto-informatico.it

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