MXStudio » gustavobittencourt

Cadastro de Notícias utilizando função que aceita aspas simples

gustavobittencourt — Fri, 19 Jan 2007 00:00:00 +0000

Cadastro de Notícias utilizando função que aceita aspas simples

Conteúdo

Ola pessoal, antes de começar queria pedir desculpas pela demora em enviar novos tutoriais, pois mudei de cidade, e estou me estabilizando agora. Bom, recebi algumas duvidas no e-mail sobre pessoas que estão comecando a programar em ASP, e nao estão conseguindo inserir dados no BANCO ACCESS quando ocorre palavras que contenha o caracteres especiais como por exemplo ( ‘ ) aspas simples.

Criaremos um sistema simples de cadastro de noticia, onde usaremos uma função para aceitar tal caracter.

Primeiro, vamos criar uma Tabela chamada Noticia no access:

Tabela: Noticia

IdNoticia (Numeração Automática)
Data (DataTime)
Titulo (Texto)
Descricao (Memorando)

Vamos criar um CadNoticia.asp que conterá o formulario com base nos campos do Banco de dados.

Agora vamos criar o Envia.asp, onde recebera a seguinte função que aceitará caracter do tipo ( ‘ ):

‘Funçao TrocaAspas que permite a insersão de carater especial tipo ( ‘ )

Function TrocaAspas(expressao)
TrocaAspas = Replace(expressao,”‘”,”””)
End function

Data = Request.Form(“Data”)
Titulo = Request.Form(“Titulo”)
Descricao = Request.Form(“Descricao”)

sqltxt = ” insert into Noticia (Data, Titulo, Descricao) values”
sqltxt = sqltxt & “(‘” & TrocaAspas(Data) & “‘, ‘” & TrocaAspas(Titulo) & “‘, ‘” & TrocaAspas(Descricao) & “‘)”
conn.execute = sqltxt

‘Fecha Conexao
conn.Close
Set conn = Nothing

response.redirect(“Sua noticia foi cadastrada com sucesso!”)
%>

Bom, espero que esse tutorial ajude quem estava tendo esse problema.
Muito obrigado a todos, e em especial ao Mxstudio pela força.

Autor: Gustavo Bittencourt- Colunista Dreamweaver do Portal MXSTUDIO

Qualquer dúvida acesse o nosso fórum.

Variável – Variable

gustavobittencourt — Sat, 13 Nov 2004 00:00:00 +0000

Variável – Variable

Meu amigos,
no decorrer da semana irei passar exemplos importantes de Variável, Instância, objetos e propriedades do Flash.
Hoje iremos dar exemplo de Variável:

Variáveis são de uso fundamental a qualquer tipo de programação. Imagine uma variável como uma caixinha, um compartilhamento que vai armazenar dados.

Variáveis são formadas por um nome que a identifica e por um valor, o valor de uma variável é o dado que ela está recebendo.

Os dados armazenados em uma variável podem ser modificados a quelquer momento e podem variar como Strings ou Expressão. Quando um valor é tratado como uma String, ele é um texto puro e será apresentado exatamente como digitado no campo valor. Quando tratado como uma empressão, a operação matemática será realizada, assim como serão entendidas propriedades, funções, o valor de outra variável, método de objetos etc. A dica é sempre habilitar expressão quando o conteúdo do campo valor envolver um número.

Através das variáveis podemos ter o controle total de nosso filme, definindo que outras açõe ocorreram a partir do momento que o valor de uma variável se torne verdadeiro, faremos isso através de condições (IF, ELSE, ELSE, IF)

Sempre que chamarmos um variável pelo seu nome em qualquer linha de comando automaticamente o Flash mx vai retornar o valor dessa variável ao Script.

If (A==1) {
gotoAndPlay (5) ;
} else {
gotoAndPlay (2) ;
}

No exemplo acima definimos uma condição que checa o valor de uma variável com o nome A.

Então temos:

Se (IF) a variável A tiver valor igual a 1 a TIMELINE é disparada a partir do frame de número 5, senão (ELSE) ela é disparada a partir do frame 2.

Espero que esse tutorial venha à ajuda-los.

Na semana que vem falarei de Instância.

Enquete usando ASP e Flash

gustavobittencourt — Sat, 13 Nov 2004 00:00:00 +0000

Enquete usando ASP e Flash.

Como faço para rodar um arquivo “.ASP” em minha máquina?

Para rodar ASP em sua máquina, é necessário ter um servidor de web para windows 98, o PWS (Personal Web Server). Ele está disponível no CD Rom do 98 na pasta “add_ons”. Após instalado o PWS, você terá em sua máquina uma pasta chamada wwwroot no diretório, C:\Inetpub\wwwroot\. Esta pasta será a chave de publicação de seus arquivos ASP.

Configuração do Banco de dados.

Agora vamos para a configuração do [DB] “Banco de Dados”. É necessário ter o Microsoft Data Access. Clique no menu Iniciar > Painel de controles. Selecione o ícone do ODBC > ODBC Data Sources [32bit]. Na janela que se abrirá, clique em Sistema DNS > Adicionar. Abrirá outra janela. Escolha Driver Microsoft access (*.mdb). Clique em concluir, escreva um nome para o arquivo. Neste exemplo enquete. Na descrição, coloque tutorial enquete Ponto Flash. Clique em criar e escolha um diretório. Neste caso o mesmo descrito acima, na pasta enquete ex: C:\Inetpub\wwwroot\enquete\db

