arldin
-
Total de itens
278 -
Registro em
-
Última visita
Tudo que arldin postou
-
já tinha tentado deste jeito e não funciona
-
Boa tarde amigos Gostaria de saber se tem como colocar imagem no corpo do email, usando Este script enviar1a.asp <% sch = "http://schemas.microsoft.com/cdo/configuration/" Set cdoConfig = Server.CreateObject("CDO.Configuration") 'Variaveis Dim meuservidorsmtp Dim minhacontaautenticada Dim minhasenhaparaenvio Dim emailorigem Dim emaildestino 'Abaixo seguem algumas definicoes de variaveis para o envio de seu formulario. Por favor preencha os campos abaixo. meuservidorsmtp = "mail.arldinartfest.com.br" ' Informacoes so seu servidor SMTP minhacontaautenticada = "arldin@arldinartfest.com.br" ' conta de e-mail utilizada para enviar minhasenhaparaenvio = "XXXXXXX" ' senha da conta de e-mail emailorigem = "pedidos@arldinartfest.com.br" ' e-mail que indica de onde partiu a mensagem emaildestino = "arldin@arldinartfest.com.br" ' e-mail que vai receber as mensagens do formulario 'Fim da definição manual de parâmetros. cdoConfig.Fields.Item(sch & "sendusing") = 2 cdoConfig.Fields.Item(sch & "smtpauthenticate") = 1 cdoConfig.Fields.Item(sch & "smtpserver") = meuservidorsmtp cdoConfig.Fields.Item(sch & "smtpserverport") = 25 cdoConfig.Fields.Item(sch & "smtpconnectiontimeout") = 30 cdoConfig.Fields.Item(sch & "sendusername") = minhacontaautenticada cdoConfig.Fields.Item(sch & "sendpassword") = minhasenhaparaenvio cdoConfig.fields.update Set cdoMessage = Server.CreateObject("CDO.Message") Set cdoMessage.Configuration = cdoConfig cdoMessage.BodyPart.Charset = "utf-8" cdoMessage.From = emailorigem cdoMessage.To = emaildestino cdoMessage.Subject = "Formulario de Pedido" cdoMessage.ReplyTo = Request("responder") strBody = "<strong><p><center><font color=blue>FORMULARIO DE PEDIDOS</font></center></strong>" & vbCrLf & vbCrLf & _ (GOSTARIA QUE A IMAGEM APARECE-SE AQUI...ESTA PARTE NÃO E DO SCRIPT) "<strong><p><font color=red>HOMEM ARANHA QUANT: </font> "& Request("quant1") & vbCrLf & _ "<strong><font color=blue>TOTAL: </strong></font> "& Request("total1") & vbCrLf & _ "<strong><p><font color=red>FLAMENGO QUANT: </font> "& Request("quant2") & vbCrLf & _ "<strong><font color=blue>TOTAL: </font></strong> "& Request("total2") & vbCrLf & _ "<strong><p><font color=red>VASCO QUANT: </font> "& Request("quant3") & vbCrLf & _ strBody = strBody & "." cdoMessage.HTMLBody = strBody cdoMessage.Send() Set cdoMessage = Nothing Set cdoConfig = Nothing response.redirect "envio.htm" %>
-
(Resolvido) Uma ajuda neste script
pergunta respondeu ao arldin de arldin em Ajax, JavaScript, XML, DOM
Resolvido Valeu deu certo Obrigado pela a ajuda -
Bom dia amigos eu tenho este script de banner esta tudo legal Mais gostaria de saber se tem como colocar que as imagens aparecam em determinado tempo e não quando for acessada a pagina E assim Quando de 6:00 horas da manha apareça a figura bom dia as 12:00 horas apareça a figura boa tarde quando for 18:00 apareça a figura ate amanha e as 19:00 a figura boa noite tem como fazer isto Este e o script <html><head><title></title> <style type="text/css">body {margin:0;border:0;background:transparent;}</style> </head><body> <script language="JavaScript"> hoje = new Date() numero_de_imagens = 4 segundos = hoje.getSeconds() numero = segundos % numero_de_imagens if (numero == 0){banner = "http://www.arldinartfest.com.br/saudacao/bom_dia.gif"} if (numero == 1){banner = "http://www.arldinartfest.com.br/saudacao/boa tarde.gif"} if (numero == 2){banner = "http://www.arldinartfest.com.br/saudacao/ate_amanha.gif"} if (numero == 3){banner = "http://www.arldinartfest.com.br/saudacao/boa_noite.gif"} document.write('<img src="' + banner + '" border=0>') </script> </body></html> desde já agradeço a todos
-
So que nesta aqui o que eu estou querendo e que quando clicarem para fazer a indicação ele fecha a pagina, como eu tenho uma pagina de fecha, quando eu coloco ele como redirect e já pede para fecha antes de prenchimento
-
Bom dia amigos gostaria de auma ajuda como coloco um redirect nest script em asp eu seo mais no php sou leigo quando fazer a indicação <html> <head></head> <body> <?php include("conf.txt"); ?> <form method="POST" action="<?php $PHP_SELF ?>"> <p style="margin-top: 0; margin-bottom: 0"><font class=fontinput>Seu Nome: </font><input class="typetext" type="text" name="seunome" size="20"></p> <p style="margin-top: 0; margin-bottom: 0"><font class=fontinput>Seu E-mail: </font><input class="typetext" type="text" name="seuemail" size="20"></p> <p style="margin-top: 0; margin-bottom: 0"><font class=fontinput>Nome do Amigo: </font><input class="typetext" type="text" name="outronome" size="20"></p> <p style="margin-top: 0; margin-bottom: 0"><font class=fontinput>E-mail do Amigo: </font><input class="typetext" type="text" name="outroemail" size="20"></p> <br> <p style="margin-top: 0; margin-bottom: 0"><input type="submit" class="typesubmit" value="Submeter" name="send"><input type="reset" class="typesubmit" value="Redefinir" name="B2"></p> </form> <?php if (isset($send)){ if(($seunome == "") and ($seuemail == "") and ($outronome == "") and ($outroemail == "")){ echo "<font class=fontinput>Algum dos itens obrigatórios não foi preenchido</font><br>"; } else { mail("$outroemail", "$assunto", "$comentario. \nMensagem de $seunome do $seuemail para $outronome"); } } ?> </body> </html> Desde já agradeço a todos
-
Fiz o que você me surgeriu mais da erro
-
Bom dia amigos gostaria de uma ajuda pois não sei muito de php Coo faço para colocar mais anexo neste script emviar.php <?php //pego os dados enviados pelo formulario $nome = $_POST["nome"]; $email = $_POST["email"]; $mensagem = $_POST["mensagem"]; $assunto = $_POST["assunto"]; $email_from = $_POST["email_from"]; //formato o campo da mensagem $mensagem = wordwrap( $mensagem, 30, " ", 1); //valido os emails if (!ereg("^([0-9,a-z,A-Z]+)([.,_]([0-9,a-z,A-Z]+))*[@]([0-9,a-z,A-Z]+)([.,_,-]([0-9,a-z,A-Z]+))*[.]([0-9,a-z,A-Z]){2}([0-9,a-z,A-Z])?$", $email)){ echo"<center>Digite um email valido</center>"; echo "<center><a href=\"java script:history.go(-1)\">Voltar</center></a>"; exit; } if (!ereg("^([0-9,a-z,A-Z]+)([.,_]([0-9,a-z,A-Z]+))*[@]([0-9,a-z,A-Z]+)([.,_,-]([0-9,a-z,A-Z]+))*[.]([0-9,a-z,A-Z]){2}([0-9,a-z,A-Z])?$", $email_from)){ echo "<center>Digite um email valido</center>"; echo "<center><a href=\"java script:history.go(-1)\"><center>Voltar</center></a>"; exit; } $arquivo = isset($_FILES["arquivo"]) ? $_FILES["arquivo"] : FALSE; if(file_exists($arquivo["tmp_name"]) and !empty($arquivo)){ $fp = fopen($_FILES["arquivo"]["tmp_name"],"rb"); $anexo = fread($fp,filesize($_FILES["arquivo"]["tmp_name"])); $anexo = base64_encode($anexo); fclose($fp); $anexo = chunk_split($anexo); $boundary = "XYZ-" . date("dmYis") . "-ZYX"; $mens = "--$boundary\n"; $mens .= "Content-Transfer-Encoding: 8bits\n"; $mens .= "Content-Type: text/html; charset=\"ISO-8859-1\"\n\n"; //plain $mens .= "<font size=’1' COLOR=ff0000><b>Nome:</font></b> $nome\n<br>"; $mens .= "<font size=’1' COLOR=ff0000><b>Email:</font></b> $email\n<br>"; $mens .= "<font size=’1' COLOR=ff0000><b>Mensagem:</font></b> $mensagem\n"; $mens .= "--$boundary\n"; $mens .= "Content-Type: ".$arquivo["type"]."\n"; $mens .= "Content-Disposition: attachment; filename=\"".$arquivo["name"]."\"\n"; $mens .= "Content-Transfer-Encoding: base64\n\n"; $mens .= "$anexo\n"; $mens .= "--$boundary--\r\n"; $headers = "MIME-Version: 1.0\n"; $headers .= "From: \"$nome\" <$email_from>\r\n"; $headers .= "Content-type: multipart/mixed; boundary=\"$boundary\"\r\n"; $headers .= "$boundary\n"; //envio o email com o anexo mail($email,$assunto,$mens,$headers); echo "<script>document.location='http://www.arldinartfest.com.br/envio.htm'</script>"; } //se não tiver anexo else{ $headers = "MIME-Version: 1.0\r\n"; $headers .= "Content-type: text/html; charset=iso-8859-1\r\n"; $headers .= "From: \"$nome\" <$email_from>\r\n"; //envia o email sem anexo mail($email,$assunto,$mensagem, $headers); echo "<script>document.location='http://www.arldinartfest.com.br/envio.htm'</script>"; } ?><HTML> <HEAD> <TITLE></TITLE> <META NAME="GENERATOR" CONTENT="Sothink HTML Editor"> </HEAD> <BODY> </BODY> </HTML> formulario esta esta em asp <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3c.org/TR/1999/REC-html401-19991224/loose.dtd"> <HTML><HEAD> <script language="javascript"> function checa_formulario(email){ if (email.nome.value == ""){ alert("Por Favor não deixe o seu nome em branco!!!"); email.nome.focus(); return (false); } if (email.email_from.value == ""){ alert("Por Favor não deixe o seu email em branco!!!"); email.email_from.focus(); return (false); } if (email.email.value == ""){ alert("não deixe o email destinatario em branco!!!"); email.email.focus(); return (false); } if (email.assunto.value == ""){ alert("não deixe o assunto em branco!!!"); email.assunto.focus(); return (false); } } </script> <title>Fale Conosco</title> <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"> <style type="text/css"> <!-- .email { text-transform: lowercase; } .texto { color: #FF0000 } .style1 {color: #FF0000} --> </style> <HTML> <HEAD> <TITLE></TITLE> <META NAME="GENERATOR" CONTENT="Sothink HTML Editor"> </HEAD> <BODY> <TR> <form onSubmit="return checa_formulario(this)" action="envia.php" method="post" enctype="multipart/form-data" name="email"> <h1 align="LEFT" class="style1">Fale Conosco </h1> <table width="32%" border="0" align="LEFT"> <tr> <td><div align="LEFT" class="texto">Nome</div></td> <td><input name="nome" type="text" id="nome"></td> </tr> <tr> <td width="33%"><div align="LEFT" class="texto">Seu Email</div></td> <td width="67%"><input name="email_from" type="Text" class="email" ID="email"></td> </tr> <tr> <td><div align="LEFT" class="texto"></div></td> <td><input name="email" type="Hidden" class="email" VALUE="arldin@arldinartfest.com.br"> </tr> <tr> <td><div align="LEFT" class="texto">Assunto</div></td> <td><input name="assunto" type="text" id="assunto"></td> </tr> <tr> <td><div align="LEFT" class="texto">Mensagem</div></td> <td><textarea name="mensagem" cols="30" rows="10" id="mensagem"></textarea></td> </tr> <tr> <td><div align="LEFT" class="texto">Anexo</div></td> <td><input name="arquivo" type="file" </td> <font COLOR="ff0000" SIZE="4">Se tiver alguma foto de festa que queira que eu faça e so enviar</TD> </tr> <tr> <td></td> <td><input type="submit" name="Submit" value="Enviar"></td> </tr> </BODY> </HTML> desde já agradeço a todos
-
valeu pela força Obrigado me foi util e esta resolvido
-
Boa noite amigos gostaria de saber como faço para que depois que o email e enviado seja rediricionado para outra pagina este e o script <?php //pego os dados enviados pelo formulario $nome = $_POST["nome"]; $email = $_POST["email"]; $mensagem = $_POST["mensagem"]; $assunto = $_POST["assunto"]; $email_from = $_POST["email_from"]; //formato o campo da mensagem $mensagem = wordwrap( $mensagem, 30, " ", 1); //valido os emails if (!ereg("^([0-9,a-z,A-Z]+)([.,_]([0-9,a-z,A-Z]+))*[@]([0-9,a-z,A-Z]+)([.,_,-]([0-9,a-z,A-Z]+))*[.]([0-9,a-z,A-Z]){2}([0-9,a-z,A-Z])?$", $email)){ echo"<center>Digite um email valido</center>"; echo "<center><a href=\"java script:history.go(-1)\">Voltar</center></a>"; exit; } if (!ereg("^([0-9,a-z,A-Z]+)([.,_]([0-9,a-z,A-Z]+))*[@]([0-9,a-z,A-Z]+)([.,_,-]([0-9,a-z,A-Z]+))*[.]([0-9,a-z,A-Z]){2}([0-9,a-z,A-Z])?$", $email_from)){ echo "<center>Digite um email valido</center>"; echo "<center><a href=\"java script:history.go(-1)\"><center>Voltar</center></a>"; exit; } $arquivo = isset($_FILES["arquivo"]) ? $_FILES["arquivo"] : FALSE; if(file_exists($arquivo["tmp_name"]) and !empty($arquivo)){ $fp = fopen($_FILES["arquivo"]["tmp_name"],"rb"); $anexo = fread($fp,filesize($_FILES["arquivo"]["tmp_name"])); $anexo = base64_encode($anexo); fclose($fp); $anexo = chunk_split($anexo); $boundary = "XYZ-" . date("dmYis") . "-ZYX"; $mens = "--$boundary\n"; $mens .= "Content-Transfer-Encoding: 8bits\n"; $mens .= "Content-Type: text/html; charset=\"ISO-8859-1\"\n\n"; //plain $mens .= "$mensagem\n"; $mens .= "--$boundary\n"; $mens .= "Content-Type: ".$arquivo["type"]."\n"; $mens .= "Content-Disposition: attachment; filename=\"".$arquivo["name"]."\"\n"; $mens .= "Content-Transfer-Encoding: base64\n\n"; $mens .= "$anexo\n"; $mens .= "--$boundary--\r\n"; $headers = "MIME-Version: 1.0\n"; $headers .= "From: \"$nome\" <$email_from>\r\n"; $headers .= "Content-type: multipart/mixed; boundary=\"$boundary\"\r\n"; $headers .= "$boundary\n"; //envio o email com o anexo mail($email,$assunto,$mens,$headers); echo"Email enviado com Sucesso!"; } //se não tiver anexo else{ $headers = "MIME-Version: 1.0\r\n"; $headers .= "Content-type: text/html; charset=iso-8859-1\r\n"; $headers .= "From: \"$nome\" <$email_from>\r\n"; //envia o email sem anexo mail($email,$assunto,$mensagem, $headers); echo"Email enviado com Sucesso!"; } ?><HTML> <HEAD> <TITLE></TITLE> <META NAME="GENERATOR" CONTENT="Sothink HTML Editor"> </HEAD> <BODY> </BODY> </HTML> Desde já agradeço a todos
-
Boa tarde amigos gostaria de saber se tem como eu incluir anexo neste scripts Eles funciona bem este e o primeiro enviar3.asp <% sch = "http://schemas.microsoft.com/cdo/configuration/" Set cdoConfig = Server.CreateObject("CDO.Configuration") 'Variaveis Dim meuservidorsmtp Dim minhacontaautenticada Dim minhasenhaparaenvio Dim emailorigem Dim emaildestino 'Abaixo seguem algumas definicoes de variaveis para o envio de seu formulario. Por favor preencha os campos abaixo. meuservidorsmtp = "mail.arldinartfest.com.br" ' Informacoes so seu servidor SMTP minhacontaautenticada = "arldin@arldinartfest.com.br" ' conta de e-mail utilizada para enviar minhasenhaparaenvio = "XXXXXXXX" ' senha da conta de e-mail emailorigem = "arldin@arldinartfest.com.br" ' e-mail que indica de onde partiu a mensagem emaildestino = "arldin@arldinartfest.com.br" ' e-mail que vai receber as mensagens do formulario 'Fim da definição manual de parâmetros. cdoConfig.Fields.Item(sch & "sendusing") = 2 cdoConfig.Fields.Item(sch & "smtpauthenticate") = 1 cdoConfig.Fields.Item(sch & "smtpserver") = meuservidorsmtp cdoConfig.Fields.Item(sch & "smtpserverport") = 25 cdoConfig.Fields.Item(sch & "smtpconnectiontimeout") = 30 cdoConfig.Fields.Item(sch & "sendusername") = minhacontaautenticada cdoConfig.Fields.Item(sch & "sendpassword") = minhasenhaparaenvio cdoConfig.fields.update Set cdoMessage = Server.CreateObject("CDO.Message") Set cdoMessage.Configuration = cdoConfig cdoMessage.BodyPart.Charset = "utf-8" cdoMessage.From = emailorigem cdoMessage.To = emaildestino cdoMessage.Subject = "Fale Conosco" cdoMessage.ReplyTo = Request("responder") strBody = "<strong><p><center><font color=blue>FALE CONOSCO</font></center></p></strong>" & vbCrLf & vbCrLf & _ "<strong><p><font color=blue>NOME:</font></strong> "& Request("op") & vbCrLf & _ "<strong><p><font color=blue>SEU E-MAIL: </font></strong> "& Request("responder") & vbCrLf & _ "<strong><p><font color=blue>SUA MENSAGEM </font></strong></p> "& Request("mensagem") strBody = strBody & "." cdoMessage.HTMLBody = strBody cdoMessage.send Set cdoMessage = Nothing Set cdoConfig = Nothing response.redirect "http://www.arldinartfest.com.br/envio.htm" %> Este e o formulario.asp <HTML> <HEAD> <TITLE></TITLE> <META NAME="GENERATOR" CONTENT="Sothink HTML Editor"> </HEAD> <BODY> <TABLE cellSpacing=0 cellPadding=0 width="100%" border=0> <TBODY> <TR> <TD vAlign=top width="30%"><FONT color=#ff0000 size=5>Fale Conosco</FONT><BR><BR> <FORM id=formEmail name=formEmail action=enviar3.asp method=post> <P><FONT color=#ff0000> <LEGEND align="Center"></FONT><FONT size=1><FONT color=#0000ff><INPUT style="WIDTH: 168px; HEIGHT: 22px" readOnly type=hidden size=21 value=arldin@arldinartfest.com.br name=destino></FONT></FONT><FONT size=1><FONT color=#0000ff><FONT size=2><FONT color=#0000ff>Nome do Remetente<BR></FONT></FONT><INPUT id="op" style="WIDTH: 215px; HEIGHT: 22px" size=24 name=op> </FONT><FONT size=1><FONT color=#0000ff><FONT color=#0000ff size=2></FONT></FONT></FONT><FONT size=1><FONT color=#0000ff><BR><FONT color=#0000ff size=2>E-mail de Resposta </FONT><BR><INPUT id=responder style="WIDTH: 215px; HEIGHT: 22px" size=26 name=responder> </FONT><FONT color=#0000ff size=1></FONT><FONT color=#0000ff><FONT color=#0000ff><FONT color=#0000ff></FONT></FONT></FONT><BR><FONT color=#0000ff>Sua mensagem </FONT><FONT size=2><FONT color=#0000ff size=3></FONT><BR></FONT><TEXTAREA id=mensagem style="WIDTH: 265px; HEIGHT: 108px" name=mensagem cols=25></TEXTAREA><FONT size=2> <BR></FONT><INPUT id=botao type=submit value=Envia name=botao></SPAN> </FONT></FONT></P></TD> </TR></TBODY></TABLE></FORM></TD></TR></TBODY></TABLE> </BODY> </HTML> Desde já agradeço a todos
-
O que eu quero que ao invés de ir para um dirtorio ele seja gravado no campo do MSQL,o nome do campo e imagem
-
Boa tarde amigos Procurei aqui e no google e não encontre uma tutoria para fazer um script em asp de upload de imagem para um banco em MYSQL alguém poderia me dar uma dica Desde já agradeço a todos
-
Amigos consequi resolver Aqui esta o script <HTML> <HEAD> <TITLE></TITLE> <META NAME="GENERATOR" CONTENT="Sothink HTML Editor"> <script language="javascript"> var fotos = new Array(); var exibir = 0; // Coloque o nome de suas imagens aqui fotos[0] = "http://www.arldinartfest.com.br/index_arquivos/01.jpg"; //coloque aqui o nome usado na primeira imagem da galeria fotos[1] = "http://www.arldinartfest.com.br/index_arquivos/02.jpg"; fotos[2] = "http://www.arldinartfest.com.br/index_arquivos/03.jpg"; // Para colocar mais imagens basta seguir a ordem. Por exemplo: // fotos[4] ="foto4.jpg" // Funcao responsavel pela volta das imagens function imgVoltar() { if (exibir > 0) { window.status = ''; exibir--; document.images.fotoGaleria.src = fotos[exibir]; } } //Funcao resposavel pelo avanco das imagens function forward() { if (exibir < fotos.length-1) { exibir++; document.images.fotoGaleria.src = fotos[exibir]; } else { window.status = 'Fim da Galeria'; } } </script> </HEAD> <BODY> <table border="0" cellpadding="0" align="center"> <tr> <td width="100%"> <!-- Coloque aqui a primeira imagem da sua galeria--> <img src="http://www.arldinartfest.com.br/index_arquivos/01.jpg" name="fotoGaleria" /> </td> </tr> <tr> <td width="100%" align="center"> <form method="post" name="rotater"> <input type="button" value="Voltar" onclick="imgVoltar()" /> <input type="button" value="Próxmo" onclick="forward()" /> </form> </td> </tr> </table> </BODY> </HTML> Eu esqueci de dizer que depois e so colocar no popup OK
-
Amgos eu consequi este aqui, beleza mais ele passa altomaticamente, a onde eu mudo para que ele pase ao clicar na imagem <HTML> <HEAD> <TITLE></TITLE> <META NAME="GENERATOR" CONTENT="Sothink HTML Editor"> <script type="text/javascript"> <!-- var x=0; var imagem=new Array(); imagem[0]="index_arquivos/01.jpg"; imagem[1]="index_arquivos/02.jpg"; imagem[2]="index_arquivos/03.jpg"; // e assim por diante, conforme o n.º de imagens var site=new Array(); site[0]="www.arldinartfest.com.br"; site[1]="www.arldinartfest.com.br"; site[2]="www.arldinartfest.com.br"; function mudar_banner(){ document.getElementById("banner").src=imagem[x]; document.getElementById('link').href=site[x]; x++; if (x==3){ // aqui compara x com a quantidade total de imagens que tem x=0; } } setInterval('mudar_banner()',1000); //--> </script> </HEAD> <BODY> <a href="www.arldinartfest.com.br" id="link"> <img id="banner" src="index_arquivos/01.jpg"> </a> </BODY> </HTML>
-
Anigo eu sou leigo em array tem como você me amostrar um exemplo com 3 fotos
-
Boa tarde amigos não sei se e posivel fazer o sequinte Criar uma janela pop up com imagem que quando abri uma imagem eu clique na imagem e abrir no mesmo pop up outra imagem e assim sucesivamente Desde já agradeço a todos
-
Este e linlAlbum tipo livro
-
Bom dia amigos eu tenho este escript em asp para um album de foto tipo livro. Ele funciona legal, eu gostaria de saber a onde eu mudo para que as paginas so pasem quando clicar e como fazer que quando amostra a ultima ele pare. Pois ele continua passando as paginas Este e o codico Desde já agradeço a todos
-
Muito obrigado pela ajuda valeu mesmo
-
SQL server 2005
-
Bom dia amigos esta e a primeira vez que posto aqui Estou precisando de uma ajuda E o sequinte Estou precisando fazer uma tabela em SQL server, e nõa sei como entro no meu SQL, pois nunca usei, sempre usei o acees O que quero saber e como entro no SQL Desde já agradeço a todos
-
Resolvodo foi so clocara este codico e ele fecha e sai <% session.abandon %>
-
Boa tarde amigos eu gostaria de saber se tem como sair da pagina em asp quando a pagina for fechada. pois não quero colocar um botão de sair pois outras pessoas poderam fechala sem quere o script e este abaixo <% Option Explicit Dim sql,username,rsUser,rsMessages,newcount username = Request.Cookies("username") 'If the username cookie is set, they must have logged in, so get their details from the database if username <> "" then %> <!--#include file="conn.asp"--> <% sql = "SELECT icon FROM Users WHERE username = '" & username & "'" Set rsUser = Server.CreateObject("ADODB.Recordset") rsUser.Open sql, conn, 3, 3 sql = "SELECT messageread FROM messages WHERE sendto = '" & username & "'" Set rsMessages = Server.CreateObject("ADODB.Recordset") rsMessages.Open sql, conn, 3, 3 newcount = 0 if not rsMessages.EOF then rsMessages.Movefirst do until rsMessages.EOF if rsMessages("messageread") = False then newcount = newcount + 1 end if rsMessages.Movenext loop rsMessages.Movefirst end if end if %> <html> <head> <script language="JavaScript"> <!-- hide on function popup(popupfile,winheight,winwidth) { open(popupfile,"PopupWindow","resizable=no,height=" + winheight + ",width=" + winwidth + ",scrollbars=no"); } // hide off --> </script> <title>Homepage</title> </head> <body bgcolor="#FFFFFF" link="#DD0000" vlink="#DD0000" alink="#000000"> <font face="arial,helvetica" size=2> <h3 align="center"></h3> <table width="180" cellpadding=3 cellspacing=0 border=0 bordercolor="#000000" align="CENTER"> <%'If they're not logged in, then display a login box if username = "" then%> <tr> </tr> <tr> <form name="login" action="signin.asp" method="post"> <input type="hidden" name="page" value="index1.asp"> </form> </tr> <%'If they are, show a mini profile box plus a sign out link else%> <tr> <td bgcolor="#FFFFFF"> <font face="arial,helvetica" size=1><b> <img src="icons/<%=rsUser("icon")%>.gif" width=50 height=50 align="right"> <font size="2">Voce esta falando com <%=username%>.</font><br> </b></font> </td> </tr> <% rsUser.close set rsUser = nothing rsMessages.close set rsMessages = nothing conn.close set conn = nothing end if %> </table> </font> </body> </html> Tem como fazer
-
A minha duvida e esta Este e o script de form.asp <!--#include file = "conexao.asp"--> <html> <head> <title>form</title> </head> <body> <center><font face="Arial" size="4"><b>Login</b></h2></center> <form method=post action="login.asp"> <table border=0 width="80%" align=center> <tr> <td align=right valign=top><font face="Arial" size="2">Usuário:</font></td> <td align=left valign=top> <font face="Arial" size="2"> <input type=text name="Login" value="" size=15 maxlength=50 style="{<font-family:Arial; font-size:12}"> </td> </tr> <tr> <td align=right valign=top><font face="Arial" size="2">Senha:</font></td> <td align=left valign=top> <font face="Arial" size="2"> <input type=password name="Senha" value="" size=15 maxlength=50 style="{<font-family:Arial; font-size:12}"> </td> </tr> </font> </table> <center><input type=submit name=submit value=Logar style="{<font-family:Arial; font-size:12}"></center> </form> </body> </html> nesta como coloco para que apareça imagem este e o scipt de login.asp <% set conexao = server.createObject("adodb.connection") conexao.Open "Provider=Microsoft.JET.OLEDB.4.0; Data Source=" & server.MapPath("login.mdb") sql = "select * from login where login = '"&request.form("login")&"' and senha = '"&request.form("senha")&"'" set rsLogin = conexao.execute(sql) Login = rsLogin("login") Senha = rsLogin("senha") if not rsLogin.eof then Session("login")=TRUE Session("senha")=TRUE Response.Redirect"ucp.asp" else Response.Redirect"form.asp" end if conexao.close rsLogin.close set conexao = nothing set rsLogin = nothing %> e a onde ue coloco´neste e este e a script onde eu quero que apareça ucp.asp <% if session("login")&""="" AND session("senha")&""="" then response.redirect "form.asp" else response.write "Voc está logado" end if %> <html> <head> <title>ucp</title> </head> <body> <br> Hoje é: <%=FormatDateTime((date),vblongdate)%> </body> </html> a duvida e a onde eu coloco os codico e como Um Feliz Natal