Simple function for ASP to determine whether a DLL file has been registered

The main function is to use the following functions:

The code is as follows

Copy Code

<% ' 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:

code is as follows	copy code
<% If isobjinstalled ("Fso.file") =true then      Response.Write ("Installed") &getver ("Fso.file") End If %>