Компонент Asp, промежуточная серия для начинающих и мастер-классов

Автор：Eve Cole Время обновления：2009-06-20 17:20:11

Я написал семь основных уроков,

один из серии промежуточного входа и освоения компонентов Asp

. Определенно есть некоторые базовые вещи, которые необходимо написать. Я буду потихоньку дополнять

содержание промежуточных уроков:

Это тоже может быть то, что есть у всех. больше всего беспокоит: например: Эксплуатация базы данных и упаковка. Использование встроенных объектов Asp. Я потрачу много времени на объяснение этих частей. Эта часть требует от вас большего опыта использования ADO для работы с базой данных и знания пяти основных объектов ASP.

Давайте посмотрим на информацию, циркулирующую в Интернете:
Как мы все знаем, ASP имеет пять встроенных объектов: Response, Request, Server, Session и Application. Фактически эти пять встроенных объектов представляют собой пять компонентов ActiveX DLL, инициализируемых консолью IIS. пять компонентов для использования в ASP. Конечно, мы также можем напрямую ссылаться на эти компоненты в нашей ActiveX DLL для реализации нашего программирования, а это означает, что мы можем реализовать функцию доступа к встроенным объектам ASP, ссылаясь на эти компоненты в приложениях VB.

Пока вы устанавливаете веб-сервер с PWS4 или IIS4 или выше, у вас будет библиотека объектов с именем «Объект Microsoft Active Server Pages». Мы можем ссылаться на эту библиотеку объектов в приложении ActiveX DLL VB. Ссылаясь на эту библиотеку объектов, мы имеем. получил объект (класс): ScriptingContext, который также является основным объектом всей нашей статьи. Взаимоотношения внутри библиотеки объектов следующие:

Член класса библиотеки объектов

ASPTypeLibrary ScriptingContext

Сервер

сеанса

ответа

на запрос

приложения

С помощью приведенной выше диаграммы отношений мы можем легко понять класс ScriptingContent.

Давайте рассмотрим конкретный пример:

откройте vb6 и создайте новый проект Activex Dll. Измените имя проекта на fCom и имя класса на fZ1.
Ссылка на библиотеку объектов «Объект Microsoft Active Server Pages».
Создайте два события компонента: OnStartPage и OnEndPage.
Создайте ссылку на класс ScriptingContent в событии OnStartPage.
Создайте экземпляр класса ScriptingContent.

Код следующий:

'Это событие срабатывает, когда компонент уничтожается
Публичная подписка OnEndPage()
myResponse.Write «Компонент ActiveX DLL уничтожен!»
«Уничтожить объект
Установите myResponse = Ничего
Установите myRequest = Ничего
Установить мойСервер = Ничего
Установите myApplication = Ничего
Установите mySession = Ничего
End Sub

'Определите собственный метод компонента
Публичная подписка HelloWorld()
myResponse.Write «Это написано с использованием встроенных объектов asp»
Конец субтитра

Проверьте открытый визуальный интерфейс interdev6.0 и создайте файл asp.

программный код
<%@ Language=VBScript %>
<HTML>
<ТЕЛО>
<%
set obj=server.CreateObject("fCom.fZ1")
вызвать obj.HelloWorld()
%>
</ТЕЛО>
</HTML>

Настройте виртуальный каталог и запустите этот файл asp в IE. Результаты следующие:
Компонент ActiveX DLL создан! Этот компонент ActiveX DLL, написанный со встроенными объектами asp, был

уничтожен

! и базы данных. Для строки подключения мы возьмем счетчик в качестве примера:
Давайте сначала посмотрим на файл global.asa. Это относительно просто.

программный код
<язык сценариев =vbscript runat=сервер>
subApplication_onstart
Приложение("Счетчик")=0
конец субтитра
</скрипт>

Затем

откройте vb6 и создайте новый проект Activex Dll. Имя проекта меняется на fCom, а имя класса — на fZ2.
Ссылка на библиотеку объектов «Объект Microsoft Active Server Pages».
Создайте два события компонента: OnStartPage и OnEndPage.
Создайте ссылку на класс ScriptingContent в событии OnStartPage.
Создайте экземпляр класса ScriptingContent.

