Фактически, при написании программы 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 как сервер
Частный сеанс Как сеанс
Публичная подписка на стартовой странице (переданный контекст сценария как ScriptingContext)
Установите myscriptingcontext = переданныйscriptingcontext
Установите myapplication = myscriptingcontext.Application
Установите myrequest = myscriptingcontext.Request
Установите myresponse = myscriptingcontext.Response
Установите myserver = myscriptingcontext.Server
Установите mysession = myscriptingcontext.Session
Завершить
публичную подписку onendpage()
Установить myscriptingcontext = Ничего
Установить мое приложение = Ничего
Установить мой запрос = Ничего
Установить мой ответ = Ничего
Установить мойсервер = Ничего
Установить мою сессию = Ничего
End Sub
'Приведенное выше заявление является обязательным.
'Определяем две общедоступные функции
Public Function rsresult(strsql As String) As Recordset
Dim mycnn как соединение
Dim myset как набор записей
Dim strconnstring как строка
'strconnstring = "provider=sqloledb.1;
пароль=;» & «идентификатор пользователя=sa;» & «начальный каталог=vlog;» & «источник данных=hpe60;
таймаут подключения = 15"
strconnstring = "driver={sql server};server=yang;uid=sa;pwd=;
база данных = dcss"
'mycnn.ConnectionString = strconnstring
mycnn.Open strconnstring
myset.ActiveConnection = mycnn
myset.Open strsql, mycnn, 3, adCmdText
Установить rsresult = myset
Конечная функция
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")