Comme nous le savons tous, la technologie asp est la technologie principale de nos programmes web basés sur la plateforme internet/intranet. Dans les applications asp, nous utilisons généralement deux langages de script : vbscripts et javascripts. Cependant, le langage de script est un langage non compilé et les programmes Web qu'il développe présentent des problèmes inhérents en termes de sécurité, d'efficacité d'exécution et d'évolutivité. Par conséquent, lors du développement de systèmes Web, nous utilisons généralement des langages de haut niveau pour écrire des ASP. corps d'exécution, puis utilisez des scripts pour Le langage sert de code de connexion pour appeler le corps d'exécution asp pour effectuer l'accès. À cet égard, depuis que la technologie ASP a été introduite par Microsoft, nous utilisons généralement VB ou VC, alors comment les programmeurs Delphi peuvent-ils y parvenir ?
A cet égard, l'auteur a récemment réalisé la programmation web de la technologie ASP dans l'environnement Delphi grâce aux informations d'inrpisre. Voici une introduction comme suit :
1. Créez un nouveau projet DLL acdiveX PRoject1 dans l'environnement Delphi, puis créez un objet ASP via l'objet serveur actif de Delphi et remplissez le nom de l'objet créé MyAspObject dans son coClassName.
2. Utilisez la bibliothèque de types pour créer une méthode MyAspRequest pour l'objet MyAspObject nouvellement créé qui sera appelé par le langage de script.
3. Puisque l'objet ASP qui vient d'être créé hérite de TASPObject, nous pouvons directement utiliser l'objet asp dans la création de méthode. Remplissez maintenant le code de l'objet Asp que nous avons créé comme suit :
produire TMyAspObject.MyAspRequest ;
commencer
repsonse.write('<p>Votre nom est :');
repsonse.write(request.form.item['Nom']);
repsonse.write('</p>');//Lire le nom d'utilisateur sur la page web à créer//
repsonse.write('<p>Votre travail est :');
repsonse.write(request.form.item['work']);
repsonse.write('</p>');//Lire le travail de l'utilisateur depuis la page web à créer//
repsonse.write('<p>L'outil de développement que vous utilisez :');
si(request.form.item['delphi'].count>0)
repsonse.write('delphi');
si(request.form.item['bcb'].count>0)
repsonse.write('c++ Builder');//Déterminer les outils de développement utilisés par l'utilisateur//
repsonse.write('</p>');
repsonse.write('<p>Votre identité :');
repsonse.write(request.form.item['Identité']);
repsonse.write('</p>');//Lire l'identité de l'utilisateur//
fin;
4. Compilez le programme et enregistrez-le en tant que fichier PMyAspObject.dll dans Delphi.
5. Écrivez le fichier de langage de script ASP MyAsp.asp pour la connexion
<%@langue=jscript %>
<HTML>
<CORPS>
<title>Il s'agit d'un objet ASP créé avec Delphi</title>
<center><h3>Le contenu que vous remplissez est le suivant</h3></center>
<%
var myasp;
myasp=server.createobject(PMyAspObject.MyAspObject);
//Générer un objet de connexion//
myasp.MyAspRequest();//Appelez votre propre objet ASP défini//
%>
</corps>
</HTML>
6. Créez la page Web Myhtm.htm pour l'affichage
<form action='localHost/shd/myasp.asp' method='post">
<h1 align='center">Veuillez sélectionner</h1>
<P>Nom : <input type='text' size=33 name="name"></p>
<P>Travail : <input type='text' size=33 name="work"></p>
<P>Outils de développement : <input type='checkbox' name='delphi' value="on">delphi
<input type='checkbox'name='bcb'value="on">C++ Builder</p>
<p>Votre identité :</p>
<p><select name="identity" size="1">
<option>Étudiant</option>
<option>Technicien</option>
</sélectionner></p>
<p><input type="submit" name="mysubmit" value="Submit">
</form>
7. Placez ensuite Myhtm.htm et myasp.asp dans le répertoire shd de votre serveur Web personnel pour parcourir et tester.
Rendus de pages Web
Rendus ASP
Le programme ci-dessus est implémenté dans pwin98 ME et delphi5.0 Enterprise.