Ниже будет показано как можно определить - установлен ли нужный 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-код (Для форумов)

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

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