Ir para conteúdo

POWERED BY:

Arquivado

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

namio

cdonts

Por , em ASP Clássico

Recommended Posts

ruinas    0

ruinas
Postado

Usa esse Script Aqui que ele mostrará todos os componentes instalados no Servidor.:Script:<% @ Language="VBScript" %><% Option Explicit %><%Dim theComponent(11)Dim theComponentName(11)' componentestheComponent(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"' apelido do componente!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"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 = 0End Function%><html><head><title>O q tem aqui?</title><meta name="generator" content="Namo WebEditor v5.0(Trial)"></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> <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> </td> </tr></table></body></html>Ate mais...... :ph34r:

Compartilhar este post

Link para o post
Compartilhar em outros sites

namio    0

namio
Postado

Obrigado pela ajuda. Executei o script e constatei que o CDNOTS não está instalado. Como faço para instalar?

Compartilhar este post

Link para o post
Compartilhar em outros sites

Neco    0

Neco
Postado

Ae grande....

 

Para pegar o cdonts.dll clique <a href="http://www.maritonio.com.br/download/cdonts.dll">AQUI</a>

 

A dica é a seeguinte: Se o seu Windows for o NT ou 2000 ele já possui a dll registrado, mas caso seja o 95, 98, ME ou XP, você deverá registrá-la com o regsvr32.exe. Para isso, siga as instruções abaixo:

 

1. Baixe o arquivo cdonts.dll e salve no diretório c:\windows\system32.

2. No menu iniciar do windows, clique em executar.

 

Atenção: No caso do Windows XP, é preciso que o Menu Iniciar esteja no modo clássico para visualizar o comando EXECUTAR. Para mudar o Menu Iniciar para o modo clássico, clique com o botão direito do mouse sobre ele e escolha a opção propriedades. A seguir escolha Menu Inciar Clássico.

 

3. Em executar Digite a seguinte linha de comando:

regsvr32.exe c:\windows\system32\cdonts.dll

 

4. Dê enter e execute os seus códigos ASP no seu Localhost usando seus scripts com o CDONTS

 

A dica foi conseguida no site http://www.turismonanet.hpg.ig.com.br/

 

Espero ter ajudado.

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