ASP вызывает dll и инкапсулирует экземпляр dll. Инкапсуляция в dll может обеспечить эффективность работы и зашифровать код. Откройте VB6 и создайте новую ActiveX DLL.
2. Добавьте выбор библиотеки объектов Microsoft Active Server Pages в ссылку на проект.
3. Заполните код следующим образом:
Скопируйте код кода следующим образом:
'Начало кода
'Часть объявления
Частный MyScriptingContext как ScriptingContext
Частное MyApplication как приложение
Частный мой запрос как запрос
Частный MyResponse как ответ
Частный MyServer как сервер
Частный MySession как сеанс
'Ниже определяются общие функции (для доступа к объектам ASP в VB, то есть в VB вы можете использовать MyApplication, который будет эквивалентен Application в ASP, MyRequest, который будет эквивалентен Request в ASP, MyResponse, который будет эквивалентен Response в ASP, и MyServer будет эквивалентен серверу в ASP, MySession эквивалентен использованию сеанса в ASP)
Public Sub OnStartPage (PassedScriptingContext As ScriptingContext)
Установите MyScriptingContext = PassedScriptingContext
Установите MyApplication = MyScriptingContext.Application
Установите MyRequest = MyScriptingContext.Request
Установите MyResponse = MyScriptingContext.Response
Установите MyServer = MyScriptingContext.Server
Установите MySession = MyScriptingContext.Session
Конец субтитра
Публичная подписка OnEndPage()
Установить MyScriptingContext = Ничего
Установите MyApplication = Ничего
Установите MyRequest = Ничего
Установите MyResponse = Ничего
Установить МойСервер = Ничего
Установить MySession = Ничего
Конец субтитра
'Создаем пользовательскую функцию SayHello
Публичная подписка SayHello()
MyResponse.Write(Привет, мир)
Конец субтитра
'Конец кода
4. Измените имя класса на HelloWorld и измените имя проекта на TestVBCode.
5. Создайте файл TestVBCode.DLL и используйте команду компонента регистрации запуска Windows Regsvr32 path/TestVBCode.DLL, чтобы зарегистрировать его для использования. (Команда для удаления компонента — Regsvr32 /u path/TestVBCode.DLL)
6. Создайте файл Test.asp, код следующий.
Скопируйте код кода следующим образом:
<%
'Формат вызова собственных функций VB
'Установить имя объекта=Server.CreateObject(имя проекта.имя класса)
'Имя объекта. Имя собственной функции
Установите MyTestObj = Server.CreateObject(TestVBCode.HelloWorld)
MyTestObj.SayHello
%>
7. Результаты запуска файла Test.asp следующие:
Привет, мир
=============================================== =========
Для более сложных приложений вы можете расширить этот пример.
нравиться:
Скопируйте код кода следующим образом:
Публичная подпрограмма connstr2()
Установите conn = MyServer.CreateObject(ADODB.Connection)
conn.Open driver={Драйвер Microsoft Access (*.mdb)};dbq= & MyServer.MapPath(codata.mdb)
Установите rs = conn.Execute (выберите * из новостей)
Делайте, пока не rs.EOF
MyResponse.Write (rs(news_title) & <br>)
RS.MoveNext
Петля
rs.Close
Установить соединение = Ничего
Конец субтитра
Это инкапсулировано в коде подключения к базе данных. Конечно, сюда необходимо добавить ссылки ADO.