thicoliveira

Caros amigos, Tenho uma enquete está funcionando coretamente, ela busca as informações de arquivos .txt, mas queria também que votassem apenas uma vez por dia, através do reconhecimento de Cookies, segue abaixo meu código ASP, para que possa me ajudar, sou iniciante ... enquete.asp <% ' Esse arquivo não precisa ser alterado, salvo o SERVER.MAPPTH no caso da enquete aparecer ' em várias pastas (vide arquivo PRINCIPAL.ASP) id = request.querystring ("id") cont = request.querystring ("cont") 'Cria o objeto de texto Set Textobj = Server.CreateObject("Scripting.FileSystemObject") Set Leenq = Textobj.OpenTextFile(Server.MapPath("" & id & ".txt"),1) linha = split(Leenq.readline , "|") 'Fecha e limpa da memoria Leenq.close Set Leenq = nothing 'Calcula a quantidade de opções que a enquete possui opcoes = int(ubound(linha)/2) 'Cont é o valor passado do código do PRINCIPAL.ASP 'Quando ele é igual a 1 então o sistema grava o voto 'Caso contrário, ele pula a gravação e apenas exibe os resultados parciais if cont = "1" then sel = int(request.querystring("op")) linha(opcoes+sel+1)=(int(linha(opcoes+sel+1)))+1 Set Gravaenq = Textobj.CreateTextFile(Server.MapPath("" & id & ".txt"),8) for g = 0 to ubound(linha) Gravaenq.write linha(g) if g <> ubound(linha) then Gravaenq.write "|" next msg = "Obrigado" 'mensagem de agradecimento ' fecha e limpa da memoria os objetos e instancias Gravaenq.close Set Gravaenq = nothing end if ' exibe os resultados %> index.asp (onde encontra-se a enquete) <% 'id é o nome do aquivo txt' id = "seguranca" 'Cria os objetos e instancias Set Textobj = Server.CreateObject("Scripting.FileSystemObject") Set Leenq = Textobj.OpenTextFile(Server.MapPath("" & id & ".txt"),1) ' Captura a linha com os dados da enquete linha = split(Leenq.readline , "|") ' Fecha e limpa da mem&oacute;ria os objetos e instancias criadas Leenq.close Set Leenq = Nothing Set Textobj = Nothing ' mostra a enquete %> Está Enquete ao clicar em votar abre em Pop-up, como restringir votos apenas uma vez po dia? Grato e Abraços, Thiago Oliveira

Como posso colocar o código html nesse código ? para que apareça as imagens e etc ... ? If variavel_teste = "1" then response.write "Este é o teste número <b>1</b>" elseIf variavel_teste = "2" then response.write "Este é o teste número <b>2</b>" elseIf variavel_teste = "3" then response.write "Este é o teste número <b>3</b>" else response.write "O parametro passado está incorreto!" end if %> Editado: Ao postar Códigos, utilize a tag CODE!

Olá, agora as coisas complicaram ..... E o conteudo que irá aparecer na página id=45, de onde vem esse conteúdo, não é de uma página em ASP, ou seja, ela puxa de uma página .... Por que ao clicar em um link dessa forma visualizamos o conteúdo com imagens, textos e etc .... creio eu que teríamos que criar uma página onde o código puxasse, se não é assim como funciona para aparecer o todo o conteúdo, essa é minha maior dúvida. Por favor me ajude. Muito Grato, Thiago

Mais uma pergunta? Para cada link será uma página ....? Ou seja cod_fla?=45 (esse 45 seria uma página em ASP ... )? Muito Grato, Thiago

Olhe tem o Código conforme mostrado, por exemplo: Vou criar 50 Categorias como; Empresas e etc ... Ou seja terei criar essas 50 páginas .... ? ou existe uma forma mais rápida de fazer isso, você me explicou que o Request, poderia me facilitar nesse caso, mas ainda não vi como pode facilitar, porque o código já entendi, mas como funciona e que não ... Grato, Thiago Oliveira

Tenho algumas dúvidas sobre essa questão ..... Do Banco de dados ..... Grato, Thiago Oliveira

<% sql = "SELECT * FROM sua_tabela" set Conexao = Server.CreateObject("ADODB.Connection") conexao.open Application("StringConexaoODBC") set rsquery = Conexao.Execute(sql) While not rsquery.eof ' aqui você constrói o link de forma que fique adequado a sua necessidade <a href="pagina.asp?codigo_xxxx=<% =rsquery("nome_campo")%>"> rsquery.movenext Wend %> Caros amigos o que se refere esse sua_tabela e nome_campo no código descrito acima.

Caros amigos, sou iniciante em ASP, como posso fazer para criar um link dessa forma : http://www.meusite.com.br/flash.asp?cod_fla=183 Agradeco desde já, Thiago

