Ted k'

Cadastrar, Listar, Editar e Excluir dados de um XML com ASP - Parte 03

Ted k' — Tue, 23 Dec 2008 10:42:35 +0000

Criem um arquivo chamado Editar.asp e nele serão lidas todas as tags que contém no arquivoBanco.xml , mas com a querystring passada pelo arquivo Ler.asp que criamos no artigo anterior. Vamos só alterar uma única tag, um único nó do XML. Lembrando que usei uma tag “nome”: mas vocês poderiam criar uma tag “id” e colocar números seqüenciais ou randômicos, a escolha fica a critério.

Vamos primeiro listar todos os registros, criando os objetos que já utilizamos nos primeiros artigos, nada a mais.

<%@ Language="VBScript" %>
<%
Dim Banco : Banco = Server.MapPath("Banco.xml")
Set XMLDOC = Server.CreateObject("Microsoft.XMLDOM")
Set objLER = Server.CreateObject("Microsoft.XMLDOM")
XMLDOC.Load(Banco)
Set objLER = XMLDOC.getElementsByTagName("*")
%>

Logo abaixo desse script vamos criar o formulário com um “for” fazendo a varredura nas tags para pegar só o valor de tag citado na querystring passada:



CADASTRAR - LISTAR



" method="post">
            ">
            <%
            For i = 0 To (objLER.length - 1)
            If objLER.Item(i).Text = ""&Request.QueryString("nome")&"" Then
            %>
            Nome: 

            E-Mail: 

            Telefone: 

            <%
            End If
            Next
            %>

Reparem a linha onde temos If objLER.Item(i).Text = “”&Request.QueryString(”nome”)&”" Then, é ela que está “selecionando” a tag que quero mostrar.

E por fim a edição:

<%
If Request.Form("btEdt") = "Editar" Then
            Dim Nome, EMail, Telefone, CampoUpdate, i
            Nome             = Request.Form("Nome")
            EMail              = Request.Form("EMail")
            Telefone          = Request.Form("Telefone")

            CampoUpdate = Request.Form("CampoUpdate")
            Set objLER_upDate = XMLDOC.getElementsByTagName("*")
                        For i = 0 To (objLER.length - 1)
                                   If objLER.Item(i).Text = ""&CampoUpdate&"" Then
                                               objLER.Item(i).Text    = Nome
                                               objLER.Item(i+1).Text            = EMail
                                               objLER.Item(i+2).Text            = Telefone
                                   End If
                        Next
                        XMLDOC.Save(Banco)
                        Response.Write("")
            Set objLER_upDate = Nothing
End If
Set objLER = Nothing
Set XMLDOC = Nothing
%>

Coloquei a querystring passada em um campo hidden e joguei ele dentro de um “for”, como fiz no formulário, em seguida troquei os valores pelas variáveis em seqüência, Nome, EMail e Telefone, salvei com o método XMLDOC.Save e passei um alert em JavaScript e pronto!!

Façam os testes juntando os três artigos.

Esse tipo de utilização do XML serve para coisas pequenas, por exemplo, um combo de país, cidades de um determinado estado, cores, dentre outros.

Até os próximos artigos!

Cadastrar, Listar, Editar e Excluir dados de um XML com ASP - Parte 02

Ted k' — Wed, 10 Dec 2008 14:47:32 +0000

Continuação do Artigo: Parte 01
Listando e Excluindo dados do XML

Listar todo o conteúdo de um XML é realmente a parte mais fácil, complicado é você listar e formatar o XML dentro de um arquivo com indicadores XSL. No artigo anterior (Parte 01), temos o arquivo Banco.xml com as tags nome, email e telefone. Nesse artigo vamos aprender a listar e excluir todos os elementos de dentro do nó usuario.

De primeira vamos organizar o arquivo Visualizar.xsl, olha só como ele tem que:

Visualizar.xsl



  
    
      Visualizando Dados
      
          
        
          Nome
          E-mail
          Telefone
          Ações
        
        
            
            
            
            Editar.asp?nome=Editar/Listar.asp?nome=Apagar

