Tag Archives: webly
Simples script usando JavaScript, para alimentar um campo “text” através de um campo “select”. Criada uma função alimentarCampo que recebe o valor dos campos do formulário através do metodo “getElementById” com a interação .value <html> <head> <script type="text/javascript"> function alimentarCampo() { var minhaLista = document.getElementById("minhaLista"); document.getElementById("campoReceber").value = minhaLista.options[minhaLista.selectedIndex].value; } </script> </head> <body> <form name="Formulario"> Selecione seu Browser: <select id="minhaLista" name="campo_selecione" onchange="alimentarCampo();"> <option value="001 Campo do Internet Explorer a Evolução">Internet Explorer</option> <option value="002 Campo do Firefox a Evolução">Firefox</option> <option value="003 Campo …
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
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
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
Seguei dois scripts para enviar e-mail com o Perl… são simples e bem funcionais: Primeiro Script: sub enviarEMail { my ($to, $from, $subject, $message) = @_; my $sendmail = '/usr/lib/sendmail'; open(MAIL, "|$sendmail -oi -t"); print MAIL "De: $from\n"; print MAIL "Para: $to\n"; print MAIL "Assunto: $subject\n\n"; print MAIL "$message\n"; close(MAIL); } Segundo Script: use chilkat; $mailman = new chilkat::CkMailMan(); $success = $mailman->UnlockComponent("30 dias, Trial"); if ($success != 1) { print "Componente com Falha" . "\n"; exit; } $mailman->put_SmtpHost("smtp.dominio.com.br"); $mailman->put_SmtpUsername("Meu_Usuario"); $mailman->put_SmtpPassword("Minha_Senha"); …
Continue Lendo
Agência OFF, desenvolvimento de soluções web para as Agências Digitais