Код следующий:

код программы
Опция явная
'Объявление объекта
Уменьшить myResponse как ответ
Уменьшить мой запрос как запрос
Затемнить мое приложение как приложение
Сделать мой сервер тусклым как сервер
Затемнить mySession как сеанс
'Это событие будет вызвано при создании компонента
Public Sub OnStartPage (myScriptingContent As ScriptingContext)
'Выполнить создание экземпляра объекта
Установите myResponse = myScriptingContent.Response
Установите myRequest = myScriptingContent.Request
Установите myServer = myScriptingContent.Server
Установите myApplication = myScriptingContent.Application
Установите mySession = myScriptingContent.Session
Конец субтитра
'Это событие срабатывает, когда компонент уничтожается
Публичная подписка OnEndPage()
«Уничтожить объект
Установите myResponse = Ничего
Установите myRequest = Ничего
Установить мойСервер = Ничего
Установите myApplication = Ничего
Установите mySession = Ничего
Конец субтитра
«Вы можете видеть, что метод записи тот же, после перемещения того, что было написано в asp, в vb.
Публичная подписка ShowCounter()
Dim intcounter как долго
myApplication.Lock
intcounter = myApplication("счетчик")
intcounter = intcounter + 1
myApplication("счетчик") = intcounter
myApplication.UnLock
myResponse.Write CStr(intcounter)
Конец субтитра

Проверьте

открытый визуальный интерфейс interdev6.0 и создайте файл asp.

программный код
<%@ Language=VBScript %>
<HTML>
<ТЕЛО>
<%
тусклый объект
set obj=server.CreateObject("fCom.fZ2")
объект.ShowCounter()
%>
</ТЕЛО>
</HTML>

После настройки виртуального каталога вам необходимо поместить файл global.asa в корневой каталог, выполнить этот asp-файл в IE, обновить страницу, и вы увидите меняющееся число.
Вот и все, что касается использования приложения.

По сравнению с

промежуточным начальным уровнем компонента Asp и третьей серией мастерства,

Session, гораздо проще

открыть vb6 и создать новый проект Activex Dll. Измените имя проекта на fCom и имя класса на fZ3.
Ссылка на библиотеку объектов «Объект Microsoft Active Server Pages».
Создайте два события компонента: OnStartPage и OnEndPage.
Создайте ссылку на класс ScriptingContent в событии OnStartPage.
Создайте экземпляр класса ScriptingContent.

Код выглядит следующим образом:

программный код
Опция явная
'Объявление объекта
Уменьшить myResponse как ответ
Уменьшить мой запрос как запрос
Затемнить мое приложение как приложение
Сделать мой сервер тусклым как сервер
Затемнить mySession как сеанс
'Это событие будет вызвано при создании компонента
Public Sub OnStartPage (myScriptingContent As ScriptingContext)
'Выполнить создание экземпляра объекта
Установите myResponse = myScriptingContent.Response
Установите myRequest = myScriptingContent.Request
Установите myServer = myScriptingContent.Server
Установите myApplication = myScriptingContent.Application
Установите mySession = myScriptingContent.Session
End Sub

'Это событие срабатывает, когда компонент уничтожается
Публичная подписка OnEndPage()
«Уничтожить объект
Установите myResponse = Ничего
Установите myRequest = Ничего
Установить мойСервер = Ничего
Установите myApplication = Ничего
Установите mySession = Ничего
Конец субтитра
«Вы можете видеть, что метод записи тот же, после перемещения того, что было написано в asp, в vb.
'Получаем все переменные и значения сеанса
Публичная сессия субшоу()
'Вы можете установить тайм-аут 20 минут
mySession.Timeout = 20
Тусклый мой предмет
'Получить все сеансы
Для каждого элемента в mySession.Contents
myResponse.Write myitem & ": " & mySession.Contents(myitem)
myResponse.Write "<br>"
Следующий
Конец субтитра

Проверьте,

откройте визуальный интерфейс interdev6.0, создайте файл asp для настройки виртуального каталога, запустите этот файл asp в IE, вы увидите

имя: торнадо.
возраст: 26
Особенность:

Вот и все, что касается использования компонента Session. Другие варианты использования Session аналогичны.