Agora seu computador esta preparado para rodar arquivos ASP.

Vamos trabalhar…

1- Abra o seu bloco de notas ou um outro editor de ASP, crie um arquivo que fará a conexão dos seus arquivos ASP através do ODBC, nomeie este arquivo como “open_conn.inc”. Neste arquivo digite:

<% REM +++ open Conn +++

Set conn = createobject(“adodb.connection”)

‘enquete é o nome do seu banco de dados

conn.open(“enquete”)

2- Crie outro arquivo com o nome de “close_conn.inc”. Neste arquivo digite:

<% REM +++ Close Conn +++

Conn.close

Set conn = Nothing

3- Crie outro arquivo com o nome de “deletar_tab.asp”. Este arquivo irá apagar dados em seu DB. Nele digite:

<% REM +++ APAGAR TABELA+++

Instrucao_SQL = “drop table enquete001 ”

set rs = conn.execute(Instrucao_SQL)

4- Crie outro arquivo com o titulo de “adicionar_tab.asp”. Este arquivo irá inserir as tabelas de seu DB, neste arquivo digite:

<% REM +++ Adicionar tab +++

Instrucao_sql = “create table enquete001 (” &_

“(voto1 integer, voto2 integer, voto3 integer)

Set rs = conn.execute(instrucao_SQL)

Instrucao_SQL”insert into enquete001″&_

“voto1, voto2, voto3) values (0,0,0)”

set rs = conn.execute(Instrucao_SQL)

5- Crie outro arquivo com o titulo de “resposta.asp” e coloque isso:

qualvoto = “voto” & request(“resposta”)

sqlconsulta = “select” & qualvoto & “from enquete001″

Set rs = conn.execute(sqlconsulta)

sqlupdate= “update enquete001 set ” &_

qualvoto & ” = ” & rs(qualvoto)+1

Set rs = conn.execute(sqlupdate)

sqlconsulta = “select voto1, voto2, voto3 from enquete001″

Set rs = conn.execute(sqlconsulta)

totalvotos = rs(“voto1″) + rs(“voto2″) + rs(“voto3″)

voto1 = int(rs(“voto1″) / totalvotos * 100)

voto2 = int(rs(“voto2″) / totalvotos * 100)

voto3 = int(rs(“voto3″) / totalvotos * 100)

arquivoflash = “resposta.swf?voto1=” & voto1 &_

“&voto2= ” & voto2 & “&voto3=” & voto3 &_

“&total=” & totalvotos

response.redirect(arquivoflash)

Vamos Trabalhar com o Flash agora.(Obs. Tendo a Base no Flash 5, você pode trabalhar em qualquer Flash)

Abra seu Flash 5. No quadro 1, faça um layout para sua enquete. Na parte superior da área de trabalho escreva: O que você acha do site Ponto flash?

No centro da sua área de trabalho, faça uma bolinha “como um botão de rádio”. Transforme essa bolinha em um botão (F8). Em seguida selecione o botão que você acabou de criar (a bolinha), transforme-o em um clipe de filme (F8). Clique o botão direito do mouse na bolinha que você acaba de transformar em um clipe de filme, e escolha editar no local.

Na edição do clipe de filme, crie mais uma camada. Nomeie a camada onde está a bolinha de “opção” e a outra camada de “seleção”. No primeiro quadro da camada “seleção”, coloque uma ação de stop. Na camada “opção“, clique sobre a bolinha e pressione CTRL + C e em seguida CTRL + SHIFT + V, para colar outra bolinha no mesmo local. Com a seta, posicione a nova bolinha abaixo da outra. Faça a mesma coisa mais uma vez, para você ter 3 bolinhas, uma abaixo da outra.

Agora vamos dar uma ação para essas bolinhas

Na camada “opção”, no 1º quadro, selecione a 1º bolinha de cima para baixo. Clique com o botão direito do mouse sobre ela e escolha “ações”. Diugite este comando:

on (release) {

set (/:resposta, 1);

gotoAndStop (2);

}

Ainda na camada “opção” clique na 2º bolinha e coloque a ação:

on (release) {

set (/:resposta, 2);

gotoAndStop (3);

}

Na camada “opção”, clique na 3º bolinha e coloque esta ação.

on (release) {

set (/:resposta, 3);

gotoAndStop (4);

}

Ainda na camada “opção”, no 4º quadro, pressione F5 para limpar os quadros anteriores.

No segundo quadro camada “seleção“, faça uma bolinha menor que a que você criou anteriormente e dê uma cor diferente ou se preferir use um X. Posicione a bolinha menor sobre a 1º bolinha maior, para dar uma impressão de que esta bolinha esta selecionada. No 3º quadro, pressione F6 e posicione a bolinha menor sobre a 2º bolinha maior. Repita os passos no quarto quadro. Tanta bolinha que até fiquei tonto. )

