Фактически, при написании программы ASP всех больше всего беспокоит то, что информация о соединении с базой данных будет видна некоторым людям и причинит некоторый ущерб. Затем мы используем vb6.0 для создания динамической библиотеки (.dll), чтобы скрыть информацию о подключении к базе данных.
Запустите vb6.0, создайте новый -> Активный проект dll. Нажмите «Проект» -> «Ссылки» и выберите «Библиотека объектов Microsoft Active Server Pages».
и «Библиотека объектов данных Microsoft ActiveX 2.1» — два элемента. Измените имя модуля класса на dcss. Измените имя проекта на yygwy. Сохраните файл проекта yygwy.vbp и файл класса dcss.cls.
Напишите в dcss.cls:
Частный myscriptingcontext как ScriptingContext
Частное myapplication как приложение
Частный мой запрос Как запрос
Частный мой ответ в качестве ответа
Частный myserver как сервер
Частный mysession As Session
Public Sub на стартовой странице (passedscriptingcontext As ScriptingContext)
Установите myscriptingcontext = переданныйscriptingcontext
Установите myapplication = myscriptingcontext.Application
Установите myrequest = myscriptingcontext.Request
Установите myresponse = myscriptingcontext.Response
Установите myserver = myscriptingcontext.Server
Установите mysession = myscriptingcontext.Session
Завершить
публичную подписку onendpage()
Установить myscriptingcontext = Ничего
Установить мое приложение = Ничего
Установить мой запрос = Ничего
Установить мой ответ = Ничего
Установить мойсервер = Ничего
Установить мою сессию = Ничего
End Sub
'Приведенное выше заявление является обязательным.
'Определяем две общедоступные функции
Public Function datasource() как вариант
datasource = "driver={sql server};server=yang;uid=sa;pwd=; база данных=dcss"
Конечная функция
компилирует и создает файл dcss.dll. Зарегистрируйте путь regsvr32dcss.dll.
Откройте файл global.asa с помощью Visual Interdev. Конечно, вы также можете использовать его и в других файлах.
set dcss=server.CreateObject("yygwy.dcss")
oconn=dcss.datasource()
application("strconn")=oconn
на других страницах можно вызвать следующим образом:
set objConn = Server.CreateObject("ADODB.Connection")
objConn.Открыть приложение("strconn")