Компонент Asp, промежуточный вход и четвертая серия мастерства,

мы учимся запрашивать
Чтобы узнать, как получить содержимое, отправленное страницей в компоненте

, откройте vb6 и создайте новый проект Activex Dll. Имя проекта изменено на fCom, а имя класса — на fZ4.
Ссылка на библиотеку объектов «Объект Microsoft Active Server Pages».
Создайте два события компонента: OnStartPage и OnEndPage.
Создайте ссылку на класс ScriptingContent в событии OnStartPage.
Создайте экземпляр класса ScriptingContent.

Код следующий:

'Вы можете видеть, что метод записи тот же, что и после перемещения того, что было написано в asp, в vb.
Публичный дополнительный показ запроса()
Тусклый мой предмет
'Почтовый путь
Для каждого элемента в myRequest.Form
myResponse.Write myitem & ": " & myRequest.Form(myitem)
myResponse.Write "<br>"
Следующий
'Получить метод
Для каждого myitem в myRequest.QueryString
myResponse.Write myitem & ": " & myRequest.QueryString(myitem)
myResponse.Write "<br>"
Следующий
'Одно сообщение
myResponse.Write "Одно из сообщений: " & ": " & myRequest("имя пользователя")
myResponse.Write "<br>"
Конец субтитра

Протестируйте

открытый визуальный интерфейс interdev6.0 и сгенерируйте

программный код

файла fz41.asp.

<%@ Language=VBScript %>
<HTML>
<ТЕЛО>
<form action="fz4_result.asp" метод="post">
<INPUT id=текст1 имя=имя пользователя>
<INPUT id=текст2 имя=возраст>
<INPUT id=submit1 type=отправить значение=отправить имя=отправить>
</форма>
</ТЕЛО>
</HTML>

Вам также необходимо сгенерировать отправленный

программный код

файла fz4_result.asp.

<%@ Language=VBScript %>
<HTML>
<ТЕЛО>
<%
тусклый объект
set obj=server.CreateObject("fCom.fZ4")
вызвать obj.ShowRequest
%>
</ТЕЛО>
</HTML>

Кроме того, нам также необходимо взглянуть на метод отправки, поэтому нам нужен

программный код

файла fz42.asp.

<%@ Language=VBScript %>
<HTML>
<ТЕЛО>
<form action="fz4_result.asp?username=""& имя пользователя &"'& age=""& age &"'" метод="get" id=form1 name=form1>
<INPUT id=текст1 имя=имя пользователя>
<INPUT id=текст2 имя=возраст>
<INPUT id=submit1 type=отправить значение=отправить имя=отправить>
</форма>
</ТЕЛО>
</HTML>

Настройте виртуальный каталог и запустите файл fc41.asp в IE. После ввода содержимого нажмите кнопку, и вы увидите

имя пользователя: Tornado.
возраст: 26
Отправить: Отправить
Одно из сообщений: Торнадо.

Давайте выполним файл fc42.asp в IE. После ввода содержимого нажмите кнопку, и вы увидите

имя пользователя: Торнадо.
возраст: 26
Отправить: Отправить
Одно из сообщений такое: Торнадо

и адресная строка становится
http://yang/xml/fz4_result.asp?username=%C1%FA%BE%ED%B7%E7&age=26&%CC%E1%BD%BB=Submit

Продолжение следует.

Серия компонентов Asp для промежуточного и базового уровня, часть 5

Давайте посмотрим на объект Response. Фактически, мы использовали метод Write этого объекта в предыдущих уроках.

Здесь мы используем объект Response для установки файлов cookie.

Откройте vb6 и создайте новый проект Activex Dll. Измените имя проекта на fCom и имя класса на fZ5.
Ссылка на библиотеку объектов «Объект Microsoft Active Server Pages».
Создайте два события компонента: OnStartPage и OnEndPage.
Создайте ссылку на класс ScriptingContent в событии OnStartPage.
Создайте экземпляр класса ScriptingContent.

Код следующий:

