Cdonts

Abril 28, 2003

Olá galera, Bom Dia !!!

Alguém sabe me dizer se o CDonts.dll, já vem regsitrado no IIS ?? Se não, como faço ?

Obrigado

Abraços

Rhussell

franciscobiscaino · Abril 29, 2003

utiliza o aspemail é muito melhor e tem mais recursos www.aspemail.com/download.html.

o cdonts não vem junto

mvdesign · Abril 29, 2003

cara no iis o cdonts já vem instalado sim, agora no pws não!

beleza.... vo te passa um codigo que mostra todos os componentes instalados no servidor!

Arquivo:

verifica.asp - é coloca-lo na pasta wwroot epronto ta rodando!

-------------------------------INICIO DO CODIGO----------------------------------

<html>

<head>

<title>Untitled Document</title>

</head>

<%

inicio = Timer

%>

<tr>

<td>

Informações

do Servidor

Disponível Somente para Servidores Web Windows

<tr>

<td valign="TOP" width="454" bgcolor="#FFCC99">Nome

do Servidor:

<% = Request.ServerVariables("SERVER_NAME") %>

Nome do Script:

<% = Request.ServerVariables("SCRIPT_NAME") %>

Protocolo do Servidor:

<% = Request.ServerVariables("SERVER_PROTOCOL") %>

Pasta Local:

<% = Request.ServerVariables("PATH_INFO") %>

Endereço do Físico:

<% = Request.ServerVariables("PATH_TRANSLATED") %>

Referencia HTTP:// :

<% = Request.ServerVariables("HTTP_REFERER") %>

<a href="http://<% = Request.ServerVariables("SERVER_NAME") %>" target="_blank">

<% = Request.ServerVariables("SERVER_NAME") %>

</a> </td>

<td valign="TOP" width="364" bgcolor="#FFCC99"> Informações

do Sistema

Sistema:

<% = ScriptEngine %>

Versão:

<% =ScriptEngineMajorVersion() %>

.

<% =ScriptEngineMinorVersion() %>

Atualizado:

<% =ScriptEngineBuildVersion() %>

</td>

</tr>

</table>

<tr>

<td>

<div align="left">CDONTS

Object:

<% Err.Clear

On Error Resume Next

Set objCDONTS = Server.CreateObject("CDONTS.Session")

If Err.Number <> 0 Then

Response.Write("NÃO INSTALADO  ")

Else

Response.Write("Versão: " & objCDONTS.Version & " INSTALADO  ")

End If

%>

ADO DB Object:

<% Err.Clear

On Error Resume Next

Set objConn = Server.CreateObject("ADODB.Connection")

If Err.Number <> 0 Then

Response.Write("ADODB.Connection object NÃO INSTALADO")

Else

Response.Write("Versão: " & objConn.Version & " ")

End If

%>

File System Object

<% Err.Clear

On Error Resume Next

Set objFSO = Server.CreateObject("Scripting.FileSystemObject")

If Err.Number <> 0 Then

Response.Write("NÃO INSTALADO")

Else

Response.Write("INSTALADO")

End If

%>

ASPMail Object

<% Err.Clear

On Error Resume Next

Set objASPMail = Server.CreateObject("SMTPsvg.Mailer")

If Err.Number <> 0 Then

Response.Write("INSTALADA")

Else

Response.Write("VERSÃO INSTALADO " & objASPMail.Version )

Response.Write(" EXPIRA EM:" & objASPMail.Expires & "" )

End If

Response.Write(" Para Mais Informações <A HREF=""http://www.serverobjects.com"" TARGET=""RESOURCE WINDOW"">www.serverobjects.com</A>  ")

%>

ASPImage Object

<% Err.Clear

On Error Resume Next

Set objASPImage = Server.CreateObject("AspImage.Image")

If Err.Number <> 0 Then

Response.Write("NÃO INSTALADO")

Else

Response.Write("VERSÃO INSTALADA " & objASPImage.Version )

Response.Write(" EXPIRA EM:" & objASPImage.Expires & "")

End If

Response.Write(" Para Mais Informações <A HREF=""http://www.serverobjects.com"" TARGET=""RESOURCE WINDOW"">www.serverobjects.com</A>")

%>

ASPUpload Object

<% Err.Clear

On Error Resume Next

Set objASPUpload = Server.CreateObject("Persits.Upload.1")

If Err.Number <> 0 Then

Response.Write("NÃO INSTALADO")

Else

Response.Write("INSTALADO ")

End If