Com o stylesheet (que não vem ao caso explicar no momento) vamos fazendo a estrutura de visualização de todos os elementos da tag usuario através de um for-each assim:

e fechando com

Pegamos o valor dos elementos com essa estrutura aqui: .

Usamos o atributo para gerar links, no nosso caso para excluir e editar (que não será mostrado nesse artigo).

Em uma página chamada Listar.asp criamos os objetos para chamar o XML e o XSL e integra-los com o transformNode:

Set XSLDOC = Server.CreateObject("Microsoft.XMLDOM")
Set XMLDOC = Server.CreateObject("Microsoft.XMLDOM")

XMLDOC.Load(Server.MapPath("Banco.xml"))
XSLDOC.Load(Server.MapPath("Visualizar.xsl"))
Response.Write(XMLDOC.transformNode(XSLDOC))

Para deletar é simples, criamos um XMLDOC.documentElement para escolher qual nó vamos deletar e chamamos por querystring como tem no do Visualizar.xsl, que no caso usamos o select=”nome”, deletando com o removeChild, segue abaixo o código completo de Listar.asp

Listar.asp

<%@ Language="VBScript" %>


CADASTRAR - LISTAR



<%
Set XSLDOC = Server.CreateObject("Microsoft.XMLDOM") ' Criando Objeto
Set XMLDOC = Server.CreateObject("Microsoft.XMLDOM") ' Criando Objeto

' Listando Dados
XMLDOC.Load(Server.MapPath("Banco.xml"))
XSLDOC.Load(Server.MapPath("Visualizar.xsl"))
Response.Write(XMLDOC.transformNode(XSLDOC))

' Deletando Dados
If CStr(Request.QueryString("Nome")) <> "" Then
	Banco = Server.MapPath("Banco.xml") ' Chamando o Arquivo XML para sofrer alteração
	XMLDOC.Load(Banco)

	Set RaizXML = XMLDOC.documentElement
	Set AlterarReg = RaizXML.selectSingleNode("usuario[nome='"&Request.QueryString("nome")&"']")
	RaizXML.removeChild(AlterarReg) ' Linha de remoção de Objetos

	XMLDOC.Save(Banco)
	Response.Write("")
End If

Set XSLDOC = Nothing
Set XMLDOC = Nothing
%>

E pronto, mais um artigo finalizado, até o próximo!

Cadastrar, Listar, Editar e Excluir dados de um XML com ASP - Parte 01

Ted k' — Tue, 02 Dec 2008 11:59:30 +0000

Esse é o primeiro de três artigos que falam sobre como você usar o XML para servir de “Banco de Dados”. Usarei o método mais simples para fazer esse tipo de conexão.

Vamos começar por como Cadastrar dados em um XML.

Primeiro temos que ter o XML pronto, como um Banco de Dados com suas “Colunas” já estruturadas. Adicionei três tags a ele e uma principal, as tags são nome, email e telefone, junto com a tag usuario, que fecha o registro e junto com a tag cadastro que chega o “pacote”. Então vamos lá:

Banco.xml



  
    teste nome
    teste email
    teste telefone

Deixei a estrutura fixa, já com as tags nome, email e telefone, já preenchidas para só seguirem a base, saber do que cada elemento é composto.

XML criado então é só criar uma página chamada Cadastro.asp, dentro dela criar um formulário com os campos de Nome, E-Mail e Telefone e um botão para salvar, tudo em tags HTML mesmo.

Na mesma página fiz uma otimização, coloquei o código de cadastramento em ASP dentro da mesma página e ativei o script através do click do botão “Enviar”, finalizando fica assim:

Cadastro.asp

<%@ Language="VBScript" %>


CADASTRAR - LISTAR




    Nome: 

    E-Mail: 

    Telefone: 

    



