Accueil  Contact
 
Société
Services
Prestations Offshore
Hébergement
Ressources

 

 

DECOUVRIR ASP   

Le but de cette page n'est pas de vous initier à la programmation ASP mais de vous donner une synthèse des objets qui "comptent". Vous retrouverez ces objets dans l'unité AspTlb.asp fournis avec Delphi. La compréhension de cette unité sera facilitée par la lecture de ce qui suit.

 Exemple de code ASP utilisant un objet COM ASP fabriqué avec Delphi  
<% Dim oCatNews

      ' oCatNews    : Objet COM pour manipuler le catalogue de news

' Initialisation du catalogue de news

  Set oCatNews = Server.CreateObject("ASPcpnews.catnews")
  ' Sélection de la base avec son identifiant
  oCatNews.DataBaseId = "MBOWEB"
  oCatNews.SearchDesc=0 ' N'affiche pas la description
  oCatNews.OrderMethod = "ORDER BY nwLang ASC, nwPriority DESC, nwDateStart DESC"

' Paramètres de la recherche :
' ---------------------------
' SearchNews(const sCritere, sServiceID, sStatus, sCat, sSubCat, sLang,
            DateStart, sDateStart2, sDateEnd, sAuthor, sSource: WideString): Integer;


if sCritere="" then
   iRes  = oCatNews.SearchNews(sCritere,"="&IDSrv, ">0", "=6", "", "=1","","","","","")
else  
  iRes  = oCatNews.SearchNews(sCritere,"="&IDSrv , ">0", "=6", "", "=1","","","","","")
end if  

function CreateLink(ID)
CreateLink="/fr/view/default.Asp?CustID="&CustID&"&ServiceID="&_
&idSrv&"&CurCat="&iCurCat&"&ProdID="&ID&"&bp=/default.asp"
end function 


' Fonction pour afficher les lignes de news 

function AfficheNews(oCatNews)
  response.write "<TABLE BORDER=0 align=Center Width=98% >"
  response.write "<TBODY  style="&"FONT-FAMILY: arial,Verdana; FONT-SIZE: 11px:"&">"
  response.write "<TR>"
  response.write "<TD BgColor=Navy Width=5% Align=Center><B><FONT Size= 1 COLOR= White>ID"
    response.write"</FONT></B></TD>"
  response.write "<TD BgColor=Navy Width=85% Align= Center>"
    response.write "  <B><FONT Size=1 COLOR=White>LES NEWS</FONT></B></TD>"
  response.write "  <TD BgColor=Navy Width=10% ></TD>"
  response.write "</TR>"
  
  for i=0 to oCatNews.count-1  ' Boucle pour afficher les lignes de   news  

    response.write"<TR><TD bgColor=gainsboro><FONT Size=1><B>"&oCatNews.news(i).nwId
      response.write "& "</B></FONT></TD>"
    response.write "<TD bgColor=gainsboro><FONT Size=  1>" & oCatNews.news(i).nwCaption
      response.write "</FONT></TD>"
    response.write "<TD bgColor=gainsboro Align=Center>"
    response.write "<A HREF="&CreateLink(oCatNews.news(i).nwId)&">"
    response.write "<FONT FACE ARIAL Size=1>VOIR</FONT></TD>"
    Response.Write("</TR>")
  next
  response.write "</TABLE>"  
end function

%>



<html>
<head>
</head>

<body>

 Le code HTML de la page...

<%
  ' Affichage des news de la catégorie        

    if oCatNews.Count> 0 then
      AfficheNews(oCatNews)
    Else
      Response.Write("Désolé, cette recherche ne peut aboutir")
    end if
  ' Libération de l'objet     
  Set oCatNews = nothing
%>

Suite du code HTML

</body>
</html>

Si vous observez ce code, vous vous rendez compte que la majorité des lignes est occupée par la méthode d'affichage de la page HTML (function AfficheNews). A part ça, nous avons :

- Quelques lignes en debut de code pour initialiser l'objet
- L'initialisation de la requête SQL (interne à l'objet) via oCatNews.SearchNews
- Et l'appel de la méthode d'affichage de la page Html avec les éléments de l'objet en fin de page

remarquez la syntaxe pour extraire les données de l'objet :


for i=0 to oCatNews.count-1 ' Boucle pour afficher les lignes de news
   oCatNews.news(i).nwCaption
next

Tutoriels
Delphicenter est un service proposé par Cotelem™. 1997-2008