Categoria Atual: ASP
Código bem simples e útil para a galera que gosta de usar AJAX e não tem muita referência! Página para carregar o AJAX, funcionalidades: ajaxCarregar.js function GetXMLHttp() { if(navigator.appName == "Microsoft Internet Explorer") { xmlHttp = new ActiveXObject("Microsoft.XMLHTTP"); } else { xmlHttp = new XMLHttpRequest(); } return xmlHttp; } var Enviar = GetXMLHttp(); // Início – Cadastro function CadastrarDados() { var Nome = document.getElementById("Nome"); var EMail = document.getElementById("EMail"); var URL = "Cadastro.asp?Cadastrar=Ok&Nome="+Nome.value+"&EMail="+EMail.value+""; Enviar.open("GET", URL, true); Enviar.setRequestHeader("Content-Type", "application/x-www-form-urlencoded"); document.getElementById("Resposta").innerHTML = "Cadastrado …
Continue Lendo
Agência OFF, desenvolvimento de soluções web para as Agências Digitais
O mesmo trabalho que você tem com o VBScript no ASP, você vai ter com o JavaScript, mais requer um pouco de atenção. Segue o Código comentado para uma explicação mais adequada de ASP com JavaScript Um simples Código de visualizar o que tem na tabela “CADASTRO”, com o banco MySQL <%@ Language="JavaScript" %> <% var Conexao = Server.CreateObject("Adodb.Connection"); // Criando o objeto de Conexão Conexao.ConnectionString = "Driver=MySQL ODBC 3.51 Driver; DataBase=#########; Server=localhost; Uid=#########; PassWord=#########;"; Conexao.Open; // Abrindo a Conexão …
Continue Lendo
Agência OFF, desenvolvimento de soluções web para as Agências Digitais
Script simples de criação de arquivos .XML, todo comentado <% ArquivoXML = "criado.xml" 'adicionando um nome no arquivo Set FSO = CreateObject("Scripting.FileSystemObject") 'criando o objeto FSO Set Linhas = FSO.CreateTextFile(Server.MapPath(ArquivoXML), True) 'salvando o arquivo no servidor através do método "CreateTextFile" 'gerando linas Linhas.WriteLine("<?xml version=""1.0""?>") Linhas.WriteLine("<container>") Linhas.WriteLine("<tag_01>TEXTO DA TAG 01</tag_01>" ) Linhas.WriteLine("<tag_02>TEXTO DA TAG 02</tag_02>" ) Linhas.WriteLine("<tag_03>TEXTO DA TAG 03</tag_03>" ) Linhas.WriteLine("</container>") 'destruíndo os objetos Linhas.Close Set Linhas = Nothing %> Pode ser adicionado um LOOP ou simplismente adicionar com o …
Continue Lendo
Agência OFF, desenvolvimento de soluções web para as Agências Digitais
Sempre vejo esse tipo de pergunta nos fóruns, para que serve o tal do “.nodeName”???? Tenho aqui uma bela funcionalidade para ele, e bem útil. Nesse script abaixo, verifico se existe a tag “NOME_TAG” dentro do arquivo teste.xml com auxilio do .nodeName, vejam o script e reparem no simples, que é bonito!! <% Set obj_XML = Server.CreateObject("Microsoft.XMLDOM") Set objLista = Server.CreateObject("Microsoft.XMLDOM") obj_XML.async = False obj_XML.Load (Server.MapPath("teste.xml")) Set objLista = obj_XML.getElementsByTagName("*") For i = 0 to (objLista.length-1) If objLista.item(i).nodeName = "NOME_TAG" …
Continue Lendo
Agência OFF, desenvolvimento de soluções web para as Agências Digitais
De tanto a os usuários lá do iMasters perguntarem sobre como pegar o nome da imagem de um campo “input file” decidir criar esse “micro” script para facilitar e deixar aqui no blog para compartilhar, é simples, nada que umas condições não possam fazer, então vamos lá. Vamos supor que a variável que criei chamada “Caminho_Foto” está recebendo o valor de um Request.Form() e que esse .Form está chamando o resultado de um “input file” lá do formulário de HTML; …
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