<%
' Cadastrando dentro do arquivo XML
If Request.Form("btCad") = "Cadastrar" Then
	Dim Nome, EMail, Telefone, Banco
	Nome	 = Request.Form("Nome")
	EMail	 = Request.Form("EMail")
	Telefone = Request.Form("Telefone")
	Banco	 = Server.MapPath("Banco.xml")

	Set DocMT = Server.CreateObject("Microsoft.XMLDOM") ' Criando Objeto
	DocMT.Load(Banco)
	Set RaizXML = DocMT.documentElement
	Set CriarReg = DocMT.createElement("usuario")
	RaizXML.appendChild(CriarReg)
		' Funcção para criar objetos dentro do XML
		Function AlimentarXML(NomeElemento, NomeVariavel)
			Set Campo = DocMT.createElement(""&NomeElemento&"")
			Campo.Text = NomeVariavel
			CriarReg.appendChild(Campo) ' Linha de criação de Objetos
		End Function

	Call AlimentarXML("nome", Nome)
	Call AlimentarXML("email", EMail)
	Call AlimentarXML("telefone", Telefone)

	DocMT.Save(Banco)
	Response.Write("")
	Set DocMT = Nothing
End If
%>

Para ficar mais fácil, deixei o código todo comentado, mas algumas linhas serão esclarecidas:

Para inserir dados no XML, usei o Microsoft.XMLDOM para conexão. Em cada inserção adiciono uma tag usuario com essa linha abaixo:

Set CriarReg = DocMT.createElement("usuario")

Como são três tags para ser alimentadas usei uma função de minha autoria para fazer esse trabalho, a AlimentarXML e adiciono com a linha Call AlimentarXML(”nome”, Nome) e salvo tudo através do DocMT.Save(Banco) e pronto, é só testar e ver se o XML está sendo manipulado corretamente:

OBS: Quando testei no meu localhost, o arquivo Cadastro.asp deu erro de acesso. Teste ele em um servidor web e funcionou, caso isso aconteçam com vocês também.
Até o próximo artigo!

Usando jQuery para cadastrar dados

Ted k' — Wed, 19 Nov 2008 19:12:27 +0000

A linguagem em si para fazer o cadastramento no banco não é o foco no momento, usei ASP com JScript para isso e usei o jQuery com efeito .fadeIn(”slow”); para isso então vamos lá:

Criei um arquivo chamado funcao_jquery.js para colocar a função de efeito do jQuery:

O Script completo e comentado para ter uma idéia de como funciona:
funcao_jquery.js

$(document).ready(function(){
	$('#btn_enviar').click(function(){
		// Pega valor dos campos Nome e E-Mail
		var nome_post = $('#Nome').val();
		var email_post = $('#EMail').val();
		// Envia para a função criada em ASP
		$.post("Cadastro_JQuery.asp?Cadastrar=Ok",{nome: nome_post, email: email_post},function(){
			// Lista dentro de uma UL>LI os dados postados
			$("ul li:last").after("" + nome_post + " : " + email_post + "").next().fadeIn("slow");
		});
		 // Apaga os Dados do Campo Nome e E-Mail
		$('#Nome').val("");
		$('#EMail').val("");

	return false;
	});
});

Na tela inicial temos esse modelo aqui com campo de Nome e E-Mail só para exemplo:

Quando você cadastra ele gera uma LI dinamicamente sem refresh e com efeito fade:

Segue o código completo:

<%@ Language="JavaScript" %>
<%
// Conexao com o Banco de Dados
var Conexao = Server.CreateObject("Adodb.Connection");
Conexao.ConnectionString = "Driver=MySQL ODBC 3.51 Driver; DataBase=paineldevendas13; Server=localhost; Uid=root; PassWord=root;";
Conexao.Open;
%>



JQuery Cadastrando com ASP




JQuery Cadastrando com ASP

<%
var rs = Conexao.Execute("Select * From Teste"); // SQL para listar os dados
if (rs == null) {
	Response.Write("NADA ENCONTRADO");
}
else {
	while (!rs.EOF) {
		Response.Write(""+rs("Nome")+" : "+rs("EMail")+"") // Lista todos os cadastrados do banco
	rs.MoveNext();
	}
}
%>



