activex.net.ru

ActiveX .NET SharePoint Утилиты Скрипты Статьи ... Форум

Статьи

Проверка доступности ASP-компонента на сервере

Ниже будет показано как можно определить - установлен ли нужный ASP-компонент на сервере. Такая задача может возникнуть, например, при переносе ASP-приложения на сервер хостера, или для динамического определения в скрипте доступности того или иного компонента.
Файл check.asp:

<%@Language=VBScript%>
<%
option explicit
Response.Buffer = True

if checkObj("ASPTree.TreeMenu") then
  Response.Write "1.Такой компонент доступен !<br>"
else
  Response.Write "1.Такой компонент не доступен !<br>"
end if

if checkObj("Scripting.FileSystemObject") then
  Response.Write "2.Такой компонент доступен !<br>"
else
  Response.Write "2.Такой компонент не доступен !<br>"
end if

Function checkObj(progid)
Dim obj

On Error Resume Next
  Set obj = Server.CreateObject(progid)

  checkObj = (Err=0)

End Function

%>



Copyright © 2000-2017 Христофоров Юрий Rambler's Top100

   Rambler's Top100