Desenvolvimento de sites: Criação de sites com foco nos resultados e soluções para web nas nuvens. Belo Horizonte / MG / Brasil
Atendimento Online
ZazoDevelopmentDeixe o site de sua empresa em nossas mãos. Você vai se surpreender!
Desenvolvimento Web
ZazoOptimizationOtimize seu site para mecanismos de busca e aumente sua receita imediatamente!
Otimização para sites de Busca
ZazoConsultingProblemas para entregar projetos no prazo? Dificuldades para organizar sua equipe?
Consultoria em Desenvolvimento Eficiente
Navegação > Home / Arquivo: fevereiro 2009
fev
28
2009

Lendo as dimensões de uma imagem com o ASP imagesize

Artigo publicado na categoria Suporte Técnico 

O ImageSize é um componente ASP para manipulação de imagens. Leia as dimensões de uma imagem.

Obtendo dimensão de uma imagem

<%
' Cria uma instância do controle
Set ImageSize = Server.CreateObject("ImgSize.Check")
' Carrega a imagem
ImageSize.FileName = Server.MapPath("imagem.jpg")

If (ImageSize.Error = "") Then
  Response.Write "Largura: " & ImageSize.Width & "
"
  Response.Write "Altura: " & ImageSize.Height & "
"
Else
  Response.Write "Erro: " & ImageSize.Error
End If
' Tira o objeto da memória
Set ImageSize = Nothing
%>

Tags:

Comente

fev
28
2009

Adicionando texto numa imagem com o ASPJpeg

Artigo publicado na categoria Suporte Técnico 

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 ""imagem_thumbnail.jpg"" />"
%>

Adicionar texto a uma imagem

<%
' Cria uma instância do controle
Set AspJpeg = Server.CreateObject("Persits.Jpeg")
' Abre a imagem original
AspJpeg.Open Server.MapPath("imagem.jpg")
' Escreve o texto
AspJpeg.Canvas.Font.Color = &HFF0000
AspJpeg.Canvas.Font.Family = "Courier New"
AspJpeg.Canvas.Font.Bold = True
AspJpeg.Canvas.Font.Quality = 4
AspJpeg.Canvas.Font.BkMode = "Opaque"
AspJpeg.Canvas.Print 10, 572, "Copyright (c) XYZ, Inc."
' Salva a imagem com o texto
AspJpeg.Save Server.MapPath("imagem_texto.jpg")
' Tira o objeto da memória
Set AspJpeg = Nothing
' Exibe a imagem na tela
Response.Write ""imagem_texto.jpg"" />"
%>

Tags:

Comente

fev
28
2009

Criando miniaturas de imagem com o aspJpeg

Artigo publicado na categoria Suporte Técnico 

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"" />"
%>

Adicionar texto a uma imagem

<%
' Cria uma instância do controle
Set AspJpeg = Server.CreateObject("Persits.Jpeg")
' Abre a imagem original
AspJpeg.Open Server.MapPath("imagem.jpg")
' Escreve o texto
AspJpeg.Canvas.Font.Color = &HFF0000
AspJpeg.Canvas.Font.Family = "Courier New"
AspJpeg.Canvas.Font.Bold = True
AspJpeg.Canvas.Font.Quality = 4
AspJpeg.Canvas.Font.BkMode = "Opaque"
AspJpeg.Canvas.Print 10, 572, "Copyright (c) XYZ, Inc."
' Salva a imagem com o texto
AspJpeg.Save Server.MapPath("imagem_texto.jpg")
' Tira o objeto da memória
Set AspJpeg = Nothing
' Exibe a imagem na tela
Response.Write "<img src=""imagem_texto.jpg"" />"
%>

Tags:

Comente

fev
28
2009

Como fazer upload de arquivos usando o Persists AspUpload

Artigo publicado na categoria Suporte Técnico 

O AspUpload é um componente ActiveX que permite o envio de qualquer tipo de arquivo ou imagem para uma pasta no servidor web.

AspUpload.html

<html>
<head>
<title>AspUpload : Upload Simples</title>
</head>
<body>

<h4>AspUpload</h4>

<b>Select 1, 2 or 3 files, then click the Upload button. Images (.gif, .jpg, .png) will be automatically displayed.</b>

<p>
  <form name="MyForm" method="post" enctype="multipart/form-data" action="AspUpload.asp">
  <table cellspacing="0" cellpadding="3" border="1">
    <tr>
      <td bgcolor="#FFFFCC">
        <input type="file" size="40" name="filefield" /><br />
        <input type="submit" value="Upload" /><br />
      </td>
    </tr>
  </table>
  </form>
</p>

</body>
</html>

AspUpload.asp

<%
' Cria uma instância do controle
Set AspUpload = Server.CreateObject("Persits.Upload.1")
' Não sobrevescrever arquivos
AspUpload.OverwriteFiles = False