INSIRA DADOS NO BANCO



	Nome: 
	

	E-Mail: 




<%
// Função para cadastrar no banco
if (Request.QueryString("Cadastrar") == "Ok") {
	Conexao.Execute("Insert Into Teste (Nome, EMail) Values ('"+Request.Form("Nome")+"', '"+Request.Form("EMail")+"')");
	Response.Write("");
}
%>

Baixar : jquery-1.2.6.js

Título de Notícia com efeito “Fade” em jQuery

Ted k' — Tue, 18 Nov 2008 13:17:19 +0000

Script simples em JavaScript usando jQuery para fazer efeito de fade em títulos de notícias, veja o exemplo:

Campanha incentiva registro civil
Carga de petróleo está avaliada em US$ 100 milhões.
Alongamento previne lesões na ‘corrida’
Obama disputa com Lula preferência no Rio

Para esse efeito usei um arquivo chamado “mask_news.js”, nele contem todas as informações necessárias para o desenvolvimento do script.

Abrindo esse arquivo você perceberá uma linha para dar tempo ao efeito, constando em segundos:

delay = delay || 3000;

Coloquei 3 segundos, mais fica a seu critério aumentar ou diminuir:

Veja o código completo:




Ajax Título News










  Campanha incentiva registro civil
  Carga de petróleo está avaliada em US$ 100 milhões.
  Alongamento previne lesões na 'corrida'
  Obama disputa com Lula preferência no Rio

Segue abaixo os arquivos para download:
Baixar: jquery-1.2.6.js
Baixar: mask_news.js

Comparando Datas com JavaScript

Ted k' — Fri, 14 Nov 2008 14:21:47 +0000




    campo01: 

    campo02:

Acesse também a Webly

ASPUpload : Usando o Persits.Upload - (Parte 02), Pegando o nome do Arquivo

Ted k' — Thu, 06 Nov 2008 12:41:54 +0000

Galera é uma coisa simples, mais que muita gente ainda fica perdido.

Antigamente eu ficava também, usava upload sem componentes, mais ai achei uma solução para o o Persits.Upload, apesar de não usar muito ele.

Esse script é muito simples, manda para a internet e pega o nome da imagem. Essa era uma grande complicação para a galera, cada um tinha seu jeito de fazer, creio que não achei o mais simples, mais achei um menos complicado!!


Arquivo: 



<%
If CStr(Request.QueryString("Enviar")) <> "" Then
	Dim Upload, PegaNomeCampo, NomeCampo

	Set Upload = Server.CreateObject("Persits.Upload") ' Criando o Objeto
	Upload.Save Server.MapPath("fotos") ' Salvando na pasta
	PegaNomeCampo = Upload.Files("Campo").FileName '  Pegando o conteúdo do campo todo

	NomeCampo = Right(PegaNomeCampo, Len(PegaNomeCampo) - InstrRev(PegaNomeCampo,"\")) ' Pegar os últimos valores do campo
	Response.Write("Upload com Sucesso! O Nome da Foto: "&NomeCampo) ' Exibindo na tela
End If
%>

Função “três pontinhos”

Ted k' — Tue, 04 Nov 2008 21:10:51 +0000

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 printer took a galley of type and scrambled it to make a type specimen book."

Call Pontos(Texto, 150) ' Chamando a função e mostrando o resultado
%>

Agora usando JScript com ASP

<%@ Language="JScript" %>
<%
function pontos(varTexto, Max) { // Recebemos os valores
	if (varTexto.length > Max) {
		Response.Write(varTexto.substring(0, Max)+"..."); // Usamos a função "substring" para fazer os cortes
	}
	else {
		Response.Write(varTexto);
	}
}

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 printer took a galley of type and scrambled it to make a type specimen book.";

pontos(texto, 150); // Chamando a função e mostrando o resultado
%>

Nome	E-mail	Telefone	Ações
			Editar.asp?nome=Editar/Listar.asp?nome=Apagar