Зарегистрированные участники, создайте свою базу данных веб-разработки, ---------------------------------------------- ------ root1 ------------------------------------------- ------------------------------------------------
********************************************** *************************************
*Используйте этот класс, чтобы управлять и зарегистрировать свой DLL на странице ASP
*Этот класс проверяется на Win 2K
*Примечание: сначала используйте этот класс для создания файла XML. Файл выглядит следующим образом.
*
*<?
*<DLL List>
*</dll List>
*
*------------------------------------------------- ------------------------------------------------------ ------------------------------------------------------ ------------------------------------------------------ ------
*пример:
*Dim objretsvr32
*Установить objregsvr32 = new Regsvr32
*С objregsvr32
*if .loadxml ("../ mydll.xml") тогда
*call response.write ("ошибка загрузки файла XML")
*установить objregsvr32 = ничего
*response.end
*конец, если
*Выберите Case .AddNode ("f: /web/cw31072/dll/test/myclas.dll", true) ‘Добавить новые записи и регистрации dll
*Случай 1
*Call response.write («Запись была добавлена в файл XML! И успешно зарегистрированный DLL!»)
*Случай 0
*Call response.write («Запись была добавлена в файл XML! Но она не удалась, когда зарегистрирован DLL!»)
*случай -1
*Call response.write («В файле XML уже есть эта запись! DLL также была зарегистрирована!»)
*End Select
*..........................
*заканчивается
*
*'Ben Class очень прост, в нем есть некоторые способы, поэтому я не привожу пример, просто посмотрите на это. Вы можете открыть его в будущем
*'Файл XML зависит от списка DLL, который вы зарегистрировали и зарегистрировались.
*'XML -файлы в каждой записи следующие: <dl iss hosted = "1"> f: /web/cw31072/dll/test/myclass.dll </dll>
*'f: /web/cw31072/dll/test/myclass.dll - это путь вашего файла DLL
*'«Было ли это зарегистрировано =" 1 " - это то, что DLL был зарегистрирован, =" 0 "еще не зарегистрирован!
********************************************** *************************************
Класс Regsvr32
Частный S_OBJXML
Частный S_OBJNODEROOT
Private S_STRXMLPATH
Private s_strattributeName
'------------------------------------------------- ------------------------------------------------------ -----------------------------
'Objective: Загрузите конфигурацию DLL XML -файл
'Параметр: адрес файла XML
'Return: вернуться к True, если он не загрузит
'------------------------------------------------- ------------------------------------------------------ -----------------------------
Public Function Loadxml (StrPath)
SET S_OBJXML = createObject ("msxml2.document")
s_objxml.async = false
s_objxml.load (strpath)
Если s_objxml.parseerror.errorcode <> 0 тогда
Установить s_objxml = ничего
loadxml = true
Выходная функция
конец, если
установить s_objnoderoot = s_objxml.documentelement
s_strxmlpath = strpath
s_strattributeName = "Будь то зарегистрировано"
конечная функция
'-------------------------------------------
«Цель: добавить проект DLL
'Параметры: strpath: адрес файла DLL
'blnreg: зарегистрировать его после добавления
'Return: Если регистрация требуется, регистрация успешна, регистрация не удастся, отказ регистрации возвращает 0, проект уже имеет проект, а в регистрации вернется -1
'-------------------------------------------
Публичная функция добавить