To determine if the server has some kind of ASP component installed, the more commonly used code is as follows:
Copy Code code as follows:
<%
' Function: Check if system components or components are installed successfully
' Parameters: Component Name
Function isobjinstalled (strclassstring)
On Error Resume Next
isobjinstalled = False
ERR = 0
Dim Xtestobj
Set xtestobj = Server.CreateObject (strclassstring)
If 0 = Err Then isobjinstalled = True
Set xtestobj = Nothing
ERR = 0
End Function
' Get the version number of the system component
Function Getver (CLASSSTR)
On Error Resume Next
Getver= ""
ERR = 0
Dim Xtestobj
Set xtestobj = Server.CreateObject (CLASSSTR)
If 0 = Err Then getver=xtestobj.version
Set xtestobj = Nothing
ERR = 0
End Function
%>
Call methods such as:
Copy Code code as follows:
<%
If isobjinstalled ("Fso.file") =true then
Response.Write ("Already Loaded ") &getver (" Fso.file ")
End If
%>