On Error Resume Next
' Limita o tamanho máximo do arquivo em 1MB
AspUpload.SetMaxSize 1048576
' Salva o arquivo
Count = AspUpload.Save("c:\upload\")

' Tira o objeto da memória
Set AspUpload = Nothing

If Err <> 0 Then
  Response.Write "Erro. " & Err.Description
Else
  Response.Write "Upload realizado com sucesso."
End If
%>

Tags:

Comente

fev
28
2009

Como fazer upload de arquivos com o Dunda Upload

Artigo publicado na categoria Suporte Técnico 

DundasUpload.html

<html>
<head>
<title>Dundas Upload</title>
</head>
<body>

<h4>Dundas Upload</h4>

<p>
  <form name="MyForm" method="post" enctype="multipart/form-data" action="DundasUpload.asp">
    <input type="file" size="40" name="File1" /><br />
    <input type="submit" value="Upload" /><br />
  </table>
  </form>
</p>

</body>
</html>

DundasUpload.asp

<%
' Cria uma instância do controle
Set DundasUpload = Server.CreateObject("Dundas.Upload.2")

' Estipula o tamanho máximo do arquivo 
DundasUpload.MaxFileSize = 1048576
' Formata o nome do arquivo
DundasUpload.UseUniqueNames = False
' Salva o arquivo
DundasUpload.Save Server.MapPath("upload\")

' Tira o objeto da memória
Set DundasUpload = Nothing

Response.Write "Upload realizado com sucesso."
%>

Tags:

Comente

fev
28
2009

Como enviar email com o Jmail

Artigo publicado na categoria Suporte Técnico 

O w3Jmail é um componente que possibilita enviar e-mails por páginas web. Uma caracteristica interessante do w3Jmail é a de receber emails, possibilitando o desenvolvimento de WebMails.

Envio de e-mail simples

<%
' Cria uma instância do controle de Email
Set JMail = Server.CreateObject("JMail.Message")
' Nome do Remetente
JMail.FromName = "Nome do Remetente"
' E-mail do Remetente
JMail.From = "remetente@dominio.com.br"
' Destinatário
JMail.AddRecipient "destinatario@dominio.com.br", "Nome do Destinatário"
' Assunto do E-mail
JMail.Subject = "Assunto"
' Conteúdo do E-mail
JMail.Body = "Envio de e-mail simples através do w3Jmail."
' Envia o Email passando por parâmetro o Servidor SMTP
JMail.Send("mail.dominio.com.br")
' Tira o objeto da memória
Set JMail = Nothing
%>

Envio de e-mail com anexos e prioridade

<%
' Cria uma instância do controle de Email
Set JMail = Server.CreateObject("JMail.Message")
' Nome do Remetente
JMail.FromName = "Nome do Remetente"
' E-mail do Remetente
JMail.From = "remetente@dominio.com.br"
' Destinatário
JMail.AddRecipient "destinatario@dominio.com.br", "Nome do Destinatário"
' Prioridade do E-mail
' 1 Alta / 2 Normal / 3 Baixa
JMail.Priority = 1
' Arquivo a ser anexado
JMail.AddAttachment "e:\home\dominio.com.br\documento.doc"
' Assunto do E-mail
JMail.Subject = "Assunto"
' Conteúdo do E-mail
JMail.Body = "Envio de e-mail com anexo através do w3Jmail."
' Envia o Email passando por parâmetro o Servidor SMTP
JMail.Send("mail.dominio.com.br")
' Tira o objeto da memória
Set JMail = Nothing
%>

Tags:

Comente

fev
28
2009

Como enviar email com o Cdosys

Artigo publicado na categoria Suporte Técnico 

CDOSYS – Microsoft

O CDOSYS é um componente usado para envio de e-mails no Windows Server 2003. Foi criado para substituir o antigo componente CDONTS, para envio de e-mails através do SMTP.

Envio de e-mail simples

<%
' Cria a instância para configuração do SMTP
Set CDOSYSconn = Server.CreateObject("CDO.Configuration")
' Endereço do Servidor de SMTP
CDOSYSconn.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "mail.dominio.com.br"
' Porta do Servidor de SMTP
CDOSYSconn.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
' Porta do CDO
CDOSYSconn.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
' Configuração de Timeout
CDOSYSconn.Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 30
' Atualiza as configurações
CDOSYSconn.Fields.update

' Cria uma instância do controle de Email
Set CDOSYS = Server.CreateObject("CDO.Message")
'Atualiza a configuração do CDOSYS para o envio do e-mail
Set CDOSYS.Configuration = CDOSYSconn
' E-mail do Remetente
CDOSYS.From = "remetente@dominio.com.br"
' E-mail do Destinatário
CDOSYS.To = "destinatario@dominio.com.br"
' Assunto do E-mail
CDOSYS.Subject = "Assunto"
' Conteúdo do E-mail
CDOSYS.HtmlBody = "Envio de e-mail simples através do CDOSYS."
' Envia o Email
CDOSYS.Send
' Tira o objeto de envio do e-mail da memória
Set CDOSYS = Nothing

' Tira o objeto de configuração da memória
Set CDOSYSconn = Nothing
%>

Envio de e-mail com anexos

<%
' Cria a instância para configuração do SMTP
Set CDOSYSconn = Server.CreateObject("CDO.Configuration")
' Endereço do Servidor de SMTP
CDOSYSconn.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "mail.dominio.com.br"
' Porta do Servidor de SMTP
CDOSYSconn.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
' Porta do CDO
CDOSYSconn.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
' Configuração de Timeout
CDOSYSconn.Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 30
' Atualiza as configurações
CDOSYSconn.Fields.update

' Cria uma instância do controle de Email
Set CDOSYS = Server.CreateObject("CDO.Message")
'Atualiza a configuração do CDOSYS para o envio do e-mail
Set CDOSYS.Configuration = CDOSYSconn
' E-mail do Remetente
CDOSYS.From = "remetente@dominio.com.br"
' E-mail do Destinatário
CDOSYS.To = "destinatario@dominio.com.br"
' Arquivo a ser anexado
CDOSYS.AddAttachment("e:\home\dominio.com.br\documento.doc")
' Assunto do E-mail
CDOSYS.Subject = "Assunto"
' Conteúdo do E-mail
CDOSYS.HtmlBody = "Envio de e-mail com anexo através do CDOSYS."
' Envia o Email
CDOSYS.Send
' Tira o objeto de envio do e-mail da memória
Set CDOSYS = Nothing

' Tira o objeto de configuração da memória
Set CDOSYSconn = Nothing
%>


Tags:

Comente

Página 1 de 41234