Criar Web, manuais e recursos para desenvolvimento web
Manuais
Programas
FAQS
Diretório
Comunidade
  Inicio > Manuais > Workshop de ASP
SEÇÕES
Manuais relacionados
+Workshop de ASP
Categorias
+Scripts em ASP

Índice do Manual Workshop de ASP
+ Melhorar o registro em buscadores
+ Include. Incluir arquivos ASP
+ Crie seu próprio buscador
+ O objeto RecordSet
+ Paginar resultados em ASP
+ Global .ASA
+ Contar usuários ativos
+ Percorrido arrays e coleções
+ Mais sobre cookies
+ Detector de navegador
+ Trabalho com o buffer da página
+ Utilização ou não do Cache
+ Objeto Server
+ Leitura e escritura de arquivos em ASP
+ Cálculo de dias que faltam para uma data
+ Componentes do servidor ASP
+ AspUpload
+ Exportar dados de MySQL a Microsoft Access
+ Exportar dados de Access a MySQL
+ Mandar e-mails pelo ASP
+ Criar banco de dados Access com ASP
+ Passagem de variáveis pela URL
+ Uso de CDONTS para script de recomendar a um amigo em ASP
+ Servidores nos EUA e o asp
+ Como fazer zonas aleatórias em asp
+ Selects dependentes com ASP e banco de dados
+ Sistema de Recomendação em ASP com CDONTS
+ Encaminhar o navegador a uma URL com ASP detalhado
+ Uso de cookies
+ Galeria de imagens em ASP
+ Escrever um arquivo Excel através de ASP
+ Tratar erros em sentenças SQL executadas em ASP
+ Validar uma data com ASP
+ Arredondar decimais em ASP
+ Devolver um arquivo de Word através de uma página ASP
+ Um Chat em ASP
+ Averiguar o endereço IP de um visitante e bloquear IPs, em ASP
+ Lista dos arquivos de um diretório com ASP
+ Percorrido genérico por um recordset com ASP
+ Intranets com ASP
+ Restringir o acesso a páginas com ASP
+ Saídas em formato compatível Excel
+ Variáveis de servidor em ASP
+ GeoLite Country para ASP. Conhecer o país de um IP
+ Um Sistema de postais Virtuais em ASP I
+ Um Sistema de postais Virtuais em ASP II
+ Messenger através de BD em ASP
+ Objeto Datagrid de ASP.NET em ASP
+ Percorrer campos de formulário complexos em ASP
+ Percorrer valor do campo auto-numérico depois de inserir em ASP
+ O Objeto Browser Capabilities
+ Buscador simples em ASP melhorado

Descrição dos capítulos

Parceiros
- CSS para Web Design
- S.O.S Designers
- Slackware-Brasil
- Crie seu Web site
- Oficina da Net

Uso de CDONTS para script de recomendar a um amigo em ASP

Uso do componente de servidor CDONTS em ASP para o envio de correio eletrônico com o servidor. Exemplo de script para que os visitantes possam recomendar a página a um amigo.


Este é um exemplo completo e bastante simples de como enviar um correio usando o componente CDONTS de IIS.

Tal componente está presente em muitas das versões de Windows em seu modo servidor, como Windows NT 4 ou Windows 2000, mas não assim em Windows 98, por não dispor de um servidor de envio de correio (SMTP). Atenção, que no Windows NT e 2000 teráimos que ter o servidor SMTP corretamente configurado e os usuários de Windows XP, que não dispõem essa ferramenta desde o princípio, embora poderiam obtê-la através de outro sistema Windows.

Referencia: Podemos conhecer outras opções para o envio de correios pelo servidor com ASP em artigo de CriarWeb.com

Script para recomendar a um amigo

O exercício seguinte é um script que permite mandar um e-mail desde nossa página a um amigo do visitante que o deseje. É um dos típicos sistemas de "recomenda a um amigo".

Os dados para preencher o e-mail, colocaremos a mão. Se queremos enviar os dados de um formulário só temos que recolher com as instruções tão simples como estas:

cBody = Request.Form("Body")
cPara = = Request.Form("Amigo")

E agora o exemplo, no qual se mostra como enviar a um amigo, uma cópia e uma cópia oculta, o comum.

<%@ Language=VBScript%>
<html>

<head>
   <title>Enviar a um amigo</title>

</head>
<body><%
Dim cBody, n

For Each n In Request.Form
    cBody = cBody & n & ": " & Request.Form(n) & chr(13)
Next

Set oCDO = Server.CreateObject("CDONTS.NewMail")

'Atribuimos as propriedades ao objeto
oCDO.From = "fernando@seudominio.com"
oCDO.To = "foc@seudominio.com"
oCDO.Subject = "Assunto da mensagem"
oCDO.Body = cBody
'oCDO.Cc = "resal@seudominio.com;webmaster@seudominio.com"
oCDO.Bcc = "quinqui@seudominio.com"
'oCDO.MailFormat = 0

oCDO.Send

Set oCDO = Nothing 'Liberar...
'Mostramos mensagem de que se enviou com sucesso.
Response.Write "Foi enviada Ok, que fácil!!"

%>
</body>
</html>

Bom, amigos, espero que possa servir, como pode-se ver, há pouco o que programar!

Autoria e outras referências sobre este artigo

Manuais relacionados com este artigo
Dentro de Workshop de ASP
Seguinte: Servidores nos EUA e o asp
Anterior: Passagem de variáveis pela URL
< Índice de Workshop de ASP

Categorias relacionadas
Através das categorias do nosso diretório podem ser encontrados outros tipos de recursos relacionados com este artigo:
+ Entrar em Scripts em ASP


Comentários dos visitantes
Os comentários dos visitantes são para ampliar a informação do artigo. Todos podem participar.
Acrescentar um comentário do artigo Acrescentar um comentário do artigo



Sobre nós | Copyright | Anuncie | Entrar em contato <criarweb>

Hospedado por Hostnet Hospedagem de Sites