Compruebe si existen componentes del sistema o si los componentes están instalados correctamente para facilitar el funcionamiento continuo. Brinde a los usuarios mejores instrucciones de información. Para determinar si el servidor tiene instalado un determinado componente ASP, el código más utilizado es el siguiente:
Copie el código de código de la siguiente manera:
<%
'Función: comprobar si existen componentes del sistema o si los componentes están instalados correctamente
'Parámetro: nombre del componente
Función IsObjInstalled(strClassString)
En caso de error Continuar siguiente
IsObjInstalled = Falso
Error = 0
DimxTestObj
Establecer xTestObj = Server.CreateObject(strClassString)
Si 0 = Err, entonces IsObjInstalled = Verdadero
Establecer xTestObj = Nada
Error = 0
Función final
'Obtener el número de versión del componente del sistema
Función getver(Classstr)
En caso de error Continuar siguiente
getver=
Error = 0
DimxTestObj
Establecer xTestObj = Server.CreateObject(Classstr)
Si 0 = Err Entonces getver=xtestobj.version
Establecer xTestObj = Nada
Error = 0
Función final
%>
El método de llamada es el siguiente:
Copie el código de código de la siguiente manera:
<%
si IsObjInstalled(fso.file) =True entonces
respuesta.write(ya instalado)&getver(fso.file)
terminar si
%>