Segue um código bem simples de envio de e-mail com PHP, junto com a função mail(); Já está comentado, é usar e aprimorar!! Arquivo: enviar.html <html> <head> <title>Formulario de E-mail</title> </head> <body> <table width="401" border="0" align="center" cellpadding="0" cellspacing="1"> <form action="envia_email.php" method="post"> <tr> <td width="20%">Seu Email:</td> <td><input type="text" name="email" size="50" maxlength="255"></td> </tr> <tr> <td width="20%">Assunto:</td> <td><input type="text" name="assunto" size="50" maxlength="255"></td> </tr> <tr> <td colspan="2">Mensagem:<br><textarea cols="60" rows="5" name="mensagem"></textarea> </td> </tr> <tr> <td height="40" colspan=2 align="center"><input type="submit" value="Enviar"></td> </tr> </form> </table> </body> </html> …
Continue Lendo
Agência OFF, desenvolvimento de soluções web para as Agências Digitais
Todo o código de qualquer linguagem .NET é convertido para a forma de bytecodes chamada IL (ou MSIL ou ainda CIL). IL significa Intermediate Language – linguagem intermediária. Note que existe o IL e o IL Assembly, sendo coisas distintas. O primeiro é formado por códigos binários, enquanto que o segundo é sob a forma de texto puro (como qualquer outra linguagem). Pode-se programar diretamente em IL Assembly e depois compilar o código através do compilador ilasm.exe. O contrário também …
Continue Lendo
Agência OFF, desenvolvimento de soluções web para as Agências Digitais
Esse script pega a página do terra e converte, bloqueia para não modificar e não copiar e ainda gera paginação! <!–METADATA TYPE="TypeLib" UUID="{414FEE4B-2879-4090-957E-423567FFCFC6}"–> <% ' Início – Mostrar Gerador : Gerar PDF ' Dim Pdf, Doc, Page Set Pdf = Server.CreateObject("Persits.Pdf") Set Doc = Pdf.CreateDocument Doc.ImportFromUrl "http://www.terra.com.br" Doc.Encrypt "7658tedk4784584754747584484584854484545", "", 40, PdfFull And (Not PDFModify) And (Not PDFCopy) For Each Page In Doc.Pages Page.Canvas.DrawText "Pág."&Page.Index&"/"&Doc.Pages.Count&"", "x=15, y=20", Doc.Fonts("Arial") Next Doc.SaveHttp("attachment; filename=Gerado_PDF.pdf") ' Final – Mostrar Gerador : Gerar PDF …
Continue Lendo
Agência OFF, desenvolvimento de soluções web para as Agências Digitais
Escolha a melhor função para seu banco de dados: Formato: aaaa-mm-dd <% Function ConvertDataBanco(ConDataBanco) ConDataBanco = Year(ConDataBanco) &"-"& Right("0"&Month(ConDataBanco),2) &"-"& Right("0"&Day(ConDataBanco),2) ConvertDataBanco = ConDataBanco End Function Response.Write(ConvertDataBanco(Date())) %> Formato: dd-mm-aaaa <% Function ConvertDataBanco(ConDataBanco) ConDataBanco = Right("0"&Day(ConDataBanco),2) &"-"& Right("0"&Month(ConDataBanco),2) &"-"& Year(ConDataBanco) ConvertDataBanco = ConDataBanco End Function Response.Write(ConvertDataBanco(Date())) %> Formato: mm-dd-aaaa <% Function ConvertDataBanco(ConDataBanco) ConDataBanco = Right("0"&Month(ConDataBanco),2) &"-"& Right("0"&Day(ConDataBanco),2) &"-"& Year(ConDataBanco) ConvertDataBanco = ConDataBanco End Function Response.Write(ConvertDataBanco(Date())) %> Formato: mm/dd/aaaa <% Function ConvertDataBanco(ConDataBanco) ConDataBanco = Right("0"&Month(ConDataBanco),2) &"/"& Right("0"&Day(ConDataBanco),2) &"/"& Year(ConDataBanco) ConvertDataBanco = …
Continue Lendo
Agência OFF, desenvolvimento de soluções web para as Agências Digitais
<% ‘ Início – Dimensionar as Variáveis ‘ Dim Centavos, QtdCentenas, TotalCentenas Dim AXValor, BXValor, CXNumero, XValor, XValorSoma Dim NomeNumeroPorExtenso(900), NomeMoeda(6), ValorCentena(6) NomeMoeda(1) = "rea" NomeMoeda(2) = "mil" NomeMoeda(3) = "milh" NomeMoeda(4) = "bilh" NomeMoeda(5) = "trilh" NomeNumeroPorExtenso(1) = "um" NomeNumeroPorExtenso(2) = "dois" NomeNumeroPorExtenso(3) = "três" NomeNumeroPorExtenso(4) = "quatro" NomeNumeroPorExtenso(5) = "cinco" NomeNumeroPorExtenso(6) = "seis" NomeNumeroPorExtenso(7) = "sete" NomeNumeroPorExtenso(8) = "oito" NomeNumeroPorExtenso(9) = "nove" NomeNumeroPorExtenso(10) = "dez" NomeNumeroPorExtenso(11) = "onze" NomeNumeroPorExtenso(12) = "doze" NomeNumeroPorExtenso(13) = "treze" NomeNumeroPorExtenso(14) = …
Continue Lendo
Agência OFF, desenvolvimento de soluções web para as Agências Digitais
Ótimo editor de textos e códigos-fontes que suporta várias linguagens como C, C++, Java, C#, XML, HTML, PHP, Javascript, ASCII art, doxygen, ASP, VB/VBS, SQL, Objective-C, CSS, Pascal, Perl, Python, Lua, TeX, TCL, Assembler, Ruby, Lisp, Scheme, Properties, Diff, Smalltalk, Postscript, VHDL, Ada, Caml, AutoIt, KiXtart, Matlab, Verilog, Haskell e InnoSetup. Você também pode modificar o estilo das linguagens como cor de comentários, variáveis, etc. Caso a linguagem que você desenvolve nãoe stá adicionada no Notepad++, nem precisa se preoculpar, …
Continue Lendo
Agência OFF, desenvolvimento de soluções web para as Agências Digitais
Formulario.html <form id="form1" name="form1" method="post" action="validacao.asp"> CPF: <input name="chkCPF" type="text" /> <input name="chkCPF" value="chkCPF" type="submit" /> </form> validacao.asp <% Dim Numero(11), Soma, Resultado01, Resultado02, Ch, XNum Dim RecebeCPF : RecebeCPF = Request.Form("chkCPF") Dim SNum : SNum = "" For XNum = 1 To Len(RecebeCPF) Ch = Mid(RecebeCPF,XNum,1) If Asc(Ch) >= 48 And Asc(Ch) <= 57 Then : SNum = SNum & Ch : End If Next RecebeCPF = SNum If Len(RecebeCPF) <> 11 Then Response.Write("<h1>É obrigatório o CPF com 11 …
Continue Lendo
Agência OFF, desenvolvimento de soluções web para as Agências Digitais
Instalando o IIS não é tão dificil, você precisa dele fundamentalmente para rodar suas aplicações ASP ou ASP.NET (que não vem ao caso), lembrando que o IIS não vem configurando inicialmente… Algumas imagens foram baixadas da internet para facilitar o entendimento, então vamos lá!! Pegue o CD da sua versão do Windows XP, ou SP1 ou SP2, mais tem que ser a versão que está instalada no seu PC… Quando colocar o CD do Windows, aparecerá a tela inicial de …
Continue Lendo
Agência OFF, desenvolvimento de soluções web para as Agências Digitais