Ir para conteúdo

POWERED BY:

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

zanelati2002

Sisterma de Cadastro e login

Por , em ASP Clássico

Recommended Posts

zanelati2002    0

zanelati2002
Postado

Olá amigos do forum tomei a liberdade de desenvolver este scritp de login

e cadastro, sei que já pode ter em algum lugar mais é simples.

Cadastro, login e envio dos dados para o email do cara, também esta disponivél para

download, fiz um pequeno layourt também para este script , espero que gostem.. seguem os links abaixo

 

 

para ver o script vai em Ver Script

 

 

Até mais...

Compartilhar este post

Link para o post
Compartilhar em outros sites

kazeiro    0

kazeiro
Postado

http://forum.imasters.com.br/public/style_emoticons/default/thumbsup.gif Nota 10... super legal, simples e eficaz...

 

Eu estou em busca de um que tenha nível de usuário e também necessite de autenticação/ativação pra liberar o acesso... Se tiver um deste para postar vamos nos abrilhantar ainda mais com suas informações...

 

 

Abraços, parabéns... http://forum.imasters.com.br/public/style_emoticons/default/joia.gif

 

Kazeiro.

Compartilhar este post

Link para o post
Compartilhar em outros sites

zanelati2002    0

zanelati2002
Postado

Título: Cadastro e Login

Versão: 1.0

 

--------------------------------------------------------------------

 

Nome: Cadastro e Login

Versão: 1.0

Funcionalidade: Cadastro, login e envio dos dados para o email do cara via cdonts em modo bem simples de compreenção

Visualização: http://www.onemasters.com/projeto_2/

 

 

Comentários: Cadastro, login e envio dos dados para o email do cara, também esta disponivél para download, fiz um pequeno layourt também para este script , espero que gostem.. .

Compartilhar este post

Link para o post
Compartilhar em outros sites

kel teixeira    0

kel teixeira
Postado

Cara, me dá erro! não encontra o arquivo!Fazendo o download do arquivo Cadastro e Login...Se o download não começar em 5 segundosClique Aqui e diz que não foi encontrado

Compartilhar este post

Link para o post
Compartilhar em outros sites

kel teixeira    0

kel teixeira
Postado

deu certo! uma duvida: q comando coloco nas paginas bloquedas ou que vai aparecer ao se logar?msn: pausinifansite@hotmail.com

Compartilhar este post

Link para o post
Compartilhar em outros sites

webdibula    0

webdibula
Postado

olá,

 

fiz o download do sistema só q estou com problema de inserção de dados poderia me dar uma help qui

 

o erro q esta demonstrando é o seguinte:

 

Microsoft OLE DB Provider for ODBC Drivers error '80004005'

 

[Microsoft][ODBC Microsoft Access Driver] Operation must use an updateable query.

 

/novo/cad_usuarios/oposto.asp, line 43

 

 

 

 

db.asp

<% 'Set Conexao = CreateObject("ADODB.CONNECTION")Set Conexao = Server.CreateObject("ADODB.Connection")conStr ="DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & server.MapPath("bd/acesso.mdb")ConexaoAberta = FALSESub AbreConexao()	if not ConexaoAberta then	'Conexao.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & conStr & ";"	Conexao.Open ConStr	ConexaoAberta = True	end ifend subSub FechaConexao()	if ConexaoAberta then	Conexao.close	ConexaoAberta = False	end ifend sub %>oposto.asp<!--#include file="db.asp"--><% AbreConexaoIf request.form("enviado") = "sim" ThenCadastrado =Falseset Dicionario = CreateObject("scripting.dictionary")i = 0Sql = "SELECT nome FROM users WHERE nome = '"&Request.form("nome")&"'"set Rs =Conexao.Execute(Sql)If not Rs.Eof thenDicionario.add i, "Nome de Site já cadastrado!"i= i+1end ifSql = "SELECT email FROM users WHERE email = '"&Request.form("email")&"'"set Rs =Conexao.Execute(Sql)If not Rs.Eof thenDicionario.add i, "Email já cadastrado!"i= i+1end ifSql = "SELECT login FROM users WHERE login = '"&Request.form("users")&"'"set Rs =Conexao.Execute(Sql)If not Rs.Eof thenDicionario.add i, "Login já cadastrado!"i= i+1end ifVet = Dicionario.itemsif Dicionario.Count<>0 thenResponse.Write "<b><center><font face=verdana size=1>"Response.Write "O(s) seguintes dado(s) está(ão) incorreto(s)<BR><br>"for i = 0 to Dicionario.Count - 1Response.Write vet(i) & "<BR><br>"nextresponse.write "<BR><br>"ElseSql = "INSERT INTO users (nome, email, login, senha, senha2, data) "Sql1 = Sql & "VALUES('" & Request.Form("nome") & "', '" & Request.Form("email") & "', '" & Request.Form("login") & "', '" & Request.Form("senha") & "', '" & Request.Form("senha2") & "', '" & Request.Form("cad_dia") & "/" & Request.Form("cad_mes") & "/" & Request.Form("cad_ano") & "')" 'response.write(sql1)[b]Conexao.Execute(Sql1)[/b]Cadastrado = TrueEnd IfEnd IfIf Cadastrado = False Then ElseSet MyCDONTSMail = CreateObject("CDONTS.NewMail")	HTML = "<!DOCTYPE HTML PUBLIC""-//IETF//DTD HTML//EN"">"	HTML = HTML & "<html>"	HTML = HTML & "<head>" 	HTML = HTML & "</head>"	HTML = HTML & "<body bgcolor=""FFFFFF"">"	HTML = HTML & "<b>Você acabou de se cadastrar no Sistema Cadastro e Login</b><br><br>"	HTML = HTML & "Lembre sempre de seus dados.<br><br>"	HTML = HTML & "Login: "& login &"<br>Senha: "& senha &"<br><br>"	HTML = HTML & "Visite nosso Site: <a href=""www.sitedozanelati.com"">www.sitedozanelati.com</a>"	HTML = HTML & "</body>"	HTML = HTML & "</html>"	MyCDONTSMail.From="zane.juli@ig.com.br"	MyCDONTSMail.To=email	MyCDONTSMail.Subject="Cadastro no Sistema de Cadastro e Login - Site do Zanelati"	MyCDONTSMail.BodyFormat=0	MyCDONTSMail.MailFormat=0	MyCDONTSMail.Body=HTML	MyCDONTSMail.Send	set MyCDONTSMail=nothing %> <p align="center">			<font face="Verdana" size="1">Cadastrado com sucesso!<BR>Entre na administração <font color="#FF0000"><a href="sair.asp"><font face="Verdana" size="1" color="#FF0000">ClicandoAqui! </font></a></font><% End If %>

Regras do Fórum iMasters

Compartilhar este post

Link para o post
Compartilhar em outros sites
Ir para a lista de tópicos ASP Clássico
×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.

  Aceito