Verifique se existem componentes do sistema ou se os componentes foram instalados com êxito para facilitar a operação contínua. Dê aos usuários melhores instruções de informações. Para determinar se o servidor possui um determinado componente asp instalado, o código mais comumente usado é o seguinte:
Copie o código do código da seguinte forma:
<%
'Função: Verifique se existem componentes do sistema ou se os componentes foram instalados com sucesso
'Parâmetro: nome do componente
Função IsObjInstalled(strClassString)
Em caso de erro, retomar o próximo
IsObjInstalled = Falso
Errar = 0
DimxTestObj
Definir xTestObj = Server.CreateObject(strClassString)
Se 0 = Err Então IsObjInstalled = True
Definir xTestObj = Nada
Errar = 0
Função final
'Obtém o número da versão do componente do sistema
Função getver(Classstr)
Em caso de erro, retomar o próximo
getver =
Errar = 0
DimxTestObj
Definir xTestObj = Server.CreateObject(Classstr)
Se 0 = Errar Então getver=xtestobj.version
Definir xTestObj = Nada
Errar = 0
Função final
%>
O método de chamada é o seguinte:
Copie o código do código da seguinte forma:
<%
se IsObjInstalled(fso.file) =True então
resposta.write(já instalado)&getver(fso.file)
terminar se
%>