watequate's Content
There have been 49 items by watequate (Search limited from 27/05/2023)
#616657 Duvida Nesse Codigo
Posted by
on 22/07/2005, 14:13
in
ASP
eh justamente onde vc pediu pra eu colocar e q esta em negrito. objMail...
#616627 Duvida Nesse Codigo
Posted by
on 22/07/2005, 13:26
in
ASP
Nao deu certo nao, deu o seguinte erro edmais:
Microsoft VBScript runtime error '800a01a8'
Object required: ''
/newsletters/admin.asp, line 48
Microsoft VBScript runtime error '800a01a8'
Object required: ''
/newsletters/admin.asp, line 48
#616440 Duvida Nesse Codigo
Posted by
on 22/07/2005, 09:01
in
ASP
Fala pessoal do forum.
estou com o seguinte codigo para o envio de newsletter mas estou com um probleminha: nao consigo enviar uma imagem no corpo desse email. Ja tentei colocar <img src="http://www.meusite.c...ns/imagem.gif"> mas qnd chega no email soh aparece o texto do codigo. Oq eu tenho q modificar para solucionar esse meu problema ? vai o codigo abaixo:
<!--#include file="restrito.asp"-->
<!--#include file="cons.asp"-->
<html>
<head>
<title>Administração da NewsLetter</title>
<style>
input {background-color: #D4D4D4; font-family: Verdana; font-size: 8pt; color: #000000;}
textarea {background-color: #D4D4D4; font-family: Verdana; font-size: 8pt; color: #000000;}
</style>
</head>
<body link="#000000" vlink="#000000" alink="#000000">
<font face="Verdana" size="2">
<% acao=Request.querystring("acao")
select case acao
case "enviar" %>
<form action="admin.asp?acao=enviando" method="post">
<input type="hidden" name="data" value="<%=Date()%>">
<p align="center">
Assunto :<br>
<input type="text" name="assunto" size="49"><br>
Mensagem :<br>
<textarea name="mensagem" cols="60" rows="15"></textarea><br>
<input type="submit" value="Enviar">
</form><BR>
Obs: Todos os e-mails são enviados em formato HTML<BR>
Para quebra de linha utilize a tag "<br>"
<hr size="1">
<% case "enviando" %>
<% user = 0
assunto = Request.Form("assunto")
mensagem = Request.form("mensagem")
mensagem = mensagem & "<br><br>Para parar de receber este email <a href="& site & ">clique aqui</a>"
AbreConexao
Sql = "SELECT email FROM dados"
If Len(mensagem) Then
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open Sql, ConStr, 3, 3
While Not rs.EOF
Set mail = Server.CreateObject("CDONTS.NewMail")
mail.From = email
mail.To = rs("email")
mail.Subject = assunto
mail.BodyFormat = 0
mail.Body = mensagem
mail.Send
Set mail = Nothing
Response.Write "Email enviado para : " & rs("email") & "<br>"
user = user + 1
rs.MoveNext
Wend
Response.Write "No total foram enviados " & user & " emails."
rs.Close
Set rs = Nothing
Sql = "INSERT INTO enviados (assunto,mensagem,data) "
Sql = Sql & "VALUES('" & Request.Form("assunto") & "','" & mensagem & "','" & Request.Form("data") & "')"
Conexao.Execute(Sql)
Else
Response.Redirect "admin.asp?acao=erro"
End If
FechaConexao %>
<% case "modificar" %>
<% AbreConexao
Sql = "SELECT * From dados"
Set rs = Conexao.Execute(Sql)
while not rs.EOF%>
<table border="0" cellpadding="0" cellspacing="0">
<tr>
<td><input type="text" value="<%=rs("email")%>" name="email" size="30"></td>
<td><form method="POST" action="admin.asp?acao=alterar&id=<%=rs("id")%>">
<input type="submit" value="Alterar"></form></td>
<td><form method="POST" action="admin.asp?acao=deletar&id=<%=rs("id")%>">
<input type="submit" value="Apagar"></form></td>
</tr>
</table>
<hr size="1">
<% rs.MoveNext
wend
FechaConexao %>
<% case "deletar" %>
<% id = request.querystring("id")
AbreConexao
Sql = "DELETE id,email FROM dados WHERE id = " & id &""
Conexao.Execute(Sql)
FechaConexao %>
E-Mail deletado com sucesso!<BR>
<hr size="1">
<% case "alterar" %>
<% id = request.querystring("id")
AbreConexao
Sql = "UPDATE dados SET email = '" & Request.Form("email") & "' WHERE id = " & id & " "
Conexao.Execute(Sql)
FechaConexao %>
E-Mail alterado com sucesso!<BR>
<hr size="1">
<% case "todas" %>
<% AbreConexao
Sql = "SELECT * From enviados"
Set rs = Conexao.Execute(Sql)
while not rs.EOF %>
Assunto: <font color="red"><%=rs("assunto")%></font><BR>
Enviada em: <font color="red"><%=rs("data")%></font><BR>
Mensagem:<BR>
<%=rs("mensagem")%><BR><BR><BR>
<HR size="1">
<% rs.MoveNext
wend
FechaConexao %>
<% case "erro" %>
Ocorreu um erro ao tentar efetuar a operação. Tente novamente.<BR>
<hr size="1">
<% case else %>
<% AbreConexao
Sql = "SELECT * FROM dados"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open Sql, ConStr, 3, 3 %>
No total <%=rs.recordcount%> pessoas estão cadastradas no seu newsletter<BR>
<a href="admin.asp?acao=modificar">Modificar/Alterar os dados dos cadastrados</a><BR>
<a href="admin.asp?acao=enviar">Enviar E-Mail</a><BR>
<a href="admin.asp?acao=todas">Todos os e-mails já enviados</a>
<HR size="1">
<% FechaConexao
end select %>
</font>
<p align="center"><font color="#FF0000" size="2">
Script Desenvolvido por <a href="mailto:felipeb2000@bol.com.br">Felipe Siola</a></font>
</body>
</html>
estou com o seguinte codigo para o envio de newsletter mas estou com um probleminha: nao consigo enviar uma imagem no corpo desse email. Ja tentei colocar <img src="http://www.meusite.c...ns/imagem.gif"> mas qnd chega no email soh aparece o texto do codigo. Oq eu tenho q modificar para solucionar esse meu problema ? vai o codigo abaixo:
<!--#include file="restrito.asp"-->
<!--#include file="cons.asp"-->
<html>
<head>
<title>Administração da NewsLetter</title>
<style>
input {background-color: #D4D4D4; font-family: Verdana; font-size: 8pt; color: #000000;}
textarea {background-color: #D4D4D4; font-family: Verdana; font-size: 8pt; color: #000000;}
</style>
</head>
<body link="#000000" vlink="#000000" alink="#000000">
<font face="Verdana" size="2">
<% acao=Request.querystring("acao")
select case acao
case "enviar" %>
<form action="admin.asp?acao=enviando" method="post">
<input type="hidden" name="data" value="<%=Date()%>">
<p align="center">
Assunto :<br>
<input type="text" name="assunto" size="49"><br>
Mensagem :<br>
<textarea name="mensagem" cols="60" rows="15"></textarea><br>
<input type="submit" value="Enviar">
</form><BR>
Obs: Todos os e-mails são enviados em formato HTML<BR>
Para quebra de linha utilize a tag "<br>"
<hr size="1">
<% case "enviando" %>
<% user = 0
assunto = Request.Form("assunto")
mensagem = Request.form("mensagem")
mensagem = mensagem & "<br><br>Para parar de receber este email <a href="& site & ">clique aqui</a>"
AbreConexao
Sql = "SELECT email FROM dados"
If Len(mensagem) Then
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open Sql, ConStr, 3, 3
While Not rs.EOF
Set mail = Server.CreateObject("CDONTS.NewMail")
mail.From = email
mail.To = rs("email")
mail.Subject = assunto
mail.BodyFormat = 0
mail.Body = mensagem
mail.Send
Set mail = Nothing
Response.Write "Email enviado para : " & rs("email") & "<br>"
user = user + 1
rs.MoveNext
Wend
Response.Write "No total foram enviados " & user & " emails."
rs.Close
Set rs = Nothing
Sql = "INSERT INTO enviados (assunto,mensagem,data) "
Sql = Sql & "VALUES('" & Request.Form("assunto") & "','" & mensagem & "','" & Request.Form("data") & "')"
Conexao.Execute(Sql)
Else
Response.Redirect "admin.asp?acao=erro"
End If
FechaConexao %>
<% case "modificar" %>
<% AbreConexao
Sql = "SELECT * From dados"
Set rs = Conexao.Execute(Sql)
while not rs.EOF%>
<table border="0" cellpadding="0" cellspacing="0">
<tr>
<td><input type="text" value="<%=rs("email")%>" name="email" size="30"></td>
<td><form method="POST" action="admin.asp?acao=alterar&id=<%=rs("id")%>">
<input type="submit" value="Alterar"></form></td>
<td><form method="POST" action="admin.asp?acao=deletar&id=<%=rs("id")%>">
<input type="submit" value="Apagar"></form></td>
</tr>
</table>
<hr size="1">
<% rs.MoveNext
wend
FechaConexao %>
<% case "deletar" %>
<% id = request.querystring("id")
AbreConexao
Sql = "DELETE id,email FROM dados WHERE id = " & id &""
Conexao.Execute(Sql)
FechaConexao %>
E-Mail deletado com sucesso!<BR>
<hr size="1">
<% case "alterar" %>
<% id = request.querystring("id")
AbreConexao
Sql = "UPDATE dados SET email = '" & Request.Form("email") & "' WHERE id = " & id & " "
Conexao.Execute(Sql)
FechaConexao %>
E-Mail alterado com sucesso!<BR>
<hr size="1">
<% case "todas" %>
<% AbreConexao
Sql = "SELECT * From enviados"
Set rs = Conexao.Execute(Sql)
while not rs.EOF %>
Assunto: <font color="red"><%=rs("assunto")%></font><BR>
Enviada em: <font color="red"><%=rs("data")%></font><BR>
Mensagem:<BR>
<%=rs("mensagem")%><BR><BR><BR>
<HR size="1">
<% rs.MoveNext
wend
FechaConexao %>
<% case "erro" %>
Ocorreu um erro ao tentar efetuar a operação. Tente novamente.<BR>
<hr size="1">
<% case else %>
<% AbreConexao
Sql = "SELECT * FROM dados"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open Sql, ConStr, 3, 3 %>
No total <%=rs.recordcount%> pessoas estão cadastradas no seu newsletter<BR>
<a href="admin.asp?acao=modificar">Modificar/Alterar os dados dos cadastrados</a><BR>
<a href="admin.asp?acao=enviar">Enviar E-Mail</a><BR>
<a href="admin.asp?acao=todas">Todos os e-mails já enviados</a>
<HR size="1">
<% FechaConexao
end select %>
</font>
<p align="center"><font color="#FF0000" size="2">
Script Desenvolvido por <a href="mailto:felipeb2000@bol.com.br">Felipe Siola</a></font>
</body>
</html>
#614739 Logando Sem Nada
Posted by
on 18/07/2005, 16:38
in
ASP
e como ficaria o codigo com esse detalhe em js, assim ?
<%
IF request.Form("login") = "" then
<script>
alert("Meu filho o e-mail por favor!!")
window.location = "o_arquivo_que_tem_o_fomulário.asp";
</script>
Response.END
<%
IF request.Form("login") = "" then
<script>
alert("Meu filho o e-mail por favor!!")
window.location = "o_arquivo_que_tem_o_fomulário.asp";
</script>
Response.END
#614690 Logando Sem Nada
Posted by
on 18/07/2005, 15:28
in
ASP
Entendi luis, mas me diga uma coisa. Eu colocando Response.Write "Digita algo anta!" qnd a pessoa clicar em enviar vai aparecer uma pagina toda em branco com essa msg, como eu faco pra aparecer esse aviso nakele alerta em js, axo q seria melhor nao ?
#614614 Logando Sem Nada
Posted by
on 18/07/2005, 12:53
in
ASP
No meu site coloquei um sistema de login apenas com o email e esta funcionando normalmente, mas descobri um errinho. Se a pessoa deixar o campo email do formulario em branco, ele consegue fazer o login.
- Como eu faco pra resolver esse erro ? segue o codigo.
- Outra duvidazinha. Como eu faço para se a pessoa digitou o email errado ao inves de direcionar para a pagina permissao.htm dar akele alerta em javascript com a msg dizendo: Você nao tem permissão, faça o cadastro ? Teria como postarem esse codigo em js e dizer aonde colocar esse codigo no meu logar.asp ?
Espero q tenham entendido.
logar.asp
<%
' vamos fazer o request do nosso login e senha que foi digitado no formulário
login = request.Form("login")
' agora vamos usar o replace para evitar que engraçadinhos tenter furar nosso sistema de login
login = replace(login,"'","''")
login = replace(login,"#","''")
login = replace(login,"$","''")
login = replace(login,"%","''")
login = replace(login,"¨","''")
login = replace(login,"&","''")
login = replace(login,"'or'1'='1'","''")
login = replace(login,"--","''")
login = replace(login,"insert","''")
login = replace(login,"drop","''")
login = replace(login,"delet","''")
login = replace(login,"xp_","''")
login = replace(login,"select","''")
login = replace(login,"*","''")
' feito isso vamos mudar o nome das variaveis para evitar outra tentativa de furos
Session("lgn") = login
'aqui abrimos a conexão com um banco acess onde estão armazenadas as senhas
set conexao = createobject("AdoDb.connection")
constr = "Driver={Microsoft Access Driver (*.mdb)};DBQ="& server.MapPath("cada.mdb")
conexao.open constr
set rs = conexao.execute("SELECT * FROM cadast WHERE email='"&Session("lgn")&"' ")
if rs.eof then
response.Redirect("permissao.htm")
else
Session("login") = true
Session("nome") = rs("nome")
response.redirect "http://www.meusite.c...m.br/fotos.asp"
end if
%>
- Como eu faco pra resolver esse erro ? segue o codigo.
- Outra duvidazinha. Como eu faço para se a pessoa digitou o email errado ao inves de direcionar para a pagina permissao.htm dar akele alerta em javascript com a msg dizendo: Você nao tem permissão, faça o cadastro ? Teria como postarem esse codigo em js e dizer aonde colocar esse codigo no meu logar.asp ?
Espero q tenham entendido.
logar.asp
<%
' vamos fazer o request do nosso login e senha que foi digitado no formulário
login = request.Form("login")
' agora vamos usar o replace para evitar que engraçadinhos tenter furar nosso sistema de login
login = replace(login,"'","''")
login = replace(login,"#","''")
login = replace(login,"$","''")
login = replace(login,"%","''")
login = replace(login,"¨","''")
login = replace(login,"&","''")
login = replace(login,"'or'1'='1'","''")
login = replace(login,"--","''")
login = replace(login,"insert","''")
login = replace(login,"drop","''")
login = replace(login,"delet","''")
login = replace(login,"xp_","''")
login = replace(login,"select","''")
login = replace(login,"*","''")
' feito isso vamos mudar o nome das variaveis para evitar outra tentativa de furos
Session("lgn") = login
'aqui abrimos a conexão com um banco acess onde estão armazenadas as senhas
set conexao = createobject("AdoDb.connection")
constr = "Driver={Microsoft Access Driver (*.mdb)};DBQ="& server.MapPath("cada.mdb")
conexao.open constr
set rs = conexao.execute("SELECT * FROM cadast WHERE email='"&Session("lgn")&"' ")
if rs.eof then
response.Redirect("permissao.htm")
else
Session("login") = true
Session("nome") = rs("nome")
response.redirect "http://www.meusite.c...m.br/fotos.asp"
end if
%>
#611374 Duvida No Newsletters
Posted by
on 11/07/2005, 12:12
in
Dúvidas sobre Scripts Prontos de ASP
Baixei o sistema de newsletters do chaca mail.
Axei super facil de instalar mas fikei com uma duvida.
Como eu faco para colocar na mensagem uma figura ? tentei colocar o comando <img src="http://www.meusite.c...ns/figura.jpg"> mas nao apareceu a imagem e sim o caminho todo q digitei, inclusive o <img....
Qual a maneira certa de colocar a imagem ?
Alguem poderia me ajudar ?!?
Axei super facil de instalar mas fikei com uma duvida.
Como eu faco para colocar na mensagem uma figura ? tentei colocar o comando <img src="http://www.meusite.c...ns/figura.jpg"> mas nao apareceu a imagem e sim o caminho todo q digitei, inclusive o <img....
Qual a maneira certa de colocar a imagem ?
Alguem poderia me ajudar ?!?
#607246 Duvidas Na Tabela
Posted by
on 01/07/2005, 13:18
in
Dreamweaver
Cara, eu ja determinei o width e o height da tabela, mas as vezes acontece essa parada.
Eu posso determinar esses valores em % ou em px neh ?!
Eu posso determinar esses valores em % ou em px neh ?!
#606210 Enviar Para Um Amigo
Posted by
on 29/06/2005, 18:10
in
ASP
As ftos estao cada uma em sua pasta de acordo com o nome do evento.
tipo fotos\forrodonana\grande
ai como ficaria o codigo com esse attach ?
tipo fotos\forrodonana\grande
ai como ficaria o codigo com esse attach ?
#606076 Enviar Para Um Amigo
Posted by
on 29/06/2005, 15:03
in
ASP
entendi. mas essa kestao de enviar pra um amigo é caso a pessoa esteja numa lan house por exemplo e nao possa salvar a foto na hr, ai manda a foto pro proprio email, entendeu ?
e como eu faco pra pegar o link da foto ? vou ter q fazer na mao o link de cada foto ?
vou testar essa codigo e dps c tiver duvida posto, ok ?
T+
e como eu faco pra pegar o link da foto ? vou ter q fazer na mao o link de cada foto ?
vou testar essa codigo e dps c tiver duvida posto, ok ?
T+
#606060 Enviar Para Um Amigo
Posted by
on 29/06/2005, 14:46
in
ASP
cara, o tuto q mais se aproximou foi o 98252, pq os outros sao pra fazer formmail, e isso eu ja fiz no site com asp.http://forum.wmonlin...showtopic=94340
se naum conseguir, posta aqui o seu codigo de como ta ficando, e qual a dificuldade...
mas me diga uma coisa. o codigo para cdonts eu coloco na pag onde direcionei o action do form ?
e como eu tenho q fazer o formulario, quais campos coloco?
T+
#605850 Enviar Para Um Amigo
Posted by
on 29/06/2005, 10:20
in
ASP
Fala pessoal do forum.
Tenho uma exibicao de fotos no meu site q tem as miniaturas e qnd clica abre em uma pop up.
Gostaria de colocar uma opcao nessa pop up para a pessoa enviar para um amigo ou para o proprio email essa foto. Como eu faço isso ?
Eu sei fazer o formulario e pegar as informações do campo desse form, mas nao sei como fazer para enviar a foto para o email.
Espero q me ajudem mais uma vez.
Obrigado.
Tenho uma exibicao de fotos no meu site q tem as miniaturas e qnd clica abre em uma pop up.
Gostaria de colocar uma opcao nessa pop up para a pessoa enviar para um amigo ou para o proprio email essa foto. Como eu faço isso ?
Eu sei fazer o formulario e pegar as informações do campo desse form, mas nao sei como fazer para enviar a foto para o email.
Espero q me ajudem mais uma vez.
Obrigado.
#603546 Galeria De Fotos
Posted by
on 23/06/2005, 14:25
in
ASP
Entendi mais ou menos.vou dar uma idéia:
numere as fotos 1.jpg 2.jpg 3.jpg
dai cria uma função pra ele pegar a ultima foto + 1 ou seja (X+1)
e no caminho vc usa querystring pra passar pra foto maior.....
o unico trabalho vai ser editar as fotos
Teria como vc colocar essa funcao pronta ? sou iniciante em asp.
Como eu coloco no caminho querystring pra passar pra foto maior ?
E o caminho da pasta com as fotos ?
Eu sei de uma forma de nomear varias fotos de uma vez no windows, mas ai ficaria assim: nome (1).jpg, nome (2).jpg. desse jeito funcionaria ?
#603500 Duvidas Na Tabela
Posted by
on 23/06/2005, 13:25
in
Dreamweaver
Gostaria de saber pq qnd eu faco uma tabela, com algumas colunas e coloco alguma figura ou algum texto na primeira celula da coluna, as outras se juntam no canto dessa tabela. Pq isso acontece ? como eu posso resolver isso ?
#603497 Galeria De Fotos
Posted by
on 23/06/2005, 13:22
in
ASP
Fala pessoal do forum
Tenho um site de micareta e nesse site tem uma parte de fotos. Como em micareta dá pra tirar umas 400 fotos por baixo, gostaria de saber se tem alguma forma de fazer uma galeria de fotos para diminuir ao maximo o trabalho da equipe de webdesigner do site.
Em html daria muito trabalho, teria alguma forma em asp pra fazer isso ?
Obrigado.
Tenho um site de micareta e nesse site tem uma parte de fotos. Como em micareta dá pra tirar umas 400 fotos por baixo, gostaria de saber se tem alguma forma de fazer uma galeria de fotos para diminuir ao maximo o trabalho da equipe de webdesigner do site.
Em html daria muito trabalho, teria alguma forma em asp pra fazer isso ?
Obrigado.
#602069 Formulário De Cadastro
Posted by
on 20/06/2005, 08:20
in
ASP
Fala ae w@shin.
Tem como chegar num banco de dados sim. Voce ker q va pra um bd ou pro email ?
Tem como chegar num banco de dados sim. Voce ker q va pra um bd ou pro email ?
#601744 Depois Do Cadastro
Posted by
on 18/06/2005, 23:40
in
ASP
Q moleza kra. mas tira uma duvida.
eu substituindo esse logado por true e dps na continuacao do codigo q tem logado, nao vai dar erro nao ?
Session("login") = True
response.Cookies("logado")=login
response.cookies("logado").expires="31/12/2010"
Obrigado mais uma vez.
eu substituindo esse logado por true e dps na continuacao do codigo q tem logado, nao vai dar erro nao ?
Session("login") = True
response.Cookies("logado")=login
response.cookies("logado").expires="31/12/2010"
Obrigado mais uma vez.
#601695 Depois Do Cadastro
Posted by
on 18/06/2005, 21:13
in
ASP
Fala ae cara,
eu renomeei a pagina fotos e funcionou, mas apareceu mais um erro.
Eu coloquei na pagina inicial a opcao para a pessoa se logar, o form funciona legal e até aparece a pagina q coloquei caso o login esteja certo. Mas soh q, a pessoa se logou atraves desse form e qnd acessa a pagina restrita, pede para se logar novamente. Como eu posso fazer para que a pessoa se logue apenas uma vez enqto esta visitando o site ?
Espero q me ajude mais uma vez.
Desde ja agradeco.
eu renomeei a pagina fotos e funcionou, mas apareceu mais um erro.
Eu coloquei na pagina inicial a opcao para a pessoa se logar, o form funciona legal e até aparece a pagina q coloquei caso o login esteja certo. Mas soh q, a pessoa se logou atraves desse form e qnd acessa a pagina restrita, pede para se logar novamente. Como eu posso fazer para que a pessoa se logue apenas uma vez enqto esta visitando o site ?
Espero q me ajude mais uma vez.
Desde ja agradeco.
#601585 Depois Do Cadastro
Posted by
on 18/06/2005, 15:59
in
ASP
Ae cara,
testei o codigo e deu certo, mas esta com erro. Coloquei o bloqueio na pagina fotos.htm e ele me redireciona para a pagina de login. Eu configurei para qnd fizer o login voltar para a pag de fotos. Mas qnd ele volta para fotos.htm e pede pra eu fazer o login novamente. Abaixo estao os codigos da fotos.htm e logar.asp.
Espero q me ajude !
fotos.htm
<%
If Session("Login") <> True Then
%>
<script language="javascript">
alert("Para acessar esta página, você deve estar logado");
location.href = "login.htm";
</script>
<%
End if
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
pagina onde o action do form de login esta direcionada: logar.asp
<%
' vamos fazer o request do nosso login e senha que foi digitado no formulário
login = request.Form("login")
' agora vamos usar o replace para evitar que engraçadinhos tenter furar nosso sistema de login
login = replace(login,"'","''")
login = replace(login,"#","''")
login = replace(login,"$","''")
login = replace(login,"%","''")
login = replace(login,"¨","''")
login = replace(login,"&","''")
login = replace(login,"'or'1'='1'","''")
login = replace(login,"--","''")
login = replace(login,"insert","''")
login = replace(login,"drop","''")
login = replace(login,"delet","''")
login = replace(login,"xp_","''")
login = replace(login,"select","''")
login = replace(login,"*","''")
' feito isso vamos mudar o nome das variaveis para evitar outra tentativa de furos
Session("lgn") = login
'aqui abrimos a conexão com um banco acess onde estão armazenadas as senhas
set conexao = createobject("AdoDb.connection")
constr = "Driver={Microsoft Access Driver (*.mdb)};DBQ="& server.MapPath("cada.mdb")
conexao.open constr
set rs = conexao.execute("SELECT * FROM cadast WHERE email='"&Session("lgn")&"' ")
if rs.eof then
response.Redirect("permissao.htm") 'se o cara errar a senha ele vai ser redirecionado para essa pagina
else
'agora criamos os cookies ou as sessions de acordo com nossas necessidades
Session("login") = "logado"
response.Cookies("logado")=login
response.cookies("logado").expires="31/12/2010"
response.redirect "http://www.portaldam...m.br/fotos.htm"
end if
%>
testei o codigo e deu certo, mas esta com erro. Coloquei o bloqueio na pagina fotos.htm e ele me redireciona para a pagina de login. Eu configurei para qnd fizer o login voltar para a pag de fotos. Mas qnd ele volta para fotos.htm e pede pra eu fazer o login novamente. Abaixo estao os codigos da fotos.htm e logar.asp.
Espero q me ajude !
fotos.htm
<%
If Session("Login") <> True Then
%>
<script language="javascript">
alert("Para acessar esta página, você deve estar logado");
location.href = "login.htm";
</script>
<%
End if
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
pagina onde o action do form de login esta direcionada: logar.asp
<%
' vamos fazer o request do nosso login e senha que foi digitado no formulário
login = request.Form("login")
' agora vamos usar o replace para evitar que engraçadinhos tenter furar nosso sistema de login
login = replace(login,"'","''")
login = replace(login,"#","''")
login = replace(login,"$","''")
login = replace(login,"%","''")
login = replace(login,"¨","''")
login = replace(login,"&","''")
login = replace(login,"'or'1'='1'","''")
login = replace(login,"--","''")
login = replace(login,"insert","''")
login = replace(login,"drop","''")
login = replace(login,"delet","''")
login = replace(login,"xp_","''")
login = replace(login,"select","''")
login = replace(login,"*","''")
' feito isso vamos mudar o nome das variaveis para evitar outra tentativa de furos
Session("lgn") = login
'aqui abrimos a conexão com um banco acess onde estão armazenadas as senhas
set conexao = createobject("AdoDb.connection")
constr = "Driver={Microsoft Access Driver (*.mdb)};DBQ="& server.MapPath("cada.mdb")
conexao.open constr
set rs = conexao.execute("SELECT * FROM cadast WHERE email='"&Session("lgn")&"' ")
if rs.eof then
response.Redirect("permissao.htm") 'se o cara errar a senha ele vai ser redirecionado para essa pagina
else
'agora criamos os cookies ou as sessions de acordo com nossas necessidades
Session("login") = "logado"
response.Cookies("logado")=login
response.cookies("logado").expires="31/12/2010"
response.redirect "http://www.portaldam...m.br/fotos.htm"
end if
%>
#601562 Depois Do Cadastro
Posted by
on 18/06/2005, 14:10
in
ASP
entendi.
vou aplicar esse codigo, obrigado.
Sem kerer abusar mas ja abusando keria pedir mais uma coisa.
Eu tenho o cadastro com nome e email da pessoa. Gostaria q dps q ela logasse, aparecesse algo assim: Bem vindo nomedapessoa, eh mto dificil ?
vou aplicar esse codigo, obrigado.
Sem kerer abusar mas ja abusando keria pedir mais uma coisa.
Eu tenho o cadastro com nome e email da pessoa. Gostaria q dps q ela logasse, aparecesse algo assim: Bem vindo nomedapessoa, eh mto dificil ?
#601552 Depois Do Cadastro
Posted by
on 18/06/2005, 13:22
in
ASP
Mas esse codigo eu coloco aonde ? na pagina fotos, em cima do codigo html, assim ?
------
codigo asp para se logar
------
<html>
<head>
.
.
.
Pelo pouco q entendo de java script, esse codigo vai aparecer um aviso com um botao ok e dps q clicar em ok vai direcionar para pagina de login, eh isso?
Se a pessoa ja estiver logada nao vai aparecer essa msg nao neh ?
------
codigo asp para se logar
------
<html>
<head>
.
.
.
Pelo pouco q entendo de java script, esse codigo vai aparecer um aviso com um botao ok e dps q clicar em ok vai direcionar para pagina de login, eh isso?
Se a pessoa ja estiver logada nao vai aparecer essa msg nao neh ?
#601502 Depois Do Cadastro
Posted by
on 18/06/2005, 10:50
in
ASP
Primeiramente gostaria de agradecer e muito a todos q me ajudaram a fazer o codigo para o cadastro de visitantes e para o login do msm.
Estou com uma duvida nova (hehe).
Como eu faço para aparecer a msg pro visitante se logar qnd acessar uma determinada pagina ? A principio só kero obrigar a pessoa se logar na parte de fotos. Como eu faço isso ?
Estou com uma duvida nova (hehe).
Como eu faço para aparecer a msg pro visitante se logar qnd acessar uma determinada pagina ? A principio só kero obrigar a pessoa se logar na parte de fotos. Como eu faço isso ?
#599028 Cadastro De Email
Posted by
on 14/06/2005, 13:55
in
ASP
Achei super simples esses 2 tutoriais, mas fikei com uma duvida.
Eu posso mandar o arkivo do acess pra qq parte do site ou varia de provedor ?
E outra, sem kerer abusar, mas ja abusando. Qnd a pessoa logar, como eu faco pra aparecer algo desse tipo: Olá Nomedapessoa ?
Vlw
Eu posso mandar o arkivo do acess pra qq parte do site ou varia de provedor ?
E outra, sem kerer abusar, mas ja abusando. Qnd a pessoa logar, como eu faco pra aparecer algo desse tipo: Olá Nomedapessoa ?
Vlw
#598915 Cadastro De Email
Posted by
on 14/06/2005, 11:55
in
ASP
Fala pessoal do forum.
Kero colocar no meu site algumas areas restritas e para a pessoa entrar nessas areas se cadastrar e soh com o email se logar.
Ja tenho prontas as paginas com os formularios de cadastro e para logar.
Gostaria q alguem me ajudasse para eu pegar as informacoes desses campos de cadastro e enviar para um banco de dados e me dizer oq colocar no form para se logar.
Obrigado.
Kero colocar no meu site algumas areas restritas e para a pessoa entrar nessas areas se cadastrar e soh com o email se logar.
Ja tenho prontas as paginas com os formularios de cadastro e para logar.
Gostaria q alguem me ajudasse para eu pegar as informacoes desses campos de cadastro e enviar para um banco de dados e me dizer oq colocar no form para se logar.
Obrigado.
