ASP to determine whether the server installed a component, that is, whether a DLL file installed, to determine whether a component is registered in the server, ASP components, it can be judged to reduce many ASP errors, mainly with the following functions:
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
%>
The method is invoked as follows:
Copy Code code as follows:
<%
If isobjinstalled ("Fso.file") =true Then
Response.Write ("Already Installed") &getver ("Fso.file")
End If
%>
