Проверьте, существуют ли системные компоненты или они успешно установлены, чтобы облегчить дальнейшую работу. Дайте пользователям более подробные инструкции. Чтобы определить, установлен ли на сервере определенный компонент ASP, чаще всего используется следующий код:
Скопируйте код кода следующим образом:
<%
'Функция: проверить, существуют ли системные компоненты или они успешно установлены.
'Параметр: имя компонента
Функция IsObjInstalled(strClassString)
При ошибке Возобновить Далее
IsObjInstalled = Ложь
Ошибка = 0
Димкстестобдж
Установите xTestObj = Server.CreateObject(strClassString)
Если 0 = Ошибка, Тогда IsObjInstalled = Истина
Установить xTestObj = Ничего
Ошибка = 0
Конечная функция
'Получаем номер версии системного компонента
Функция получения (Classstr)
При ошибке Возобновить Далее
получить =
Ошибка = 0
Димкстестобдж
Установите xTestObj = Server.CreateObject(Classstr)
Если 0 = Err Тогда getver=xtestobj.version
Установить xTestObj = Ничего
Ошибка = 0
Конечная функция
%>
Метод вызова следующий:
Скопируйте код кода следующим образом:
<%
если IsObjInstalled(fso.file) =True, то
response.write(уже установлен)&getver(fso.file)
конец, если
%>