Categoria Atual: ASP
Geralmente em sistemas de médio e grande porte temos que fazer a tradução dele para outras línguas, por exemplo de português para inglês Creie uma função bem simples utilizando a função nativa do VBScript chamada “EVAL” Esse script pega os textos que estão dentro da função chamada “Traduz” e troca pela variável de mesmo nome. Nesse script temos o include do arquivo com os textos convertidos para a língua inglesa. <!–#Include File="en.asp"–> <% Function Traduz(Texto) Traduz = Eval(Texto) End Function …
Continue Lendo
Agência OFF, desenvolvimento de soluções web para as Agências Digitais
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
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