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

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

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

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

Function checkObj(progid)
Dim obj

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

  checkObj = (Err=0)

End Function

%>  


Постоянные ссылки

При копировании ссылка на TeaM RSN обязательна!

URI

Html (ЖЖ)

BB-код (Для форумов)

Оставить комментарий

Вы должны войти, чтобы оставить комментарий.