Как мы все знаем, технология ASP является основной технологией для наших веб-программ, основанных на платформе Интернета/Интранета. В приложениях ASP мы обычно используем два языка сценариев: vbscript и javascript. Однако язык сценариев является некомпилируемым языком, и веб-программы, разработанные на нем, имеют присущие проблемы с точки зрения безопасности, эффективности выполнения и масштабируемости. Поэтому при разработке веб-систем мы обычно используем языки высокого уровня для написания ASP. тела выполнения, а затем использовать сценарии для этого. Язык служит кодом соединения для вызова тела выполнения asp для выполнения доступа. В этом отношении, поскольку технология ASP была представлена Microsoft, мы обычно используем VB или VC, так как же программисты Delphi могут достичь этого?
В связи с этим автор недавно реализовал веб-программирование технологии ASP в среде Delphi с помощью информации inrpisre. Вот следующее введение:
1. Создайте новый проект acdiveX DLL PROject1 в среде delphi, затем создайте объект ASP с помощью объекта Active Server Delphi и введите имя созданного объекта MyAspObject в его имя coClassName.
2. Используйте библиотеку типов, чтобы создать метод MyAspRequest для вновь созданного объекта MyAspObject, который будет вызываться языком сценариев.
3. Поскольку только что созданный объект ASP наследует от TASPObject, мы можем напрямую использовать объект ASP при создании метода. Теперь заполните код созданного нами объекта Asp следующим образом:
создать TMyAspObject.MyAspRequest;
начинать
Repsonse.write('<p>Ваше имя:');
Repsonse.write(request.form.item['Имя']);
Repsonse.write('</p>');//Читаем имя пользователя с создаваемой веб-страницы//
Repsonse.write('<p>Ваша работа:');
Repsonse.write(request.form.item['работа']);
Repsonse.write('</p>');//Прочитайте работу пользователя с создаваемой веб-страницы//
Repsonse.write('<p>Инструмент разработки, который вы используете:');
if(request.form.item['delphi'].count>0)
Repsonse.write('Делфи');
if(request.form.item['bcb'].count>0)
Repsonse.write('c++ Builder');//Определяем инструменты разработки, используемые пользователем//
Repsonse.write('</p>');
Repsonse.write('<p>Ваша личность:');
Repsonse.write(request.form.item['Идентичность']);
Repsonse.write('</p>');//Читаем личность пользователя//
конец;
4. Скомпилируйте программу и зарегистрируйте ее как файл PMyAspObject.dll в Delphi.
5. Напишите файл языка сценариев ASP MyAsp.asp для подключения.
<%@language=jscript %>
<HTML>
<ТЕЛО>
<title>Это объект ASP, созданный с помощью Delphi</title>
<center><h3>Содержимое, которое вы заполняете, следующее</h3></center>
<%
вар миасп;
myasp=server.createobject(PMyAspObject.MyAspObject);
//Сгенерируем объект подключения//
myasp.MyAspRequest();//Вызовите собственный определенный объект ASP//
%>
</тело>
</HTML>
6. Создайте веб-страницу Myhtm.htm для отображения.
<form action='localHost/shd/myasp.asp' метод='post">
<h1 align='center">Пожалуйста, выберите</h1>
<P>Имя: <input type='text' size=33 name="name"></p>
<P>Работа: <input type='text' size=33 name="work"></p>
<P>Инструменты разработки: <input type='checkbox' name='delphi' value="on">delphi
<input type='checkbox'name='bcb'value="on">C++ Builder</p>
<p>Ваша личность:</p>
<p><select name="identity" size="1">
<option>Студент</option>
<option>Техник</option>
</select></p>
<p><input type="submit" name="mysubmit" value="Submit">
</форма>
7. Затем поместите Myhtm.htm и myasp.asp в каталог shd вашего личного веб-сервера для просмотра и тестирования.
Рендеринг веб-страниц
ASP-рендеринги
Вышеуказанная программа реализована в pwin98 ME и delphi5.0 Enterprise.