'Это событие будет вызвано при создании компонента.
Public Sub OnStartPage (myScriptingContent As ScriptingContext)
'Выполнить создание экземпляра объекта
Установите myResponse = myScriptingContent.Response
Установите myRequest = myScriptingContent.Request
Установите myServer = myScriptingContent.Server
Установите myApplication = myScriptingContent.Application
Установите mySession = myScriptingContent.Session
End Sub

'Установить файлы cookie со страницы и получить их из компонента
Публичная подпрограмма GetCookie()
Тусклый мой предмет
'Вся информация
Для каждого элемента в myRequest.Cookies
myResponse.Write myitem & ": " & myRequest.Cookies.Item(myitem)
myResponse.Write "<br>"
Следующий
'Одно сообщение
myResponse.Write "где имя пользователя " & ": " & myRequest.Cookies("имя пользователя")
myResponse.Write "<br>"
myResponse.Write "где указан возраст пользователя" & ": " & myRequest.Cookies("возраст")
myResponse.Write "<br>"
End Sub

'Установить файлы cookie в компоненте и получить их на странице
Публичный дополнительный SetCookie()
myResponse.Cookies("com_username") = "Торнадо"
myResponse.Cookies("com_age") = 26
myResponse.Expires = #13.09.2004#
Конец субтитра

Скомпилируйте его в файл Dll, и система автоматически зарегистрирует его.
В противном случае зарегистрируйте Regsvr32 вручную f:testfcom.dll

для проверки

открытого визуального interdev6.0, сгенерируйте файл fz5.asp

и настройте виртуальный каталог, запустите файл fc5.asp в IE, вы увидите

торнадо.
26
возраст: 26
Имя пользователя: Торнадо
ком_возраст: 26
com_username: Tornado, где имя пользователя: Tornado, где возраст пользователя: 26.

Продолжение следует.

Промежуточное введение и освоение компонентов Asp. Серия № 6.

В качестве встроенного объекта Asp мы наконец узнаем об объекте Сервер

. объект использует больше HTML-кодирования URL-адресов, а также перенаправления и передачи веб-страниц.

Откройте vb6 и создайте новый проект Activex Dll. Имя проекта изменено на fCom, а имя класса — на fZ6.
Ссылка на библиотеку объектов «Объект Microsoft Active Server Pages».
Создайте два события компонента: OnStartPage и OnEndPage.
Создайте ссылку на класс ScriptingContent в событии OnStartPage.
Создайте экземпляр класса ScriptingContent.

Код следующий:

публичную подписку ShowHtml (ByVal strHtml As String)
myResponse.Write myServer.HTMLEncode(strHtml)
Завершить

публичную подписку ShowUrl (ByVal strUrl As String)
myResponse.Write myServer.URLEncode(strUrl)
Завершить

публичную подписку ExecuteUrl()
myServer.Transfer "fz5.asp"
Конец субтитра

Скомпилируйте его в файл Dll, и система автоматически зарегистрирует его.

В противном случае вручную зарегистрируйте Regsvr32 f:testfcom.dll

для проверки

открытого визуального интерфейса interdev6.0, создайте файл fz6.asp

и настройте виртуальный каталог. Выполните файл fc6.asp в IE, чтобы увидеть его

. Test

name=Mrs+%. C1 %FA%BE%ED%B7%E7&age=26

Вы можете использовать IE для просмотра исходного файла и просмотра кодировки HTML.

Это временное введение встроенных объектов ASP, и мы продолжим их изучение позже.

Вы также можете сделать выводы из одного примера и изучить свойства и методы, которые еще не были представлены.

Промежуточная запись компонента Asp и седьмая серия мастер-классов

запускают операции с базой данных.

Общая упаковка компонентов

1. Инкапсулируйте информацию о подключении к базе данных.

1> Непосредственно вернуть строку подключения к базе данных, например

программный код

в компоненте.

Публичная функция datasource() как вариант
datasource = "driver={sql server};server=yang;uid=sa;pwd=; база данных=northwind"
Конечная функция

код программы

вызова asp

set obj=server.CreateObject("webdb.getinfo")

Недостатки

oconn=obj.datasource()

очевидны. В asp-файле непосредственно response.write oconn может отображать строку подключения к базе данных, что не дает ожидаемого эффекта.

2> Вернуть

программный код

