Ir para conteúdo

POWERED BY:

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

xanburzum

[Resolvido] Ver se objeto XMLHTTP esta instalado

Por , em ASP Clássico

Recommended Posts

xanburzum    169

xanburzum
Postado

Execute o script para testar se você tem o objeto XMLHTTP instalado ,verifica qualquer versão do Microsoft XML Parser (MSXML)

<% Option Explicit %>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
<title>XMLHTTP Request Object</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>
<body>
<%
'colocar os objetos que desejamos para testar em um array declarado
Dim InstalledObjects(4)

InstalledObjects(0) ="Microsoft.XMLHTTP"
InstalledObjects(1) ="Msxml2.ServerXMLHTTP"
InstalledObjects(2) ="MSXML2.ServerXMLHTTP"
InstalledObjects(3) ="MSXML2.XMLHTTP.3.0"
InstalledObjects(4) ="MSXML2.XMLHTTP.4.0"

Function ObjCreated(sClass)
'cria variaveis
Dim ObjInstance
On Error Resume Next
'initialize valores padrão
ObjCreated = False
'cria instancia da class -
Set ObjInstance = Server.CreateObject(sClass)
If Err.Number=0 Then ObjCreated = True
`fecha object
Set ObjInstance = Nothing
Err.Clear
End Function
%>
<table border="0">
<%
Dim i
For i=0 to UBound(InstalledObjects)
Response.Write "<tr><td>" & InstalledObjects(i) & "</td><td>"
If ObjCreated(InstalledObjects(i)) Then 
Response.Write "<strong>Instalado</strong>"
Else
Response.Write "<strong>Não instalado</strong>"
End If
Response.Write "</td></tr>"
Next
%>
</table>
</body>
</html>

Compartilhar este post

Link para o post
Compartilhar em outros sites
Ir para a lista de tópicos ASP Clássico
×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.

  Aceito