Tag Archives: ASP

Função para gerar SQL dinamicamente

Cansado de fazer tanto SQL no site? Tentou usar uma função pra isso? Criei uma função para você selecionar um campo de uma tabela, mais com um pouco de estudo e antenção você pode adaptar elea para receber várias informações. Nesse Script você coloca o nome da tabela, o campo que quer fazer o loop e uma mensagem de erro caso não tenha nada no banco, caso você tenha muitos SQL’s no seu site e tem dificuldades de administrar, uma …
Continue Lendo

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

Tags:

ASP.NET – Repeater Control : Tutorial 04

Aula baseada no site da w3schools Código pronto para puxar informações de um arquivo XML, simples e prático! Arquivo: RepeaterControl.xml <?xml version="1.0" encoding="ISO-8859-1"?> <catalogo> <cd> <titulo>Empire Burlesque</titulo> <artista>Bob Dylan</artista> <ano>1985</ano> </cd> <cd> <titulo>Hide your heart</titulo> <artista>Bonnie Tyler</artista> <ano>1988</ano> </cd> <cd> <titulo>Greatest Hits</titulo> <artista>Dolly Parton</artista> <ano>1982</ano> </cd> <cd> <titulo>Still got the blues</titulo> <artista>Gary Moore</artista> <ano>1990</ano> </cd> <cd> <titulo>Eros</titulo> <artista>Eros Ramazzotti</artista> <ano>1997</ano> </cd> </catalogo> Arquivo: RepeaterControl.aspx <%@ Page Language="VB" Debug="True" Explicit="True" %> <%@ Import NameSpace="System.Data" %> <script runat="server"> Sub Page_Load If Not …
Continue Lendo

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

Tags:

Hospedagens ASP

Segue uma lista de Hospedagens ASP, pagas e gratuítas :: GRÁTIS :: WEBSAMBA URL: http://www.websamba.com/ IDIOMA: Brasileiro PRODUTO: Free ————————————- DOMAINDLX URL: http://www.domaindlx.com/webhosting/webhosting_free.html IDIOMA: Inglês PRODUTO: Free :: PAGAS :: MAXIHOST URL: http://www.maxihost.com.br IDIOMA: Brasileiro PRODUTO: Pago ————————————- KINGHOST URL: http://www.kinghost.com.br IDIOMA: Brasileiro PRODUTO: Pago ————————————- CREATIVEHOST URL: http://www.creativehost.com.br IDIOMA: Brasileiro PRODUTO: Pago ————————————- HOMEHOST URL: http://www.homehost.com.br IDIOMA: Brasileiro PRODUTO: Pago ————————————- INSITE URL: http://www.insite.com.br IDIOMA: Brasileiro PRODUTO: Pago ————————————- HOSTLOCATION URL: http://www.hostlocation.com.br/ IDIOMA: Brasileiro PRODUTO: Pago ————————————- BHI URL: …
Continue Lendo

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

Tags:

Persits.Pdf : Gerando PDF a partir de uma URL

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

Tags:

CDO.Message : Enviado E-Mail

Enviado E-Mail com CDO.Message Arquivo: Default.html ><html> <head> <meta http-equiv="Content-Type" content="text/html; charset=utf-8" /> <title>Enviar E-Mail</title> </head> <body> <table width="279" border="0" cellspacing="2" cellpadding="0"> <form method="post" name="Formulario" action="Enviar.asp"> <tr> <td width="87">Nome:</td> <td width="186"><input type="text" name="Nome"></td> </tr> <tr> <td>E-Mail:</td> <td><input type="text" name="EMail"></td> </tr> <tr> <td valign="top">Mensagem:</td> <td valign="top"><textarea name="Mensagem" rows="4"></textarea></td> </tr> <tr> <td>&nbsp;</td> <td><input type="submit" name="button" value="Enviar Mensagem"></td> </tr> </form> </table> </body> </html> Arquivo: Enviar.asp <% Dim Sch : Sch = "www.schemas.microsoft.com/cdo/configuration/" Dim TedkConfig, TedkMessage, Erro, Sucesso, Msg_HTML Set TedkConfig = Server.CreateObject("CDO.Configuration") ' …
Continue Lendo

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

Função : Formatar datas para salvar no banco : MySQL / ACCESS / SQL Server / Oracle / Etc…

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

Tags:

Script: Colocar Número por Extenso

<% ‘ 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

Validação de CPF : Expressão Regular

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

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

Tags:
Página 3 de 41234