Response.Write(" Para Mais Informações <A HREF=""http://www.persits.com"" TARGET=""RESOURCE WINDOW"">www.persits.com</A>")

%>

ASPEmail Object

<% Err.Clear

On Error Resume Next

Set objASPEmail = Server.CreateObject("Persits.MailSender")

If Err.Number <> 0 Then

Response.Write("NÃO INSTALADO")

Else

Response.Write("INSTALADO ")

Response.Write(" Expires On:" & objASPEmail.Expires & "")

End If

Response.Write(" Para Mais Informações <A HREF=""http://www.persits.com"" TARGET=""RESOURCE WINDOW"">www.persits.com</A>  ")

%>

JMail Object

<% Err.Clear

On Error Resume Next

Set objJMail = Server.CreateObject("JMail.SMTPMail")

If Err.Number <> 0 Then

Response.Write("NÃO INSTALADO")

Else

Response.Write("INSTALADO ")

End If

Response.Write(" Para Mais Informações <A HREF=""http://www.dimac.net"" TARGET=""RESOURCE WINDOW"">www.dimac.net</A>  ")

%>

Bamboo.SMTP Object

<% Err.Clear

On Error Resume Next

Set objBamboo = Server.CreateObject("Bamboo.SMTP")

If Err.Number <> 0 Then

Response.Write("NÃO INSTALADO")

Else

Response.Write("INSTALADO ")

End If

Response.Write("  ")

%>

Informações desta Transmissão

<%

On Error Resume Next

vRunDate = Now

sRunDate = Request.QueryString("DATE")

If Len(Trim(sRunDate)) = 0 Then

sRunDate = Request.Form("DATE")

End If

Response.Write("")

If IsDate(sRunDate) Then

vRunDate = CDate(sRunDate)

Response.Write(" RunDate:" & sRunDate)

Else

Response.Write(" RunDate: Now")

End If

Response.Write(" RunDate : " & vRunDate )

Response.Write(" CDate(RunDate) : " & CDate(vRunDate) )

Response.Write(" CDate("" & RunDate) : " & CDate("" & vRunDate) )

%>

<%

Application.Lock

IF NOT isArray( Application( "lastTen" ) ) THEN

DIM dummy( 10, 3 )

Application( "lastTen" ) = dummy

END IF

lastTen = Application( "lastTen" )

Application.UnLock

' Mover cada visita abaixo no Array

IF lastTen( 9, 0 ) <> "" THEN

FOR i = 0 TO 9

lastTen( i, 0 ) = lastTen( i + 1, 0 )

lastTen( i, 1 ) = lastTen( i + 1, 1 )

lastTen( i, 2 ) = lastTen( i + 1, 2 )

' Somar uma nova entrada

FOR i = 0 TO 9

IF lastTen( i, 0 ) = "" THEN

lastTen( i, 0 ) = Request.ServerVariables( "REMOTE_ADDR" )

lastTen( i, 1 ) = Request.ServerVariables( "HTTP_USER_AGENT" )

lastTen( i, 2 ) = NOW()

EXIT FOR

END IF

Application( "lastTen" ) = lastTen

Application.UnLock

%>

Transmitido:

<% = Now %>

</div>

</td>

</tr>

</table>

Mostrar

os 10 Últimos Acessos a este Script:

Seu IP : <%= request.servervariables("REMOTE_ADDR") %>

<td>Visitas</td>

<td>Direção

IP</td>

<td>Browser</td>

<td>Hora

de Visita</td>

</tr>

<%

FOR i = 0 TO 9

IF lastTen( i, 0 ) <> "" THEN

%>

<tr>

</tr>

<%

END IF

</table>

Tempo

de Respota do Servidor Web:

<%

'... uma seqüência de comandos para medir a velocidade

response.write "Processado em " & FormatNumber( Timer - inicio, 2 ) & " segundos"

%>

</div>

</td>

</tr>

</table>

</body>

</html>

--------------------------------------FIM DOCODIGO----------------------------------------

franciscobiscaino · Abril 29, 2003

isto depende se o iis dele for o do xp ele não tem se for o do 2000 profissional depende da versão que ele tem agora as versões p/ server já vem junto

Entrar

Cdonts

Pergunta

Guest Rhüssell

Link para o comentário

Compartilhar em outros sites

3 respostass a esta questão

Posts Recomendados

franciscobiscaino

Link para o comentário

Compartilhar em outros sites

mvdesign

Link para o comentário

Compartilhar em outros sites

franciscobiscaino

Link para o comentário

Compartilhar em outros sites

Participe da discussão

Estatísticas dos Fóruns

Navegação

Atividades