Paginação em colunas

  
<link type="text/css" rel="stylesheet" href="css/SyntaxHighlighter.css"></link>   
<script language="javascript" src="js/shCore.js"></script>   
<script language="javascript" src="js/shBrushCSharp.js"></script>   
<script language="javascript" src="js/shBrushXml.js"></script>   
<script language="javascript">   
dp.SyntaxHighlighter.ClipboardSwf = ´/flash/clipboard.swf´;   
dp.SyntaxHighlighter.HighlightAll(´code´);   
</script>   

Introdução ao ASP + MYSQL

Manipulação de Imagens

AspJpeg - Persits

O AspJpeg é um componente que permite a manipulação de imagens GIF, JPEG e PNG. Edição do tamanho das imagens, criar thumbnails de alta qualidade e adicionar texto a uma imagem.

Criar Thumbnail de uma imagem

' Cria uma instância do controle
Set AspJpeg = Server.CreateObject("Persits.Jpeg")
' Localização da imagem original
img_Original = Server.MapPath("imagem.jpg")
' Abre a imagem original
AspJpeg.Open img_Original
' Reduz a imagem em 50%
AspJpeg.Width = AspJpeg.OriginalWidth / 2
AspJpeg.Height = AspJpeg.OriginalHeight / 2
' Salva a imagem reduzida
AspJpeg.Save Server.MapPath("imagem_thumbnail.jpg")
' Tira o objeto da memória
Set AspJpeg = Nothing
' Exibe a imagem na tela
Response.Write " img src=imagem_thumbnail.jpg "

Seja Bem vindo ao blog

O blog foi criado para compartilhar todos os conhecimentos em asp adquiridos durante o meu trabalho.

Trabalhando com envio de e-mails

AspEmail - Persits

AspEmail é um componente ActiveX que permite o envio de e-mails através de páginas web. O componente suporta anexos de arquivo múltiplos, recipientes múltiplos, CCs, BCCs, e Responder.

Envio de e-mail simples:

' Cria uma instância do controle de Email
Set aspEmail = Server.CreateObject("Persits.MailSender")
' Endereço do Servidor de SMTP
aspEmail.Host = "mail.dominio.com.br"
' Nome do Remetente
aspEmail.FromName = "Nome do Remetente"
' E-mail do Remetente
aspEmail.From = "remetente@dominio.com.br"
' E-mail do Destinatário
aspEmail.AddAddress "destinatario@dominio.com.br"
' Assunto do E-mail
aspEmail.Subject = "Assunto"
' E-mail em HTML
aspEmail.IsHTML = True
' Conteúdo do E-mail
aspEmail.Body = "Envio de e-mail simples através do AspEmail."
' Envia o Email
aspEmail.Send
' Tira o objeto da memória
Set aspEmail = Nothing