Tag Archives: ASP
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
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
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
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
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