Tag Archives: Function
Default.asp <html> <head> <title>Teste Combo</title> <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" /> <script language="javascript" src="ajax.js"></script> </head> <body> Categoria: <select name="categoria" onchange="alimentarCombo(this.value);"> <option value="">[ Selecione ]</option> <% set rs = conn.execute("SELECT codigo, nome FROM categoria ORDER BY nome ASC") if (not rs.eof) then while (not rs.eof) response.write("<option value="""&rs("codigo")&""">"&rs("nome")&"</option>") rs.moveNext : wend end if set rs = nothing %> </select> <br> Sub-Categoria: <div id="resultado"></div> </body> </html> ajax.js function GetXMLHttp() { if (navigator.appName == "Microsoft Internet Explorer") { xmlHttp = new ActiveXObject("Microsoft.XMLHTTP"); } else { …
Continue Lendo
Agência OFF, desenvolvimento de soluções web para as Agências Digitais
Código simples para você ter aqueles “três pontinhos” em sua notícia, feeds etc… Usando VBScript <%@ Language="VBScript" %> <% Public Function Pontos(VarTexto, Max) ' Recebemos os valores If Int(Len(VarTexto)) > Max Then Response.Write(Left(VarTexto, Max)&"…") ' Usamos a função "substring" para fazer os cortes Else Response.Write(VarTexto) End If End Function Texto = "Lorem Ipsum is simply dummy text of the printing and typesetting industry. Lorem Ipsum has been the industry's standard dummy text ever since the whenwhen, when an unknown …
Continue Lendo
Agência OFF, desenvolvimento de soluções web para as Agências Digitais
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
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
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