Wie wir alle wissen, ist die ASP-Technologie die Haupttechnologie für unsere Webprogramme, die auf der Internet-/Intranet-Plattform basieren. In ASP-Anwendungen verwenden wir im Allgemeinen zwei Skriptsprachen: Vbscripts und Javascripts. Allerdings ist die Skriptsprache eine nicht kompilierte Sprache, und die von ihr entwickelten Webprogramme weisen inhärente Probleme hinsichtlich Sicherheit, Ausführungseffizienz und Skalierbarkeit auf. Daher verwenden wir bei der Entwicklung von Websystemen im Allgemeinen Hochsprachen zum Schreiben von ASP Ausführungskörper und verwenden Sie dann Skripte, um die Sprache als Verbindungscode zum Aufrufen des ASP-Ausführungskörpers für den Zugriff zu verwenden. Da die ASP-Technologie von Microsoft eingeführt wurde, verwenden wir in dieser Hinsicht im Allgemeinen VB oder VC. Wie können Delphi-Programmierer dies erreichen?
In diesem Zusammenhang hat der Autor kürzlich die Webprogrammierung der ASP-Technologie in der Delphi-Umgebung mithilfe der Informationen von inrpisre realisiert. Hier ist eine Einführung wie folgt:
1. Erstellen Sie ein neues acdiveX-DLL-Projekt PRoject1 in der Delphi-Umgebung, erstellen Sie dann ein ASP-Objekt über das Active Server Object von Delphi und geben Sie den Namen des erstellten Objekts MyAspObject in seinen coClassName ein.
2. Erstellen Sie mithilfe der Typbibliothek eine Methode MyAspRequest für das neu erstellte MyAspObject-Objekt, die von der Skriptsprache aufgerufen wird.
3. Da das gerade erstellte ASP-Objekt von TASPObject erbt, können wir das ASP-Objekt direkt bei der Methodenerstellung verwenden. Geben Sie nun den Code für das von uns erstellte Asp-Objekt wie folgt ein:
produzieren TMyAspObject.MyAspRequest;
beginnen
repsonse.write('<p>Ihr Name ist:');
repsonse.write(request.form.item['Name']);
repsonse.write('</p>');//Lesen Sie den Benutzernamen von der zu erstellenden Webseite//
repsonse.write('<p>Ihr Job ist:');
repsonse.write(request.form.item['work']);
repsonse.write('</p>');//Lesen Sie die Benutzerarbeit von der zu erstellenden Webseite//
repsonse.write('<p>Das von Ihnen verwendete Entwicklungstool:');
if(request.form.item['delphi'].count>0)
repsonse.write('delphi');
if(request.form.item['bcb'].count>0)
repsonse.write('c++ Builder');//Bestimmen Sie die vom Benutzer verwendeten Entwicklungstools//
repsonse.write('</p>');
repsonse.write('<p>Ihre Identität:');
repsonse.write(request.form.item['Identity']);
repsonse.write('</p>');//Identität des Benutzers lesen//
Ende;
4. Kompilieren Sie das Programm und registrieren Sie es als PMyAspObject.dll-Datei in Delphi.
5. Schreiben Sie die ASP-Skriptsprachendatei MyAsp.asp für die Verbindung
<%@sprache=jscript %>
<HTML>
<KÖRPER>
<title>Dies ist ein mit Delphi erstelltes ASP-Objekt</title>
<center><h3>Der von Ihnen eingegebene Inhalt ist wie folgt</h3></center>
<%
var myasp;
myasp=server.createobject(PMyAspObject.MyAspObject);
//Verbindungsobjekt generieren//
myasp.MyAspRequest();//Rufen Sie Ihr eigenes definiertes ASP-Objekt auf//
%>
</body>
</HTML>
6. Erstellen Sie die Webseite Myhtm.htm zur Anzeige
<form action='localHost/shd/myasp.asp' method='post">
<h1 align='center">Bitte auswählen</h1>
<P>Name: <input type='text' size=33 name="name"></p>
<P>Arbeit: <input type='text' size=33 name="work"></p>
<P>Entwicklungstools: <input type='checkbox' name='delphi' value="on">delphi
<input type='checkbox'name='bcb'value="on">c++ Builder</p>
<p>Ihre Identität:</p>
<p><select name="identity" size="1">
<option>Student</option>
<option>Techniker</option>
</select></p>
<p><input type="submit" name="mysubmit" value="Submit">
</form>
7. Legen Sie dann Myhtm.htm und myasp.asp zum Durchsuchen und Testen in das shd-Verzeichnis Ihres persönlichen Webservers.
Renderings von Webseiten
ASP-Renderings
Das obige Programm ist in pwin98 ME und delphi5.0 Enterprise implementiert.