объекта adodb.connection

Открытая функция GetConn() как ADODB.Connection
Установить conn = Новое ADODB.Connection
conn.ConnectionString = "Provider=SQLOLEDB.1;Постоянная информация о безопасности=False;Идентификатор пользователя=sa;пароль=;Начальный каталог=Борей;Источник данных=ян"
конн.Открыть
Установите GetConn = conn
Конечная функция

Код программы

вызова Asp

Тусклый запрос данных
Set DataQuery=Server.CreateObject("WebDbtest.GetInfomation")
set rs=server.createobject("adodb.recordset")
sql="выбрать * из сотрудников"
Rs.open sql,DataQuery.getconn,1,3
ответ. Напишите Rs («Фамилия»)
Response.write DataQuery.getconn.ConnectionString
set Rs=ничего не

выглядит хорошо, но Response.write DataQuery.getconn.ConnectionString по-прежнему будет отображать строку подключения к базе данных. Вы можете это проверить.

2. Чтобы инкапсулировать компоненты в набор записей, вы можете прочитать то, что я написал некоторое время назад : http://blog.csdn.net/online/archive/2003/12/11/7764.aspx.
Плохо в этом коде то, что соединение с базой данных оценивается на странице. После успешного подключения к данным осуществляется доступ. Лично я считаю, что лучший способ —

инкапсулировать их в набор записей и подключиться к базе данных в файле. Метод компонента. После завершения операции закройте ее вовремя

и попробуйте сгенерировать HTML-код в компоненте, чтобы все инкапсулировать. Например, следующий метод

вместо частичной инкапсуляции.

Серия промежуточного ввода и освоения компонентов Asp № 8

в этот период была довольно занята. Ха-ха, сегодня мы рассмотрим полный пример инкапсуляции и разбиения на страницы.

Откройте vb6 и создайте новый проект Activex Dll. Имя проекта изменено на fCom, а имя класса — на fZ8.
Ссылка на «Объект Microsoft Active Server Pages», библиотеку объектов «Библиотека объектов данных Microsoft Activex 2.7».

Создайте два события компонента: OnStartPage и OnEndPage.
Создайте ссылку на класс ScriptingContent в событии OnStartPage.
Создайте экземпляр класса ScriptingContent.

Код следующий:

код программы
Опция явная
'********************************************** *
'Автор: Торнадо
'Функция: простой настраиваемый, полностью инкапсулированный компонент.
'Время: 01.01.2005 г.
'**********************************************

'Объявление объекта
Уменьшить MyResponse как ответ
Уменьшить MyRequest как запрос
Затемнить мое приложение как приложение
Сделать мой сервер тусклым как сервер
Dim mySession As Session

'Частные переменные
Частный mPageSize до тех пор, пока
Частный mstrSql как строка
'Это событие будет вызвано при создании компонента
Public Sub OnStartPage (myScriptingContent As ScriptingContext)
'Выполнить создание экземпляра объекта
Установите MyResponse = myScriptingContent.Response
Установите MyRequest = myScriptingContent.Request
Установите myServer = myScriptingContent.Server
Установите myApplication = myScriptingContent.Application
Установите mySession = myScriptingContent.Session
End Sub

'Это событие срабатывает, когда компонент уничтожается
Публичная подписка OnEndPage()
«Уничтожить объект
Установите MyResponse = Ничего
Установите MyRequest = Ничего
Установить мойСервер = Ничего
Установите myApplication = Ничего
Установите mySession = Ничего
Конец подпункта

«Показать таблицу»
Открытая функция ShowTable()
Dim conn Как новое ADODB.Connection
Dim rs как новый ADODB.Recordset
Тусклый я как целое число
Dim j как целое число
Dim intPage как целое число
Dim intPageCount как целое число
Dim strScriptName как строка
Dim intPos как целое число
Dim intFieldCount как целое число

