0

Ver Componentes Instalados - By Ted K'

Iniciado por Ted k', Nov 30 2007 06:12 AM

Você não pode responder a este tópico
Ir ao primeiro tópico não lido

Post sem respostas

#1 Ted k'

Membro

Membros
34 posts

Estado:Bahia

Adicionado 30 November 2007 - 06:12 AM

Esse código você visualiza todos os componentes instalados!!!

<%@ Language="VBScript" %>
<% Option Explicit %>
<%
Dim theComponent(14)
Dim theComponentName(14)

		' Lista dos Componentes
		theComponent(0) = "ADODB.Connection"
		theComponent(1) = "SoftArtisans.FileUp"
		theComponent(2) = "AspHTTP.Conn"
		theComponent(3) = "AspImage.Image"
		theComponent(4) = "LastMod.FileObj"
		theComponent(5) = "Scripting.FileSystemObject"
		theComponent(6) = "SMTPsvg.Mailer"
		theComponent(7) = "CDONTS.NewMail"
		theComponent(8) = "Jmail.smtpmail"
		theComponent(9) = "SmtpMail.SmtpMail.1"
		theComponent(10) = "Persits.Upload.1"
		theComponent(11) = "UnitedBinary.AutoImageSize"
		theComponent(12) = "aspSmartUpload.SmartUpload"
		theComponent(13) = "DAO.DBEngine.35"

		' Apelido dos Componentes
		theComponentName(0) = "ADODB"
		theComponentName(1) = "SA-FileUp"
		theComponentName(2) = "AspHTTP"
		theComponentName(3) = "AspImage"
		theComponentName(4) = "LastMod"
		theComponentName(5) = "FileSystemObject"
		theComponentName(6) = "ASPMail"
		theComponentName(7) = "CDONTS"
		theComponentName(8) = "JMail"
		theComponentName(9) = "SMTP"
		theComponentName(10) = "Persits Upload"
		theComponentName(11) = "AutoImageSize"
		theComponentName(12) = "ASpSmartUpload"
		theComponentName(13) = "DBEngine"

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
%>
<html>
<head>
<title>O que tem aqui?</title>
</head>
<body>
<table width="100%" border="1" cellspacing="0" cellpadding="0">
<tr>
<td align="center"><font face="Verdana, Arial, Helvetica, sans-serif" size="2" color="#000000"><b>Componentes 
instalados:</b></font></td>
</tr>
<tr>
<td><font face="Verdana, Arial, Helvetica, sans-serif" size="2">
<table border="0" cellpadding="0" cellspacing="0" width="100%">
<% 
Dim i
		For i = 0 To UBound(theComponent)
		If Not IsObjInstalled(theComponent(i)) Then
		Else
				Response.Write "<tr>" & vbCrLf
				Response.Write "<td width=""100%"">" & vbCrLf
				Response.Write "<b>" & theComponentName(i) & "</b>" & vbCrLf
				Response.Write "</td>" & vbCrLf
				Response.Write "</tr>" & vbCrLf
		End If
Next 
%>
</table>
</font> 
</td>
</tr>
</table>
</body>
</html>

Abraço a Todos!!!!!!!!

Ted k'

Back to top

Voltar ao Dicas ASP

1 usuário(s) esta(ão) lendo este tópico

0 membro(s), 1 visitante(s) e 0 membros anônimo(s)