Caros amigos sou inciante em ASP e estou com dificuldade em criar uma newsletters, poderia me explicar como posso proceder para resolver esta questão abaixo .... "No subdiretorio "Boletim" dentro de "Dados" criar permissão para escrita nos arquivos "mailling1.lst" e "mailling2.lst"." Valeu, Thiago

Caros amigos estou com um sistema de indique esse site, esse script irei usar para Indique essa foto, só que tem um problema ..... Existe a página com o formulário de indicação, esse formulário busca o aqruivo indique2.asp, nesse "indique2.asp" tem a configuração com a url da foto, sendo que para cada foto terei que criar um arquivo em ASP, ou seja, foto 1, indique1.asp. Minha pergunta é? Tem como criar apenas um arquivo em ASP que sirva para todas as fotos, para que eu não precise criar um arquivo asp para cada foto ..... ? Grato, Thiago

Caros amigos, Tenho um Sistema de Indique essa Foto, está funcionando corretamente, mais como posso fazer para que indiquem várias fotos diferentes, sem ter que criar vários arquivos em PHP, ou seja, que para todas as fotos, o arquivo PHP seja único, apenas alterne nas fotos. Por favor me dem um auxilio , sou iniciante !!! Segue abaixo o meu código: <?php $visitante = "Um amigo indicou essa foto"; //Assunto da mensagem enviada para o amigo. ##################CODIGO HTML################### $resposta = "<img src=\"IMAGEM AKI\"><br>" ."<font face = \"Verdana\" size =\"2\" color=\"#000000\">Enviado por:$nome<br>Ae <font color=\"#0000FF\">$amigo</font><br>Visite este site.<br>" ."<a href=http://www.google.com.br/ target=\"_blank\">Google</a></font>"; //Texto mensagem enviada ao amigo. ################################################ //Está parte do código faz a verificação dos campos do formulário. if($acao){ if ($nome == ""){ echo "<p align=\"center\"><font face=\"Verdana\" size=\"2\" color=\"#FF0000\"><b>Favor digitar seu nome.</b></font></p>"; } elseif($email ==""){ echo "<p align=\"center\"><font face=\"Verdana\" size=\"2\" color=\"#FF0000\"><b>Favor digitar seu e-mail.</b></font></p>"; } elseif (!(strpos($email,"@")) OR strpos($email,"@") !=strrpos($email,"@")) { echo "<p align=\"center\"><font face=\"Verdana\" size=\"2\" color=\"#FF0000\"><b>Favor digitar seu e-mail corretamente</b></font></p>"; } elseif ($amigo == ""){ echo "<p align=\"center\"><font face=\"Verdana\" size=\"2\" color=\"#FF0000\"><b>Favor digitar o nome do seu amigo.</b></font></p>"; } elseif($emamigo ==""){ echo "<p align=\"center\"><font face=\"Verdana\" size=\"2\" color=\"#FF0000\"><b>Favor digitar o e-mail do amigo.</b></font></p>"; } elseif (!(strpos($emamigo,"@")) OR strpos($emamigo,"@") !=strrpos($emamigo,"@")) { echo "<p align=\"center\"><font face=\"Verdana\" size=\"2\" color=\"#FF0000\"><b>Favor digitar o e-mail do amigo corretamente</b></font></p>"; } //Está parte do formulário envia a mensagem para o amigo. else { $headers = "MIME-Version: 1.0\r\n"; $headers .= "Content-type: text/html; charset=iso-8859-1\r\n"; mail($emamigo,$visitante,$resposta,$headers . "From: $nome <$email>\r\n"); header("Location: contatos.htm"); exit(); } } ?> <HTML><HEAD> <TITLE>O2 Solu&ccedil;&otilde;es Digitais - Solu&ccedil;&otilde;es feitas para voc&ecirc; !!!</TITLE> <META http-equiv=Content-Type content="text/html; charset=windows-1252"> <META content="MSHTML 6.00.2743.600" name=GENERATOR> </HEAD> <p align="center"><form action="indique_um_amigo.php" method="get" target="_parent"> <table cellpadding="1" cellspacing="0" width="390"> <tr valign="top"> <td width="100%"> <div align="center"><font color="#000000" face="Verdana" size="3"><b>Indique nosso site a um Amigo</b><h5>Todos os campos são obrigatórios.</h5></font></div> </td> </tr> <tr valign="top"> <td width="100%"> <p align="center"><font color="#000000" face="Verdana" size="2"> Seu Nome:</font> <font color="#000000" face="Verdana" size="2"> <input type="text" size="28" style="font-family: Verdana; font-size: 8 pt; border-style: solid; border-width: 1" name="nome"> </font></td> </tr> <tr valign="top"> <td width="100%"> <p align="center"><font color="#000000" face="Verdana" size="2"> Seu E-mail:</font> <font color="#000000" face="Verdana" size="2"> <input type="text" size="28" style="font-family: Verdana; font-size: 8 pt; border-style: solid; border-width: 1" name="email" ></font></td> </tr> <tr valign="top"> <td width="100%"> <p align="center"><font color="#000000" face="Verdana" size="2"> Nome do Amigo:</font> <font color="#000000" face="Verdana" size="2"> <input type="text" size="28" style="font-family: Verdana; font-size: 8 pt; border-style: solid; border-width: 1" name="amigo" ></font></td> </tr> <tr valign="top"> <td width="100%"> <p align="center"><font color="#000000" face="Verdana" size="2"> E-mail do Amigo: <input type="text" size="28" style="font-family: Verdana; font-size: 8 pt; border-style: solid; border-width: 1" name="emamigo"></font></td> </tr> <tr valign="top"> <td width="100%"> <div align="center"> <font size="2"> <input type="submit" style="font-family: Verdana; font-size: 8 pt; background-color: #FFFFFF; color: #000000; border-style: solid; border-width: 1; padding: 0" name="acao" value="Enviar"> <input type="reset" style="font-family: Verdana; font-size: 8 pt; background-color: #FFFFFF; color: #000000; border-style: solid; border-width: 1; padding: 0" name="limpar" value="Limpar"> </font></div> </td> </tr> </table> </form></p> </html> Como faço para colocar esse código em todas as fotos, sendo que envie as fotos diferentes, que eu não tenha que criar um desse para cada foto ... Me ajudem por favor !!!! Abraços, Thiago -------------------- Thiago Oliveira