Agora volte a cena inicial, escreva na frente das bolinhas como no exemplo abaixo, onde o “0″ representa a bolinha que você criou:

0 Muito legal

0 eu dependo deste site

0 eu não gosto

Crie um botão com o título “enviar”. Coloque o botão no canto inferior da área de trabalho. Neste botão coloque a seguinte ação:

on (release) {

if (resposta <> 0) {

getURL (“resposta.asp”, “”, “POST”);

}

on (release, rollOver) {

if (resposta = 0) {

mensagem = “Escolha uma opção por favor “;

}

on (release) {

texto = “”;

}

Agora crie um campo de texto dinâmico. Para fazer isso, clique na ferramenta de texto e clique em “campo de texto”. Selecione o campo que você criou e vá em propriedade. Dê-lhe o nome de “texto”. Salve o filme com o nome “votar.fla”.

Ja estamos quase la.

Abra um novo filme no flash, faça um layout de sua preferência, desde que combine com o layout que você criou no filme anterior (o:

Crie 3 campos de textos um abaixo do outro, como as bolinhas do filme anterior. Dê o valor de 100% para cada um. Coloque o nome da variável do 1º campo de texto de “voto1″. Faça isso nos outros dois com “voto2″ e “voto3″.

Crie um retângulo com a cor diferente do fundo que você escolheu para o fundo da sua área de trabalho, transforme-o em um clip de filme e lhe dê o nome de retângulo. Em seguida, duplique o filme que você criou mais duas vezes, totalizando 3 filmes de retângulo. Coloque os clips de filme na frente do campo de texto que você criou, ficando mais ou menos assim:

Legal	campo de texto 100%	Retangulo clip de filme
Depende	campo de texto 100%	Retangulo clip de filme
Não gostei	campo de texto 100%	Retangulo clip de filme

Selecione o 1º retângulo que você transformou em filme e lhe dê o nome de instância de “Bt1″ e nos outros retângulos, coloque a instância de “bt2″ e “bt3″.

Na parte inferior da área de trabalho, faça mais um campo de texto retângular. Coloque nele o valor “total” e na variável, você coloca “0000“.

Crie uma nova camada e dê a ela o nome de “ações”. No 1º quadro da camada ações coloque a seguinte ação:

contador1 = “0″;

contador2 = “0″;

contador3 = “0″;

setProperty (“/bt1″, _xscale, “voto1 / 2″);

setProperty (“/bt2″, _xscale, “voto2 / 2″);

setProperty (“/bt3″, _xscale, “voto3 / 2″);

No terceiro quadro da mesma camada coloque

if (contador1 < voto1) {

contador1 = “contador1 + 1″;

setProperty (“/bt1″, _xscale, “contador1 /2″);

gotoAndPlay (2);

}

if (contador2 < voto2) {

contador2 = “contador2 + 1″;

setProperty (“/bt2″, _xscale, “contador2 /2″);

gotoAndPlay (2);

}

if (contador3 < voto3) {

contador3 = “contador3 + 1″;

setProperty (“/bt3″, _xscale, “contador3 /2″);

gotoAndPlay (2);

}

No 4º quadro da mesma camada coloque um STOP.

Salve este arquivo como “resposta.fla”.

Ultima Parte

Coloque os arquivos swf dentro do HTML, com um ediitor de HTML de sua preferencia. No meu caso DREAMWAVER. Copie a pasta onde você salvou totos os arquivos que acabamos criar e cole no diretório C:\Inetpub\wwwroot\enquete. Onde enquete é o nome da pasta que você deve criar. Abra o seu PWS e inicie o programa. Em seguida clique no link na parte superior da janela do programa, onde estará o endereço http://seucomputador/. Para chegar até sua pasta você deve entrar no endereço http://seucomputador/enquete. Quando abrir este arquivo, você estará criando as tabelas de seu DB.

Sitema de Login e senha usando uma session.

gustavobittencourt — Fri, 08 Oct 2004 00:00:00 +0000

Sitema de Login e senha usando uma session.

Bom, para começar vamos criar uma pagina em HTML chamada Login.htm que será onde ficará os capos a serem preenchidos. Esta pagina que mandará informaçoes para o ASP que veremos a seguir:
Obs: Não esquecendo que terão que criar um Form que terá o Action da Segiunte forma: (Form Action=”Confere.asp”)

Login.html

color=#0066cc>

Entrar

if session(“pswacesso”) <> “acesso” then response.redirect “http://www.mxstudio.com.br/Login.html”
%>

Existe algumas maneiro abortar uma sessão, veja abaixo algumas delas:

1º O servidor abandona uma session, após um intervalo definido sem nenhuma atividade, você pode definir a duração de intervalo com a propriedade Session.timeout

2º Você pode abandonar uma session no código, usando o método session.abandon

3º Você pode desligar o IIS, Isso, é claro, interrompe o aplicativo e termina todas as sessões.

session.abandon(“login”)=”"

response.redirect “Login.htm”

Espero que tenham aproveitado esse primeiro exemplo de Session do MXSTUDIO. Dentro em breve mais exemplos de Variables.
Um abraço!