<% on error resume next ' //////////////////////////////////////////////////////////////////////////////////////////////////// ' // ' // Ce script utilise Coaelesys HTTP client qui est un composant gratuit permettant de ' // faire des requests http vers un autre serveur, car l'API de ASP n'offre pas la possibilité d'origine ' // Il faut donc installer le composant sur le serveur IIS avant de tester le script. ' // Weblink: http://www.coalesys.com/products/httpclient/features/default.asp ' // Pour ce faire c'est très simple : ' // - Téléchargez le composant et dézippez le contenu dans un répertoire de votre choix ' // - Créez un batch file pour enregistrer le composant avec la commande "install.exe CSHttpClient.dll" ' // Et voilà, c'est installé ;) ' //////////////////////////////////////////////////////////////////////////////////////////////////// ' // Script ASP permettant d'afficher les news d'audiofanzine ' //////////////////////////////////////////////////////////////////////////////////////////////////// ' // Copyright : Lefebvre Jean-François pour www.audiofanzine.com ' //////////////////////////////////////////////////////////////////////////////////////////////////// ' // Paramètres : ' // nb_max_news : nombre de news à afficher ' // target : cible de l'affichage des news : ' _blank : dans une nouvelle fenêtre, ' _top : dans la même fenêtre Sub AF_news(nb_max_news , target) Dim HttpObj Set HttpObj = Server.CreateObject("Coalesys.CSHttpClient") HTTPObj.RequestUrl = "http://fr.audiofanzine.com/news/partenaires/parse.inc.txt" HTTPObj.Execute "GET" strData=HTTPObj.ResponseBody(False) arrData=Split(strData, chr(10)) strHtml="" max=UBound(arrData)-1 if (nb_max_news < max) then max=nb_max_news-1 end if for i=0 to max arrNews=Split(arrData(i), "|") news_id=arrNews(0) news_date=arrNews(1) news_title=arrNews(2) strHtml=strHtml+news_date+" - " + news_title + "
" next response.write strHtml End Sub // On appelle notre fonction pour afficher les news audiofanzine AF_news 10, "_blank" %>