Caros amigos, Tenho um Sistema de Indique essa Foto, está funcionando corretamente, mais como posso fazer para que indiquem várias fotos diferentes, sem ter que criar vários arquivos em PHP, ou seja, que para todas as fotos, o arquivo PHP seja único, apenas alterne nas fotos. Por favor me dem um auxilio , sou iniciante !!! Abraços, Thiago

Caros amigos, tenho esse script abaixo que irei usar para o sistema de indique o site, mas gostaria que a página de que será enviada ao e-mail do destinatário fosse em formato html não em texto simples, como está configurado no código, por favor me ajudem, pois preciso disso, segue abaixo o meu código. ?> <html> <head> <title>Indique este site a um amigo</title> <link href="estilo.css" rel="stylesheet" type="text/css"> </head> <body> <? $site = "http://"; //COLOQUE O NOME DO SEU SITE AQUI if ($Submit == "Indicar") { if (empty($seu_nome)) {echo "<center><br><br><b>Você esqueceu de digitar seu nome</b><br><br><a href=javascript:window.history.go(-1)>Voltar</a></center>";exit;} elseif (empty($seu_email)) {echo "<center><br><br><b>Você esqueceu de digitar seu e-mail</b><br><br><a href=javascript:window.history.go(-1)>Voltar</a></center>";exit;} elseif (!(strpos($seu_email,"@")) OR strpos($seu_email,"@") !=strrpos($seu_email,"@")) {echo "<center><br><br><b>Você digitou um e-mail inválido</b><br><br><a href=javascript:window.history.go(-1)>Voltar</a></center>";exit;} elseif (empty($amigo_nome)) {echo "<center><br><br><b>Você esqueceu de digitar o nome do seu amigo</b><br><br><a href=javascript:window.history.go(-1)>Voltar</a></center>";exit;} elseif (empty($amigo_email)) {echo "<center><br><br><b>Você esqueceu de digitar o e-mail do seu amigo</b><br><br><a href=javascript:window.history.go(-1)>Voltar</a></center>";exit;} elseif (!(strpos($amigo_email,"@")) OR strpos($amigo_email,"@") !=strrpos($amigo_email,"@")) {echo "<center><br><br><b>Você digitou um e-mail inválido</b><br><br><a href=javascript:window.history.go(-1)>Voltar</a></center>";exit;} else { $mensagem = "Olá $amigo_nome, estava navegando na net e achei o site $site ele é bem legal, dê uma olhadinha aí... Depois a gente se fala, $seu_nome"; mail("$amigo_email","Olá $amigo_nome","$mensagem","From:$seu_nome<$seu_email>"); echo "<center><br><br><b>Obridago por ajudar o $site a crescer</b><br><br><a href=indique.php>Indicar o site a outro amigo</a><br><br><a href=javascript:window.close();>Fechar Janela</a></center>";exit; } } ?> <form name="form1" method="post" action=""> <table width="300" border="0" align="center" cellpadding="3" cellspacing="0"> <tr> <td colspan="2" align="center"><h2>Indique este site a um amigo</h2></td> </tr> <tr> <td width="40%" align="right">Seu Nome:</td> <td width="60%"><input name="seu_nome" type="text" id="seu_nome"></td> </tr> <tr> <td align="right">Seu e-mail:</td> <td><input name="seu_email" type="text" id="seu_email"></td> </tr> <tr> <td align="right">Nome do Amigo:</td> <td><input name="amigo_nome" type="text" id="amigo_nome"></td> </tr> <tr> <td align="right">E-mail do Amigo</td> <td><input name="amigo_email" type="text" id="amigo_email"></td> </tr> <tr> <td colspan="2" align="right"><input type="submit" name="Submit" value="Indicar"> <input type="reset" value="Cancelar" onClick="javascript:window.close();"></td> </tr> </table> </form> </body> </html>

