Categoria Atual: ASP

Enviando E-Mail com ASPMail

Script pronto e comentado! <% set aspMail = server.CreateObject("SMTPsvg.Mailer") ' Use o SMTP ou o MAIL da sua conta de Hospedagem. aspMail.RemoteHost = "smtp.dominio.com.br" ' Essa linha é opicional. aspMail.FromName = "Nome do Remetente" ' Remetente do E-Mail. aspMail.FromAddress = "remetente@dominio.com.br" ' Nome e Destinatário do E-Mail. aspMail.AddRecipient "Nome do Destinatário", "destinatario@dominio.com.br" ' Assunto do E-Mail. aspMail.Subject = "Assunto do E-Mail" ' Tipo de Texto que será enviado. aspMail.ContentType = "text/html" ' Texto em HTML ou Normal. aspMail.BodyText = "<b>Esse …
Continue Lendo

Agência OFF, desenvolvimento de soluções web para as Agências Digitais

Tags:

Gerando PDF com ABCpdf

Script para gerar PDF com o ABCpdf <% set abc = server.createObject("ABCpdf6.DOC") ' Tamanho da Fonte abc.FontSize = "12" ' Estilo da Fonte abc.Font = abc.AddFont("Arial") ' Cor da Fonte abc.Color = "255 0 0" ' Coloque o Texto abc.AddText "Coloque seu Texto AQUI" abc.save server.mapPath("arquivo_gerado.pdf") set abc = nothing %>

Agência OFF, desenvolvimento de soluções web para as Agências Digitais

Tags:

Classe que mostrar dados da Conta do Twitter

Olá a todos, nesse artigo vamos aprender a criar um exemplo simples de como mostrar os dados de uma conta do twitter em sua página, resgatando informações de um XML: O link é Simples: http://twitter.com/users/show/ted_k.xml Usando um Objeto para ler o XML e um layout agradável, chegamos a essa conclusão: Criei uma classe chamada UserTwitter, dentro criei uma sub chamada LerXML() para fazer todo o processo: página default.class.asp class UserTwitter public sub LerXML() set objXMLDOM = server.createObject("MSXML2.DOMDocument.3.0") objXMLDOM.async = false …
Continue Lendo

Agência OFF, desenvolvimento de soluções web para as Agências Digitais

Tags:

Simulando herança com ASP

Titulo: Simulando herança com ASP Herança em ASP? E tem? A resposta é bem objetiva, NÃO. Mais você pode “simular” uma herança no ASP, como fazer isso? Primeiro você tem que entender o que é herança. Permitindo o compartilhamento de atributos entre classes, baseando-se em relacionamentos. Com herança você pode criar subclasses para herdar operações, métodos e outros atributos semelhantes que sejam usados varias vezes em seu código, resumido evita você ficar criando três, quatro, cinco vezes a mesma coisa. …
Continue Lendo

Agência OFF, desenvolvimento de soluções web para as Agências Digitais

Forçando Downloads com ASP

public function download(arquivo, pasta) dim objStream set objStream = server.createObject("ADODB.Stream") with (response) .buffer = true .addHeader "Content-Type","application/x-msdownload" .addHeader "Content-Disposition","attachment; filename="&arquivo .flush end with with (objStream) .open .type = 1 .loadFromFile server.mapPath(pasta) end with response.binaryWrite objStream.read set objStream = nothing response.flush end function

Agência OFF, desenvolvimento de soluções web para as Agências Digitais

Você sabe usar a função Replace() do ASP?

Uma função que parece ser bem simples, porém nem todos sabem utilizar por completa. Nesse artigo vou mostrar como usar corretamente e com eficiência essa “simples função”. Todos nós programadores ASP sabemos usar simplificada a função Replace(), segue um exemplo: <% dim frase frase = "Por uma internet sempre criativa e dinâmica" response.write(replace(frase, "sempre", "mais")) %> Uma maneira simples, usamos o texto que está em pauta seguido da palavra que queremos substituir e depois da palavra que queremos colocar no …
Continue Lendo

Agência OFF, desenvolvimento de soluções web para as Agências Digitais

Combo Dinâmico com AJAX

Default.asp <html> <head> <title>Teste Combo</title> <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" /> <script language="javascript" src="ajax.js"></script> </head> <body> Categoria: <select name="categoria" onchange="alimentarCombo(this.value);"> <option value="">[ Selecione ]</option> <% set rs = conn.execute("SELECT codigo, nome FROM categoria ORDER BY nome ASC") if (not rs.eof) then while (not rs.eof) response.write("<option value="""&rs("codigo")&""">"&rs("nome")&"</option>") rs.moveNext : wend end if set rs = nothing %> </select> <br> Sub-Categoria: <div id="resultado"></div> </body> </html> ajax.js function GetXMLHttp() { if (navigator.appName == "Microsoft Internet Explorer") { xmlHttp = new ActiveXObject("Microsoft.XMLHTTP"); } else { …
Continue Lendo

Agência OFF, desenvolvimento de soluções web para as Agências Digitais

Listar favoritos do YouTube

A Classe: <% class YouTube private objXML private objLista private usuario private url private id, i private nome_objeto private sub objetosXML() set objXML = server.createObject("MSXML2.DOMDocument.3.0") objXML.async = false objXML.setProperty "ServerHTTPRequest", true objXML.validateOnParse = false objXML.load(url) set objLista = objXML.getElementsByTagName("*") end sub public sub carregarURL() usuario = "nome_do_seu_usuario" url = "http://gdata.youtube.com/feeds/api/users/"&usuario&"/favorites" call objetosXML() for i = 16 to (objLista.length – 1) select case (objLista.item(i).nodeName) case "id" nome_objeto = objLista.item(i).text id = right(nome_objeto, len(nome_objeto) – instrRev(nome_objeto,"/")) tabela = tabela & "<table width=""494"" …
Continue Lendo

Agência OFF, desenvolvimento de soluções web para as Agências Digitais

Tags:
Página 1 de 512345