«Получите путь
strScriptName = MyRequest.ServerVariables("Script_Name")
intPos = InStrRev(strScriptName, "/")
Если intPos <> 0 Тогда
strScriptName = Mid(strScriptName, intPos + 1)
Конец, если
Если IsEmpty(MyRequest("страница")) Тогда
интПейдж = 1
Еще
intPage = CInt(MyRequest("страница"))
Конец, если
При ошибке Перейти к ошибке
conn.Open "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=Northwind;Data Source=localhost"
rs.Open mstrSql, conn, adOpenStatic, adLockReadOnly
'Получить количество записей
intFieldCount = rs.Fields.Count
'Выходная таблица
MyResponse.Write "<table border=1 cellpacing=0 cellpadding=2>"
Если Не rs.EOF Тогда
rs.PageSize = mPageSize
rs.AbsolutePage = intPage
'Получить номер страницы
intPageCount = rs.PageCount
'Обработка пейджинга
Если intPage < 1, то intPage = 1
Если intPage > intPageCount Тогда intPage = intPageCount
'Выходной заголовок
MyResponse.Write "<tr>"
Для i = 0 Для intFieldCount - 1
MyResponse.Write "<th>" & rs(i).Name & "</th>"
Следующий
МойОтвет.Напишите "</tr>"
'Выходной контент
Для i = 1 в mPageSize
Если rs.EOF Тогда
Выход для
Конец, если
MyResponse.Write "<tr>"
Для j = 0 Для intFieldCount - 1
MyResponse.Write "<td>" и rs.Fields(j).Value & "</td>"
Следующий
МойОтвет.Напишите "</tr>"
rs.MoveNext
Следующий
'Выходной пейджинг
MyResponse.Write "<tr>"
Если intPage <> 1 Тогда
MyResponse.Write "<a href=" & strScriptName & "?page=1>[Первая страница]</a>"
MyResponse.Write "<a href=" & strScriptName & "?page=" & intPage - 1 & " >[Предыдущая страница]</a>"
Конец, если

Если intPage <> intPageCount Тогда
MyResponse.Write "<a href=" & strScriptName & "?page=" & intPage + 1 & ">[следующая страница]</a>"
MyResponse.Write "<a href=" & strScriptName & "?page=" & intPageCount & ">[последняя страница]</a>"
Конец, если

MyResponse.Write "Page:<FONT COLOR='Red'>" & intPage & "/" & intPageCount & "</FONT>"
МойОтвет.Напишите "</tr>"
Конец, если

MyResponse.Write "</table>"

'Освободить ресурсы
Если нет, то это ничего, тогда
Если rs.State = 1 Тогда
rs.Close
Конец, если
Setrs=Ничего
Конец, если
Если нет, то ничего не значит
Если conn.State = 1 Тогда
конн.Закрыть
Конец, если
Установить соединение = Ничего
Конец, если

Ошибка

функции выхода

:
МойОтвет.Запишите номер ошибки и описание ошибки.
Если нет, то это ничего, тогда
Если rs.State = 1 Тогда
rs.Close
Конец, если
Setrs=Ничего
Конец, если
Если нет, то ничего не значит
Если conn.State = 1 Тогда
конн.Закрыть
Конец, если
Установить соединение = Ничего
Конец, если
Конечная функция
'Определить атрибуты
Открытая собственность Получить ShowPageSize() как вариант
ПоказатьРазмерСтраницы = mPageSize

Открытое свойство

End Property

Let ShowPageSize(ByVal vNewValue As Variant)
mPageSize = vNewValue

Публичное свойство

End Property

Получить strSQL() как вариант
стрSQL = mstrSql

Открытое свойство

End Property

Let strSQL(ByVal vNewValue As Variant)
mstrSql = vNewValue
Конечная собственность

Скомпилируйте его в файл Dll, и система автоматически зарегистрирует его.
В противном случае вручную зарегистрируйте Regsvr32 f:testfcom.dll

для проверки

открытого визуального интерфейса interdev6.0 и создания файла fz8.asp.

программный код
<%@ Language=VBScript %>
<HTML>
<ТЕЛО>
<%
тусклый объект
set obj=server.CreateObject("fcom.fz8")
'Количество записей, отображаемых на каждой странице
obj.ShowPageSize=10
'Отображаемый оператор sql
obj.strSQL="выберите идентификатор клиента,название компании,имя контакта,должность контакта,адрес из клиентов"
объект.ShowTable()
%>
</ТЕЛО>
</HTML>