Проверка доступности 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
%>
|
|