|
|
|
|
 |
Crie um arquivo.txt e coloque 'text=' sem as aspas.
Coloque o texto na frente, use as tags HTML normais para linkar. Seu arquivo.txt deve ficar assim:
text= Saiu hoje no FANTÁSTICO Ponto Flash é o melhor forum de Flash do Brasilleia mais ->
no Flash no primeiro keyframe coloque
loadVariablesNum ('texto.txt', 0);
//texto.txt é o seu arquivo txt
stop ();
No mesmo frame crie um campo dinâmico com a variável text.
deve ficar assim
TEXTO DINÂMICO
ÚNICA LINHA
TEXT
marque a opção HTML
teste seu filme
Emerson Rocha
( 0 COMENTÁRIO ) | ( LINK PERMANENTE ) | |
|
O processo usando ASP.
<%
Dim objMail
strvar1 = Request(var1)
strFrom = Request.ServerVariables(correio.angloudi.com.br)
Set objMail = CreateObject(CDONTS.NewMail)
objMail.From = strFrom
objMail.To = emerson@a...
objMail.Subject = PT4FREE ASP and FLASH
objMail.Body = Variavel: & strvar1
objMail.Send
response.write(resposta=+Server.URLEncode(Enviado!))
Set objMail = nothing
%>
No flash, coloque dois campos de textos dinâmicos, com a variável de assunto e mensagem. No botão enviar, coloque:
on (release) {
if (mensagem ne ) {
loadVariablesNum (nomedoarquivo.asp, 0, POST);
gotoAndPlay (2);
}
}
Emerson Rocha
( 0 COMENTÁRIO ) | ( LINK PERMANENTE ) | |
|
Para criar uma enquete em ASP não é tão difícil basta ter uma noção em linguagem de programação, neste exemplo ASP você deverá criar alguns arquivos como vou te descrever abaixo.
___________________________________________________________
1º] Crie um arquivo .inc com o titulo [open_conexao.inc]
e nele coloque isso!
___________________________________________________
<% REM +++ open Conexao +++
Set conn = createobject(adodb.connection)
conn.open(enquete)
%>
___________________________________________________
2º] Crie outro arquivo com com o titulo
[fim_conexao.inc] e nele coloque isso!
__________________________________________________
<% REM +++ fim Conexao +++
Conn.close
Set conn = Nothing
%>
_________________________________________________
Agora vamos aos arquivos .ASP:
crie um arquivo .asp com o titulo de
[criar_tabelas.asp] e nele coloque isso!
_________________________________________________________________
<!--- #include file=open_conexao.inc --->
<% REM +++ criar tabela +++
Instrucao_sql = create table enquete001 ( &_
(voto1 integer, voto2 integer, voto3 integer)
Set rs = conn.execute(instrucao_SQL)
Instrucao_SQLinsert into enquete001&_
voto1, voto2, voto3) values (0,0,0)
set rs = conn.execute(Instrucao_SQL)
%>
<!--- #include file=fim_conexao.inc --->
__________________________________________________________________
crie outro arquivo .asp com o titulo de apagar.asp e coloque isso
____________________________________________________________________
<!--- #include file=open_conexao.inc --->
<% REM +++ APAGAR TABELA+++
Instrucao_SQL = drop table enquete001
set rs = conn.execute(Instrucao_SQL)
%>
<!--- #include file=fim_conexao.inc --->
_____________________________________________________________________
e mais este último arquivo .asp com o título de [resultado.asp]
______________________________________________________________________
<!--- #include file=open_conexao.inc --->
<%
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 = resultado.swf?voto1= & voto1 &_
&voto2= & voto2 & &voto3= & voto3 &_
&total= & totalvotos
%>
<!--- #include file=fim_conexao.inc --->
<%
response.redirect(arquivoflash)
%>
__________________________________________________________________________
no flash basta você criar 2 arquivos um VOTAR.SWF e outro RESULTADO.SWF
Neles colque os comandos de acesso, se não funcionar me avise que mando um
outro
tutorial sobre como chamar os resultados do flash, e como enviar os mesmo,
Abraços espero ter ajudado.
__________________________________________________________________
Emerson Rocha
( 0 COMENTÁRIO ) | ( LINK PERMANENTE ) | |
|
INTERAÇÕES - 20-02-2003
Uma enquete usando ASP e Flash.
A interação Flash com ASP nos deu a possibilidade de fazer nossos sites com mais interatividade com o usuário final. Neste tutorial, você aprenderá a fazer uma enquete de votação no flash junto com ASP. Flash5.
leia mais ... |
|
|
|
|
|
|
|
|
|
|
|
|
|
