Active Server Pages◦ ?

Eine Active Server Page (ASP) ist eine HTML-Seite mit eingebettetem Programmcode, der auf eine oder mehrere Datenbanken zugreift. Der Code wird in einer Skriptsprache wie VBScript oder in einer kompilierten und typisierten Programmiersprache wie C++ oder Java geschrieben. Der Code nutzt die Objektklassen des ASP-Objektmodells:

- Application verwaltet globale Variablen, auf welche mehrere Benutzer zugreifen
- Session verwaltet globale Variablen, auf welche mehrere Webseiten (engl. sessions) zugreifen
- Request liest Clientdaten aus Formularen, URL's und Cookies
- Response sendet Nachrichten an den Client (Browser)
- Server nutzt serverseitige ActiveX-Controls (insbesondere ADO-Objekte).

Das folgende Beispiel kombiniert HTML und VBScript. HTML-Code ist blau, VBScript-Code rot und Kommentar grün. Von den fünf ASP-Objektklassen verwendet das Beispiel nur Server und Response. Kursiv angezeigte Anweisungen stammen aus dem Befehlsvorrat von ADO.

>     <%@ LANGUAGE="VBScript" %>
>     <% Option Explicit %>

>     <HTML>
>     <HEAD><TITLE>Kundenanzeige.asp</TITLE></HEAD>
>     <BODY bgColor=#87ceeb>

>     '1 Benannte ADO-Konstanten und ADO-Datenbankverbindung (connection string) einlesen

>     <!--#include file="ADOKonstanten.asp"-->
>     <!--#include file="ADOVerbindung.asp"-->

>     <H1>Kundenanzeige</H1>

>     '2 Recordset (rst) erstellen

>     <%
>     Dim Verbindung
>     Dim rst

>     Set Verbindung = Server.CreateObject("ADODB.Connection")
>     Set rst = Server.CreateObject("ADODB.Recordset")

>     'ADOVerbindung ist eine Stringvariable mit DBMS-Typ, Pfad, Passwort aus ADOVerbindung.asp
>     Verbindung.Open ADOVerbindung
>     rst.Open "KUNDEN", Verbindung, adOpenForwardOnly, adLockReadOnly, adCmdTable

>     '3 Recordset durchlaufen und Sätze in einer Tabelle anzeigen

>     If rst.EOF Then
>       Response.Write "Keine Kundensätze gefunden"
>     Else
>     %>
>       'Tabellenkopf (Table Row aus Table Header cells)
>       <TABLE BORDER=2>
>         <TR>
>           <TH>Kundennr</TH>
>           <TH>Vorname</TH>
>           <TH>Geschlechtsname</TH>
>           <TH>Stadt</TH>
>           <TH>Kanton</TH>
>         </TR>
>     <%
>       Do While Not rst.EOF
>     %>
>         'Tabellenzeile (Table Row aus Table Data cells)
>         <TR>
>           <TD><%=rst("Kundennr")%></TD>
>           <TD><%=rst("Vorname")%></TD>
>           <TD><%=rst("Geschlechtsname")%></TD>
>           <TD><%=rst("Stadt")%></TD>
>           <TD><%=rst("Kanton")%></TD>
>         </TR>
>     <%
>         rst.MoveNext
>       Loop
>     %>
>       </TABLE>
>     <%
>     End If

>     Set rst = Nothing
>     Set Verbindung = Nothing
>     %>

>     <P>
>     'Hyperlink auf das Hauptmenü
>     <A HREF="AspMenu.asp">Zurück zum Menü</A>
>     </BODY>
>     </HTML>

ASP+ bzw. ASP.NET ist eine Erweiterung von ASP und lässt Sie mit VBScript oder einer Programmiersprache wie Visual Basic und C++ Active Server Pages erstellen, die eine Vielfalt vor- und benutzerdefinierter Steuerelemente zur Eingabe/Ausgabe und zur Datenanbindung nutzen.

Access auf dem Web