Esta função simples serve para retirar os acentos do campo, mais ele não retira na hora que você está digitando e sim quando você tira o foco do campo, sendo assim a função é acionada. aqui abaixo segue o script desenvolvido em javascript retirado da internet e adaptado. <script language="javascript"> function retirarAcento(objResp) { var varString = new String(objResp.value); var stringAcentos = new String('àâêôûãõáéíóúçüÀÂÊÔÛÃÕÁÉÍÓÚÇÜ'); var stringSemAcento = new String('aaeouaoaeioucuAAEOUAOAEIOUCU'); var i = new Number(); var j = new Number(); var cString …
Continue Lendo
Agência OFF, desenvolvimento de soluções web para as Agências Digitais
No caso do bom e velho ASP poderíamos colocar essa string de conexão dentro do global.asa que era mais ou menos assim: <SCRIPT LANGUAGE="VBScript" RUNAT="Server"> Sub Application_onStart Application("Conn_BANCO") = "database=NOME_DA_BASE;server=000.000.000.000;user=USUARIO;pwd=SENHA" End sub Sub Session_onStart End Sub Sub Session_onEnd End sub </SCRIPT> chamando assim na página: Set Conexao = CreateObject("ADODB.Connection") Conexao.ConnectionString = Application("Conn_BANCO") Conexao.Open() agora em ASP.NET não mudou nada só o arquivo: usamos o web.config (arquivo de configuração do ASP.NET), assim: <?xml version="1.0"?> <configuration> <appSettings/> <connectionStrings> <add name="Conn_BANCO" connectionString="server=000.000.000.000; database=NOME_DA_BASE;user=USUARIO;pwd=SENHA" …
Continue Lendo
Agência OFF, desenvolvimento de soluções web para as Agências Digitais
Gerar números randômicos é bem fácil. Fica mais fácil criar uma função para receber os valores, assim tornando a função “livre” para ser usada em todo o projeto! <% Function GerarRandomize(Valores) Dim Numeros : Numeros = "0123456789" Randomize For I = 1 To Valores Dim Num : Num = Mid(Numeros, Int(35 * Rnd) + 1, 1) Dim Chave : Chave = Chave + Num Next GerarRandomize = Chave End Function Response.Write(GerarRandomize(10)) 'o número 10 significa quandos números serão gerados %> …
Continue Lendo
Agência OFF, desenvolvimento de soluções web para as Agências Digitais
Variáveis Var_NUMBER_01, Var_NUMBER_02, Var_NUMBER_03, Var_NUMBER_04 iram receber os valores, tratamento com a função Split O Laço FOR indetifica dentro da variável Valor_DADOS o menor número em comparação ao valor da variável Menor_ para achar o menor valor Script simples para ser vem adaptado <% Var_NUMBER_01 = "433" Var_NUMBER_02 = "11245" Var_NUMBER_03 = "712" Var_NUMBER_04 = "20455" Valor_DADOS = ""&Var_NUMBER_01&", "&Var_NUMBER_02&", "&Var_NUMBER_03&", "&Var_NUMBER_04&"" Valor_DADOS = Split(Valor_DADOS, ", ") Menor_ = 1000000 For i = LBound(Valor_DADOS) To UBound(Valor_DADOS) If Int(Valor_DADOS(i)) < Int(Menor_) …
Continue Lendo
Agência OFF, desenvolvimento de soluções web para as Agências Digitais
O código é bem simples:: Response.ContentType = "application/vnd.ms-excel" Response.AddHeader "Content-Disposition", "attachment;filename=Planilha.xls" O Response.ContentType = “application/vnd.ms-excel” avisa que vem uma aplicação de geração de planilhas no formato ms-excel (Microsoft Excel). Em Response.AddHeader “Content-Disposition”, “attachment;filename=Planilha.xls” o Content-Disposition vai dar um resultado para o desejado, no caso um arquivo xls. ficando completo assim: <%@ Language="VBScript" %> <html> <head> <meta http-equiv="Content-Type" content="text/html; charset=utf-8"> <title>Gerando Planilhas em EXCEL</title> </head> <body> <% Response.ContentType = "application/vnd.ms-excel" Response.AddHeader "Content-Disposition", "attachment;filename=PlanilhaVisitantesBuscaAvancada.xls" %> <table width="200" border="1" cellspacing="0" cellpadding="0"> <tr> <td>Teste …
Continue Lendo
Agência OFF, desenvolvimento de soluções web para as Agências Digitais
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
Fazer um form simples onde o campo mude de cor quando em foco. Um JavaScript simples com base em DHTML. Segue o JavaScript: <script language="javascript"> function mudarCor(ref,corEscolhida){ ref.style.backgroundColor = corEscolhida; } </script> Aqui segue um código em HTML e DHTML normal chamando o foco do botão e a cor escolhida! <input type="text" name="campoFormulario" onFocus="mudarCor(this,'#FFFFE1')" onBlur="mudarCor(this,'#FFFFFF')"> bem simples: Acesse também: Webly
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
Aula baseada no site da w3schools Código pronto para validar campos do tipo “Integer” <%@ Page Language="VB" Debug="True" Explicit="True" %> <html> <head> <title>Validando Campos</title> </head> <body> <form runat="server"> Números de 1 a 100: <asp :TextBox Id="CmpBox" runat="server" /> <asp :RangeValidator ControlToValidate="CmpBox" MinimumValue="1" MaximumValue="100" Type="Integer" Text="Os números válidos são de 1 a 100" runat="server" /> <br /> <asp :Button Text="Submit" runat="server" /> </form> </body> </html> O RangeValidator é a tag do ASP.NET para fazer a função aontecer!!!! Com o parâmentro MinimumValue …
Continue Lendo
Agência OFF, desenvolvimento de soluções web para as Agências Digitais