Caros amigos, tenho esse script abaixo que irei usar para o sistema de indique o site, mas gostaria que a página de que será enviada ao e-mail do destinatário fosse em formato html não em texto simples, como está configurado no código, por favor me ajudem, pois preciso disso, segue abaixo o meu código. ?> <html> <head> <title>Indique este site a um amigo</title> <link href="estilo.css" rel="stylesheet" type="text/css"> </head> <body> <? $site = "http://"; //COLOQUE O NOME DO SEU SITE AQUI if ($Submit == "Indicar") { if (empty($seu_nome)) {echo "<center><br><br><b>Você esqueceu de digitar seu nome</b><br><br><a href=javascript:window.history.go(-1)>Voltar</a></center>";exit;} elseif (empty($seu_email)) {echo "<center><br><br><b>Você esqueceu de digitar seu e-mail</b><br><br><a href=javascript:window.history.go(-1)>Voltar</a></center>";exit;} elseif (!(strpos($seu_email,"@")) OR strpos($seu_email,"@") !=strrpos($seu_email,"@")) {echo "<center><br><br><b>Você digitou um e-mail inválido</b><br><br><a href=javascript:window.history.go(-1)>Voltar</a></center>";exit;} elseif (empty($amigo_nome)) {echo "<center><br><br><b>Você esqueceu de digitar o nome do seu amigo</b><br><br><a href=javascript:window.history.go(-1)>Voltar</a></center>";exit;} elseif (empty($amigo_email)) {echo "<center><br><br><b>Você esqueceu de digitar o e-mail do seu amigo</b><br><br><a href=javascript:window.history.go(-1)>Voltar</a></center>";exit;} elseif (!(strpos($amigo_email,"@")) OR strpos($amigo_email,"@") !=strrpos($amigo_email,"@")) {echo "<center><br><br><b>Você digitou um e-mail inválido</b><br><br><a href=javascript:window.history.go(-1)>Voltar</a></center>";exit;} else { $mensagem = "Olá $amigo_nome, estava navegando na net e achei o site $site ele é bem legal, dê uma olhadinha aí... Depois a gente se fala, $seu_nome"; mail("$amigo_email","Olá $amigo_nome","$mensagem","From:$seu_nome<$seu_email>"); echo "<center><br><br><b>Obridago por ajudar o $site a crescer</b><br><br><a href=indique.php>Indicar o site a outro amigo</a><br><br><a href=javascript:window.close();>Fechar Janela</a></center>";exit; } } ?> <form name="form1" method="post" action=""> <table width="300" border="0" align="center" cellpadding="3" cellspacing="0"> <tr> <td colspan="2" align="center"><h2>Indique este site a um amigo</h2></td> </tr> <tr> <td width="40%" align="right">Seu Nome:</td> <td width="60%"><input name="seu_nome" type="text" id="seu_nome"></td> </tr> <tr> <td align="right">Seu e-mail:</td> <td><input name="seu_email" type="text" id="seu_email"></td> </tr> <tr> <td align="right">Nome do Amigo:</td> <td><input name="amigo_nome" type="text" id="amigo_nome"></td> </tr> <tr> <td align="right">E-mail do Amigo</td> <td><input name="amigo_email" type="text" id="amigo_email"></td> </tr> <tr> <td colspan="2" align="right"><input type="submit" name="Submit" value="Indicar"> <input type="reset" value="Cancelar" onClick="javascript:window.close();"></td> </tr> </table> </form> </body> </html>

Você precisa criar um fscommand (exec) no botão, para um arquivo .bat, por exemplo: crie o bat no wordpad: @echooff start exemplo.avi salve este arquivo como teste.bat Depois crie o fscommand no botão: fscommand "exec" , "teste.bat" Ao clicar no botão elevai executar o teste.bat e redirecionar (abrir) o teste.avi Thiago Oliveira