Ir para conteúdo
Fórum Script Brasil

mvdesign

Membros
  • Total de itens

    270
  • Registro em

  • Última visita

Tudo que mvdesign postou

  1. mvdesign

    Windows XP ???

    Mais tem uma coisa, a microsoft fala mal da pirataria de soft porque é o seu trabalho vender soft.... mais ela quer que nós designers, falando francamente na nossa lei de liberdade de expressão, que agente se foda, porque eles deixam o Internet explorer mostrar o codigo font das paginas..... e é assim que você cria algo e outro besta vai la e copia! Dai que surgiu o tal de "Na internet nada se cria, tudo se copia"! hehehehe!
  2. mvdesign

    Server_ftp

    p/ brigas sem nexo, vao p/ o forum porrada na cara ou qualquer assunto onde esta minha mensagem da caca de nariaz! dem uma olhada!
  3. ai cara, pega o do mano ai entaum, eu to com o seu aqui, mais tem um problema no meu javascript foi colocado nos erros, a variavel dos id´s dos campos sabe, ai tipo aparece assim, esta faltando txtnome, porfavor preencha-o! ai fica estranho! pega o dele ai de cima beleza..
  4. voce pode comprar o flash mx, ou pegar a versão de testeno site www.macromedia.com.br !!! se você quiser alguma ajuda do flash procura umas apostilas aqui na scriptbrasil mesmo. Falo! †(Lembre-se que a multa de soft pirata é 3 mil vezes o seu preço)†
  5. beleza ai cara, olha, vou validar todos os ampos beleza... (me passa no e-mail qual é os campos que tu quer validar? Só tem uma coisa to indo pra casa da mina esposa ver minha filinha.... Hehehe hoje é diado trabalho mais ninguém trabalha né, porque eu vou trabalhar!! beleza... manha as 8:30 da manha te passo prontinho no seu e-mail! Falo!
  6. cara uma boa ideia é você fazer o seguinta, ao invez de coloar caixa de txt para a pessoal escrever você coloca aqueles menus drop daw, o 1 você coloca com 31 numeros, o segundo todos os meses ou 12 numeros e o terceiro você coloca desde 1950 e pronto..... ai você não vai ter o problema de quando entrar um leigo em internet e o cara coloar / / / entre os textos e ai vai dar erro porque você só permite números, olha se você quiser eu faço a validação em javasript p/ você beleza.... passa a pagina em anexo p/ mvdesign@mvdesign.com.br Falow cara! :rolleyes:
  7. mvdesign

    Relogio Em Php

    Calma ai amiga, vamos chegando de vagar, tenho em .php3 serve? Creio que em javascript que nosso camarada passou acima não te sirva, pois ele também busca a hora na maquina local! Os codigos estao abaixo! arquivo: clockdemo.php3 <html> <head> <title>Demo: clock()</title> <?php #Ele é em ingles, mais tu traduz né! include 'inc_clock.php3'; InstallClockhead(); ?> </head> <!-- step 2/4: put the javascript onload="clock()" into the body tag. of course you can use a php-echo-statement, too. --> <body onLoad="clock()"> <?php echo ' The Server-Date-Time script<br> <br> Purpose: Install a digital clock showing server date and time using php and javascript<br> <br> Browser: IE, NS<br> <br> the original javascript-code comes from http://javascript.internet.com/clocks/basic-clock.html<br> <br> copyright (c) 2001 by knito@knito.de<br> <a href="http://www.ingoknito.de">http://www.ingoknito.de</a><br> <br> License: FREE<br> <center><br> <br><br>'; // step 3/4: Put the Clock()-function somewhere into your page. Clock(); echo '</center>'; // step 4/4: Put the javascript-function at the end of your html-body-section. InstallClockBody(); ?> </body> </html> arquivo: inc_clock.php3 <?php /* The Server-Date-Time script Purpose: Install a digital clock showing server date and time using php and javascript Browser: IE, NS the original javascript-code comes from http://javascript.internet.com/clocks/basic-clock.html copyright (c) 2001 by knito@knito.de http://www.ingoknito.de License: FREE */ // This function is to be used in the <head> section of the page. function InstallClockHead( ) { echo "\n"; echo '<script language="JavaScript" type="text/javascript">'; echo "\n<!--\n"; echo 'var monat = new Array("Januar","Februar","März","April","Mai","Juni","Juli","August","September", "Oktober","November","Dezember");'; echo "\n"; echo 'var digital = new Date( "'.date('M, d Y H:i:s').'");'; // <-- this is the trick! Here comes the server time echo "\n//-->\n</script>\n"; } // This function is to be used at the end of the <body> section of the page. function InstallClockBody( ) { ?> <script language="JavaScript" type="text/javascript"> <!-- function clock() { if (!document.layers && !document.all) return; var hours = digital.getHours(); var minutes = digital.getMinutes(); var seconds = digital.getSeconds(); var m; digital.setSeconds( seconds+1 ); if (minutes <= 9) minutes = "0" + minutes; if (seconds <= 9) seconds = "0" + seconds; m = digital.getMonth(); dispTime = digital.getDate()+". "+monat[ m ]+" "+digital.getFullYear()+" "+hours + ":" + minutes + ":" + seconds; if (document.layers) { document.layers.pendule.document.write(dispTime); document.layers.pendule.document.close(); } else if (document.all) pendule.innerHTML = dispTime; setTimeout("clock()", 1000); } // End of clock --> </script> <?php } // This is to be used where you want the clock to appear on your page. function Clock( ) { // To have it work with NS 4.7 the style "position:absolute" MUST be given (knito) echo '<span id="pendule" style="position:absolute;">Serverzeit</span>'; } ?> e agora o leia-me qualquer coisa posta ai!
  8. mvdesign

    Caca De Nariz

    Galera, como este é um fórum para qualquer assunto, resolvi postar isso: hoje eu tava tirando uma cacota aqui no trampo, elas não queriam vir de jeito nenhum, coloquei meu dedo na frente do nariz, me concentrei e imitei policial..... ....."SAIAM vocês ESTÃO CERCADAS"..... aí uma pulou no meu dedo, consegui agarrá-la e entaum muito mais inteligente, gritei ....."SAIAM, SAIAM, NÓS TEMOS UM REFÉM"..... não deu outra, parecia a Policia federal chegando junto com o Bill Gates lá no stand center da paulista, os camelôs todos correndo, mas na verdade eram os ranhos! Mas agora estou com um p*** problemão, uma delas conseguiu escapar e caiu dentro do meu teclado, e ela esta segurando minha tecla "tab" e com o pé direito puxando o "caps lock" !!! O que preciso de fazer para tirar ela??? tem algum programa que faz isso? dá pra fazer em php ou asp??? Com qual sistema operacional? Agora vou explicar os motivos dessa linda e poetica mensagem. Motivos: 1 - Campanha contra o Bush e suas batatas fritas. 2 - Pedi que alguém avaliasse o meu site e ninguém deu bola! 3 - Contra o cara daqui da sb que faz campanha contra o Bob Esponja e apoia o Lula molusco (Eu não gosto do lula molusco)! 4 - E contra o pessoal da SBT ter dado hormonios para a Lisa (os Simpsons) para ela não crescer, p/ poder continuar o seriado! Um forte abraço ao LULA Presidente do Brasil, que semana passada me ligou e disse que o time dele (Corinthians) tinha ganhado de outro time.... eu lhe perguntei de quando e ele disse: - Fizemos 9 e depois mais 1! Falo pessoal se o pessoal da sb não fica muito bravo com isso..... eu faço mais alguns protestos (já tem um novo sendo elaborado a respeito dos silicones) !!!!! :D
  9. Não temos interesse em reformular os sites agora, temos 2 versões de sites, e em 2 tipos de linguagens (asp e php). Nosso interesse é parceria ou sociedade como dito no titulo!
  10. mvdesign

    Relogio Em Php

    voce podeia usar SSI, ficaria assim: <!--#config timefmt="%H:%M:%S" --> salva a pagina como .shtml e pronto ou entaum coloca só isso no bloco de notas e salva como .shtml e usa incluide para colocar nas suas paginas! Tchau Carol, espero poder responder novas duvidas suas! Todos são bem vindos no fórum da scriptbrasil, principalmente se tratando de mulheres!
  11. Ai pessoal, trabalho na MVDesign e sou moderador do fórum de flash, preciso de alguém que programe cfm e/ou asp e/ou php e/ou jsp para trabalhar conosco como sócio, ou para fazer uma parceria. Ai pessoal, não estou contratando ninguém heim, o que preciso é de alguém disposto a ajudar levantar esta empresa que já tem quase tudo.... só falta os clientes e a divulgação! qual quiser ajudar tem espaço pra todos que manjem de: Rede asp / asp.net php coldfusion dhtml / Java Script / Java cfm linux photoshop corel draw Delphi C / C++ Visual Basic / VB.net Oracle SQL Sever beleza.... é posta ai que a gente conversa melhor e vê o que podemos fazer! :D www.mvdesign.com.br
  12. mvdesign

    Avaliem!

    Ai galera pode fla o que quiser sem vergonha, coisas do tipo esta otimo, e esta uma verdadeira b***! MVDesign clica ai acima no mvdesign ou www.mvdesign.com.br :D Falow pessoal
  13. <param name="wmode" value="transparent"> este parametro é do flash e não do html, porem, não funciona em todos os navegadores. mais é isso ai que o parceiro ai de cima falo! beleza...
  14. Cara tenho quase toda certeza´que é o odbc, você precisa de configurar seu banco de dados no odbc do windows...... vai em ferramentas administrativas e depois em drivers odbc e la você aponta para o banco de dados que quer usar e coloca o nome do banco certinho, sem erro ai já era!
  15. Como faço um provedor de acesso ao speedy 2.0 pelo win 2000 professional???
  16. mvdesign

    Windows XP ???

    caras na verdade muitas empresas hoje em dia usam o linux, e são grandes empresas.... e outra coisa, acho que o melhor s.o. e o win 2000 tanto pro qnt o advanced server ou só server, pena que é ameriano e é DA RUINDOW$! E quanto a pirataria, pirataria não é só você grava um cd pra alguém, também você passar o serial n. pro cara, e diversas outras coisas, ta certo que os s.o. estao muito aros, mais imagina você pagar uma par de caras, e uma p*** grana... para fazer um barato bem legal... e ai um monte de gente vende seu programa que custa em torno de UU$ 400,00 por apenas R$5,00 e nem te da 2 centavos?? ai é foda!
  17. Olha, tem javascript que ve qual a resolução do usuario, mais não me lembro de um que envie para uma pagina de acordo com a resolução, mais isso tem em asp, e deve ter em php também, pergunta pro Eddie666 que ele é o moderador de php! (e fala pra ele que o moderador de flash mandou um salve) falo!
  18. Cara você quer fazer frames ou iframes.... para iframe a tag <iframe> </iframe> e p/ frame proura po ai nos sites de html que sempre tem mais acho q é assim, não lembro muito bem!... <html> <head> <title>Frames</title> </head> <frameset cols="21%,79%"> <frameset> <frame src="sua_pagina.htm"> </frameset> <frame src="sua_pagina2.htm"> </frameset> </html>
  19. mvdesign

    Cdonts

    cara no iis o cdonts já vem instalado sim, agora no pws não! beleza.... vo te passa um codigo que mostra todos os componentes instalados no servidor! Arquivo: verifica.asp - é coloca-lo na pasta wwroot epronto ta rodando! -------------------------------INICIO DO CODIGO---------------------------------- <html> <head> <title>Untitled Document</title> <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"> </head> <body bgcolor="#FFFFFF" text="#000000"> <% inicio = Timer %> <table width="65%" border="0" cellspacing="0" cellpadding="0" align="center"> <tr> <td> <p align="center"><font face="Verdana, Arial, Helvetica, sans-serif" 6="6" size="1" color="#000080">Informa&ccedil;&otilde;es do Servidor</font><font face="Verdana, Arial, Helvetica, sans-serif" size="1"><br> Disponível Somente para Servidores Web Windows</font> <table border="0" cellpadding="0" cellspacing="0" width="818"> <tr> <td valign="TOP" width="454" bgcolor="#FFCC99"><font face="Verdana, Arial, Helvetica, sans-serif" size="1"><small>Nome do Servidor: <font color="#0000FF"> <% = Request.ServerVariables("SERVER_NAME") %> </font><br> Nome do Script: <font color="#0000FF"> <% = Request.ServerVariables("SCRIPT_NAME") %> </font><br> Protocolo do Servidor: <font color="#0000FF"> <% = Request.ServerVariables("SERVER_PROTOCOL") %> </font><br> Pasta Local: <font color="#0000FF"> <% = Request.ServerVariables("PATH_INFO") %> </font><br> Endereço do Físico: <font color="#0000FF"> <% = Request.ServerVariables("PATH_TRANSLATED") %> </font><br> Referencia HTTP:// : <font color="#0000FF"> <% = Request.ServerVariables("HTTP_REFERER") %> </font> </small> </font><font color="#0000FF" face="Verdana, Arial, Helvetica, sans-serif" size="1"><a href="http://<% = Request.ServerVariables("SERVER_NAME") %>" target="_blank"> <% = Request.ServerVariables("SERVER_NAME") %> </a> </font></td> <td valign="TOP" width="364" bgcolor="#FFCC99"> <font size="1" 4="4" face="Verdana, Arial, Helvetica, sans-serif">Informações do Sistema</font> <font size="1" face="Verdana, Arial, Helvetica, sans-serif"><br> <small>Sistema</small>: <font color="#0000FF"> <% = ScriptEngine %> </font><br> Versão: <font color="#0000FF"> <% =ScriptEngineMajorVersion() %> </font>.<font color="#0000FF"> <% =ScriptEngineMinorVersion() %> </font><br> <small>Atualizado: </small> <small><font color="#0000FF"> <% =ScriptEngineBuildVersion() %> </font><br> </small> </font> </td> </tr> </table> <div align="center"></div> <table width="53%" border="0" cellspacing="0" cellpadding="0" height="43"> <tr> <td> <div align="left"><font face="Verdana, Arial, Helvetica, sans-serif" size="1">CDONTS Object:&nbsp;</font><font size="1" face="Verdana, Arial, Helvetica, sans-serif"> <font color="#800000"> <% Err.Clear On Error Resume Next Set objCDONTS = Server.CreateObject("CDONTS.Session") If Err.Number <> 0 Then Response.Write("<B>NÃO INSTALADO</B>&nbsp;&nbsp;") Else Response.Write("<B>Versão: </B>" & objCDONTS.Version & " INSTALADO&nbsp;&nbsp;") End If %> </font> <br> ADO DB Object:&nbsp;<font color="#800000"> <% Err.Clear On Error Resume Next Set objConn = Server.CreateObject("ADODB.Connection") If Err.Number <> 0 Then Response.Write("ADODB.Connection object <B>NÃO INSTALADO</B>") Else Response.Write("<B>Versão: </B>" & objConn.Version & "<BR>") End If %> </font> <br> File System Object<font color="#800000"> <% Err.Clear On Error Resume Next Set objFSO = Server.CreateObject("Scripting.FileSystemObject") If Err.Number <> 0 Then Response.Write("NÃO INSTALADO") Else Response.Write("INSTALADO") End If %> </font> <br> ASPMail Object<font color="#800000"> <% Err.Clear On Error Resume Next Set objASPMail = Server.CreateObject("SMTPsvg.Mailer") If Err.Number <> 0 Then Response.Write("INSTALADA") Else Response.Write("VERSÃO INSTALADO " & objASPMail.Version ) Response.Write("<BR><SMALL>EXPIRA EM:" & objASPMail.Expires & "</SMALL>" ) End If Response.Write("<BR><FONT SIZE=""2"">Para Mais Informações <A HREF=""http://www.serverobjects.com"" TARGET=""RESOURCE WINDOW"">www.serverobjects.com</A></FONT>&nbsp;&nbsp;") %> </font> &nbsp;<br> ASPImage Object<font color="#800000"> <% Err.Clear On Error Resume Next Set objASPImage = Server.CreateObject("AspImage.Image") If Err.Number <> 0 Then Response.Write("NÃO INSTALADO") Else Response.Write("VERSÃO INSTALADA " & objASPImage.Version ) Response.Write("<BR><SMALL>EXPIRA EM:" & objASPImage.Expires & "</SMALL>") End If Response.Write("<BR><FONT SIZE=""2"">Para Mais Informações <A HREF=""http://www.serverobjects.com"" TARGET=""RESOURCE WINDOW"">www.serverobjects.com</A></FONT>") %> </font> <br> ASPUpload Object<font color="#800000"> <% Err.Clear On Error Resume Next Set objASPUpload = Server.CreateObject("Persits.Upload.1") If Err.Number <> 0 Then Response.Write("NÃO INSTALADO") Else Response.Write("INSTALADO ") End If Response.Write("<BR><FONT SIZE=""2"">Para Mais Informações <A HREF=""http://www.persits.com"" TARGET=""RESOURCE WINDOW"">www.persits.com</A></FONT>") %> </font> <br> ASPEmail Object<font color="#800000"> <% Err.Clear On Error Resume Next Set objASPEmail = Server.CreateObject("Persits.MailSender") If Err.Number <> 0 Then Response.Write("NÃO INSTALADO") Else Response.Write("INSTALADO ") Response.Write("<BR><SMALL>Expires On:" & objASPEmail.Expires & "</SMALL>") End If Response.Write("<BR><FONT SIZE=""2"">Para Mais Informações <A HREF=""http://www.persits.com"" TARGET=""RESOURCE WINDOW"">www.persits.com</A></FONT>&nbsp;&nbsp;") %> </font> &nbsp;<br> JMail Object<font color="#800000"> <% Err.Clear On Error Resume Next Set objJMail = Server.CreateObject("JMail.SMTPMail") If Err.Number <> 0 Then Response.Write("NÃO INSTALADO") Else Response.Write("INSTALADO ") End If Response.Write("<BR><FONT SIZE=""2"">Para Mais Informações <A HREF=""http://www.dimac.net"" TARGET=""RESOURCE WINDOW"">www.dimac.net</A></FONT>&nbsp;&nbsp;") %> </font> &nbsp;<br> Bamboo.SMTP Object<font color="#800000"> <% Err.Clear On Error Resume Next Set objBamboo = Server.CreateObject("Bamboo.SMTP") If Err.Number <> 0 Then Response.Write("NÃO INSTALADO") Else Response.Write("INSTALADO ") End If Response.Write("&nbsp;&nbsp;") %> </font> <br> Informações desta Transmissão<font color="#000080"> <% On Error Resume Next vRunDate = Now sRunDate = Request.QueryString("DATE") If Len(Trim(sRunDate)) = 0 Then sRunDate = Request.Form("DATE") End If Response.Write("<FONT SIZE=""2"">") If IsDate(sRunDate) Then vRunDate = CDate(sRunDate) Response.Write("<BR><FONT SIZE=""2"">RunDate:" & sRunDate) Else Response.Write("<BR>RunDate: Now") End If Response.Write("<BR>RunDate : " & vRunDate ) Response.Write("<BR>CDate(RunDate) : " & CDate(vRunDate) ) Response.Write("<BR>CDate("" & RunDate) : " & CDate("" & vRunDate) ) %> </font> <% Application.Lock IF NOT isArray( Application( "lastTen" ) ) THEN DIM dummy( 10, 3 ) Application( "lastTen" ) = dummy END IF lastTen = Application( "lastTen" ) Application.UnLock ' Mover cada visita abaixo no Array IF lastTen( 9, 0 ) <> "" THEN FOR i = 0 TO 9 lastTen( i, 0 ) = lastTen( i + 1, 0 ) lastTen( i, 1 ) = lastTen( i + 1, 1 ) lastTen( i, 2 ) = lastTen( i + 1, 2 ) NEXT END IF ' Somar uma nova entrada FOR i = 0 TO 9 IF lastTen( i, 0 ) = "" THEN lastTen( i, 0 ) = Request.ServerVariables( "REMOTE_ADDR" ) lastTen( i, 1 ) = Request.ServerVariables( "HTTP_USER_AGENT" ) lastTen( i, 2 ) = NOW() EXIT FOR END IF NEXT Application.Lock Application( "lastTen" ) = lastTen Application.UnLock %> <br> </font> <font face="Verdana, Arial, Helvetica, sans-serif" size="1"><em><font 2>Transmitido: <font color="#FF0000"> <% = Now %> </font></font></em></font></div> </td> </tr> </table> <font face="Verdana, Arial, Helvetica, sans-serif" size="1"> </font> <p><font face="Verdana, Arial, Helvetica, sans-serif" size="1"><font 2>Mostrar os 10 Últimos Acessos a este Script:</font> <br> Seu IP :<small> </small><font color="#0000FF"><%= request.servervariables("REMOTE_ADDR") %> </font> </font><font face="Verdana, Arial, Helvetica, sans-serif" size="1"><small></small></font><font face="Verdana, Arial, Helvetica, sans-serif" size="1"> </font></p> <font face="Arial"> <div align="left"> <table bgcolor="#FFCC66" cellspacing=0 cellpadding=3 border=0> <tr bgcolor="lightyellow"> <td><b><font 2="2" size="1" color="#000080" face="Verdana, Arial, Helvetica, sans-serif">Visitas</font></b></td> <td><b><font 2="2" size="1" color="#000080" face="Verdana, Arial, Helvetica, sans-serif">Direção IP</font></b></td> <td><b><font 2="2" size="1" color="#000080" face="Verdana, Arial, Helvetica, sans-serif">Browser</font></b></td> <td><b><font 2="2" size="1" color="#000080" face="Verdana, Arial, Helvetica, sans-serif">Hora de Visita</font></b></td> </tr> <font size="1" 2="2" face="Verdana, Arial, Helvetica, sans-serif"> <b> <% FOR i = 0 TO 9 IF lastTen( i, 0 ) <> "" THEN %> </b></font> <tr> <td><b><font 2="2" size="1" face="Verdana, Arial, Helvetica, sans-serif"><%=i + 1%></font></b></td> <td><b><font 2="2" size="1" face="Verdana, Arial, Helvetica, sans-serif"><%=lastTen( i, 0 )%></font></b></td> <td><b><font 2="2" size="1" face="Verdana, Arial, Helvetica, sans-serif"><%=lastTen( i, 1 )%></font></b></td> <td><b><font 2="2" size="1" face="Verdana, Arial, Helvetica, sans-serif"><%=lastTen( i, 2 )%></font></b></td> </tr> <% END IF NEXT %> </table> <font size="1" face="Verdana, Arial, Helvetica, sans-serif"><small>Tempo de Respota do Servidor Web:<br> </small><font color="#0000FF"><small> <% '... uma seqüência de comandos para medir a velocidade response.write "Processado em " & FormatNumber( Timer - inicio, 2 ) & " segundos" %> </small></font></font></div> </font></td> </tr> </table> </body> </html> --------------------------------------FIM DOCODIGO----------------------------------------
  20. mvdesign

    Erro Ao Acessar Baco De Dados

    vai em propriedades no iis e la você deixa como permitido rodar scripts e executaveis, depois muda la em cima de javascript para vb script! falo!
  21. mvdesign

    Txt Chat

    É cara vo joga a real, seu chat ta funcionando direito ate onde eu vi! ele envia, e você ve o que você envio! mais não tive a oportunidade de falar com alguém para ver se troca as mensagens normalmente!
  22. mvdesign

    Enquete

    Cara no flashkit tem tudo que você precisa, ve la que você vai achar, mais também aqui na script brasil tem muita gente boa.... tipo o cara ai tem uma pronta, se você quiser ver da um toque pra ele.... Mais pra fazer é assim, você precisa do codigo php ou asp, vai na cessão php/asp da scriptbrasil e pega um código lá, ai você cria as coisas como se fosse no html, faz igual mais faz no flash. vo te passar como faz uma em asp, porque php vai demora muito pra você.. mais se quiser te passo também. ----------------------------------------------- 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. Clique em criar e escolha um diretório. Neste caso o mesmo que vai estar a pasta do banco de dados (dentro da pasta enquete), ex: C:\Inetpub\wwwroot\enquete\db ------------------------------------------------- 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") %> --------------------------------------------------- Crie outro arquivo com o nome de "close_conn.inc". Neste arquivo digite: <% REM +++ Close Conn +++ Conn.close Set conn = Nothing %> ---------------------------------------------------- Crie outro arquivo com o nome de "del_tab.asp". Este arquivo irá apagar dados em seu DB. Nele digite: <!--- #include file="open_conn.inc" ---> <% REM +++ APAGAR TABELA+++ Instrucao_SQL = "drop table enquete001 " set rs = conn.execute(Instrucao_SQL) %> <!--- #include file="close_conn.inc" ---> ------------------------------------------------------- Crie outro arquivo com o titulo de "add_tab.asp". Este arquivo irá inserir as tabelas de seu DB, neste arquivo digite: <!--- #include file="open_conn.inc" ---> <% REM +++ add 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) %> <!--- #include file="close_conn.inc" ---> ------------------------------------------------------ Crie outro arquivo com o titulo de "resposta.asp" e coloque isso: <!--- #include file="open_conn.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 = "resposta.swf?voto1=" & voto1 &_ "&voto2= " & voto2 & "&voto3=" & voto3 &_ "&total=" & totalvotos %> <!--- #include file="close_conn.inc" ---> <% response.redirect(arquivoflash) %> ------------------------------------------------------------ Abra seu Flash 5. No quadro 1, faça um layout para sua enquete. 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 ação ao botão. 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. Agora volte a cena inicial, escreva na frente das bolinhas como no exemplo abaixo, onde o "0" representa a bolinha que você criou: 0 Otimo 0 Bom 0 Ruim ---------------------------------------------- Crie um botão com o título "enviar". 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". -------------------------------------------------- Estamos quase acabando, a metade, hehe. Brincaderinha, estamos quase no fim (o: 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: Otimo campo de texto 100% Retangulo clip de filme Bom campo de texto 100% Retangulo clip de filme Ruim 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". ---------------------------------------------------------- Tipo é isso, se você entendeu, beleza..... ...se você não entendeu cara, me avisa eu te passo o exemplo! SE QUISER EM PHP EU TENHO também, MAIS AI É BANCO DE DADOS MY SQL E AI SER MAIS DIFICIL.... mais eu posso tentar fazer com .txt se você quiser beleza..! Falow!
  23. mvdesign

    Txt Chat

    beleza cara, vou ser direto, seu chat ta funcioando certinho! você envia e recebe sem problemas! pelomenos ate onde eu vi!
  24. mvdesign

    Txt Chat

    sei não o que é mais acho que o server não da suporte a permissoes... Failed [server does not support attribute modifications]!
  25. porque tenho 2 dominios, e só posso pagar uma hospedagem! Hehehe, não sou rico!
×
×
  • Criar Novo...