registro de usuarios

Halcon_2003 · #1 (**permalink**) 16/05/2003, 19:32

Alguien puede enseñarme como hacer un sistema de registro de usuarios en asp para que los usuarios que quieran registrarse en mi pagina ingresen sus datos (usuario-clave-email-pais-provincia-comunidad-activo) y asi puedan acceder a la página principal.
Tambien necesito ayuda sobre como hacer que se identifiquen los usuarios registrados para acceder a la página principal.
Y por ultimo, si un usuario que ya esta registrado y se olvido la clave, como se le puede informar eso.
Gracias

Biopepe · #2 (**permalink**) 16/05/2003, 19:40

Has mirado en las FAQs???
Creo que viene todo eso.

maestro · #3 (**permalink**) 16/05/2003, 19:52

Yo de verdad me pregunto si nadie sabe lo que significa FAQ o usar un buscador.

Halcon_2003 · #4 (**permalink**) 17/05/2003, 05:22

Estoy tratando de implementar el acceso de usuarios (registro de los nuevos) he utilizado las ayudas de Faq's pero sigo sin conseguirlo, el error que me da es el siguiente:

Error de compilación de Microsoft VBScript error '800a0409'

Constante de cadena sin terminar

/alta_socio.asp, line 17

oConn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data

Los códigos de página que he utilizado son los siguientes:

Página htm

<html>
<head>
<meta http-equiv="Content-Language" content="es">
<meta name="GENERATOR" content="Microsoft FrontPage 5.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<title>Nombre de Socia</title>
<meta name="Microsoft Theme" content="transgalicia-v3 011">
</head>
<body>
<form method="POST" action="alta_socio.asp">
<p align="center"> <font color="#00cccc">
<img
src="Graficos/Iconos/Letras/n.gif" width="56" height="70"><img
src="Graficos/Iconos/Letras/u.gif" width="56" height="70"><img
src="Graficos/Iconos/Letras/e.gif" width="56" height="70"><img
src="Graficos/Iconos/Letras/v.gif" width="56" height="70"><img
src="Graficos/Iconos/Letras/o.gif" width="56" height="70"><span
lang="es">   </span>
<img
src="Graficos/Iconos/Letras/s.gif" width="56" height="70"><img
src="Graficos/Iconos/Letras/o.gif" width="56" height="70"><img
src="Graficos/Iconos/Letras/c.gif" width="56" height="70"><img
src="Graficos/Iconos/Letras/i.gif" width="56" height="70"><img
src="Graficos/Iconos/Letras/o.gif" width="56" height="70"></font></p>
<p align="center" style="line-height: 200%">
<img border="0" src="Graficos/Iconos/libro.gif" width="80" height="80"><BR>
<b><font color="#FFFF00" face="Lucida Blackletter">Nombre de Socia /
o.......... :</font></b>      
<input type="text"
name="usuario_1" size="20"><BR><b>
<font color="#FFFF00" face="Lucida Blackletter">Ingrese su
contraseña........ :</font></b>      
<input type="password"
name="clave_1" size="20"><BR><font color="#FFFF00">
<font face="Lucida Blackletter"><b>Ingrese su E-Mail.............. :</b></font>
</font>     
<input type="text"
name="email_1" size="20"><BR><b><font color="#FFFF00" face="Lucida Blackletter">
Pais de Residencia............. :</font></b>      
<input
name="pais_1" size="20"><BR><b><font color="#FFFF00" face="Lucida Blackletter">
Provincia........................... :</font></b>      
<input
name="provincia_1" size="20"><BR><b>
<font color="#FFFF00" face="Lucida Blackletter">Comunidad
Autónoma........ :</font></b>      
<input type="text"
name="comunidad_1" size="20"><BR> </p>
<blockquote>
<blockquote>
<blockquote>
<blockquote>
<blockquote>
<blockquote>
<blockquote>
<blockquote>
<p>
<input type="submit" value="Enviar"
name="eviar" style="font-weight: bold">       
<input type="reset" value="Restablecer"
name="reestablecer" style="font-weight: bold"><BR><BR></p>
</blockquote>
</blockquote>
</blockquote>
</blockquote>
</blockquote>
</blockquote>
</blockquote>
</blockquote>
</form><BR>
</body>
</html>

Página asp

<html>
<head>
<meta name="GENERATOR" content="Microsoft FrontPage 5.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<title>Pagina nueva 1</title>
<meta name="Microsoft Theme" content="transgalicia-v3 011">
</head>
<body>
<FONT face="Arial, Helvitica">
<%
set oConn=Server.CreateObject("ADODB.Connection")
set rs=Server.CreateObject("ADODB.Recordset")
oConn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data
'Source="&Server.MapPath("socios.mdb")&";"
Source="&web("socios.mdb")&";"
SQL="SELECT * FROM usuarios"
rs.Open SQL, oConn
rs.addnew
permiso_1="si" (aqui quisiera un filtro por si quiero
evitar futuros ingresos de este
usuario)
rs("usuario")=request("usuario_1")
rs("clave")=request("clave_1")
rs("email")=request("email_1")
rs("pais")=request("pais_1")
rs("provincia")=request("provincia_1")
rs("comunidad")=request("comunidad_1")
rs("permiso")=request("permiso_1")
rs.update
rs.close
oConn.close
%>
</body>
</html>

maestro · #5 (**permalink**) 17/05/2003, 17:29

<%
set oConn=Server.CreateObject("ADODB.Connection")
set rs=Server.CreateObject("ADODB.Recordset")
oConn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source="&Server.MapPath("socios.mdb")&";"
SQL="SELECT * FROM usuarios"
rs.Open SQL, oConn, 1, 2
rs.addnew
rs("usuario")=request("usuario_1")
rs("clave")=request("clave_1")
rs("email")=request("email_1")
rs("pais")=request("pais_1")
rs("provincia")=request("provincia_1")
rs("comunidad")=request("comunidad_1")
rs("permiso")=request("permiso_1")
rs.update
rs.close
oConn.close
%>

Esto te inserta un nuevo registro en la base de datos recogidos del formulario de la pagina anterior.
Comprueba que los campos del formulario se llaman asi relamente para evitar valores nulos .
OJO, aqui no hay ningun codigo para comprobar si existe otro usuario con ese nombre o password, deberas trabajartelo si quieres que sea asi.

De todas formas eso deberia funcionarte, pruebalo y vamos a ir acotando posibles errores.

Halcon_2003 · #6 (**permalink**) 18/05/2003, 03:18

El error que me da con la nueva modificac ión es el siguiente:
ADODB.Connection error '800a0e7a'

No se encontró el proveedor especificado. Es posible que no esté instalado correctamente.

/alta_socio.asp, line 15

La linea en cuestion es la siguiente:
oConn.Open "Provider=Microsoft.Jet.OLEDB.4.0 Data Source="&Server.MapPath("socios.mdb")&";"

Me puedes decir como tengo que hacer para evitar que haya usuarios repetidos
Gracias

maestro · #7 (**permalink**) 18/05/2003, 06:01

¿Tu hosting no tiene soporte para OLEDB?, que cosa mas rara.
Prueba con el driver de ACCESS.
strconn = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("tubase.mdb")

Si tempoco te funciona dale una patada en el culo a ese hosting y buscate otro.
Eso no es normal.

Halcon_2003 · #8 (**permalink**) 18/05/2003, 07:06

No tampoco funciona

maestro · #9 (**permalink**) 18/05/2003, 13:16

Pues preguntale a tu hosting que componentes ofrece, que te facilite la documentacion de sus servicios.
Hasta entinces no hay nada que hacer.

Halcon_2003 · #10 (**permalink**) 24/05/2003, 07:51

Cita:

Mensaje Original por maestro
Pues preguntale a tu hosting que componentes ofrece, que te facilite la documentacion de sus servicios.
Hasta entinces no hay nada que hacer.

Ya logre introducir información de registro de usuarios en la base de datos, ahora tengo el siguiente problema, a ver si puedes arreglarmelo para incluirlo en la web, esto es:
login de usuarios (usuario - clave - nivel)
Si no coincide (usuario y clave) redireccionar a acceso.htm
Si coincide coger el nivel de la base y redireccionar a entrar.htm
Recordatorio de clave:
Si el usuario no recuerda su clave que le envie un e-mail para recordarsela

Gracias y disculpa las molestias
Oscar

ELRE · #11 (**permalink**) 24/05/2003, 08:00

Para Halcon_2003:

oConn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source="&Server.MapPath("socios.mdb")&";"

Te has olvidado de poner ; detras de 4.0, asi el server intentava buscar Microsoft.Jet.OLEDB.4.0 Data...... todo junto

maestro · #12 (**permalink**) 24/05/2003, 08:02

Hombre, una cosa es que te ayude a solucionar una duda y otra que te programe el script entero, no seas comodon

Ya te comente esto en el primer mensaje.

Busca en este sitio en las FAQ mensajes sonbre tu duda
http://www.forosdelweb.com/showthrea...threadid=89836

O la herramienta de busquedas.
http://www.forosdelweb.com/search.php

O faqsdelweb:
http://faqsdelweb.com/index.php?num=3&f_id=2&s_id=

O aqui:
http://www.hotscripts.com/ASP/Scripts_and_Components/

Cuando mas o menos sepas por donde esta el desarrollo y algo no te vaya, pregunta.
Lo que no podemos es desarrollarlo por ti.

Halcon_2003 · #13 (**permalink**) 24/05/2003, 08:53

Tienes razón mil disculpas, ahi va lo que he hecho:

<%
'Dim usuario, password, oConn, RS
txtusuario = CStr(Request.Form("usuario"))
password = CStr(Request.Form("clave"))
If CStr(Request.Form("usuario")) = "" OR CStr(Request.Form("clave")) = "" then
Response.Redirect "acceso.htm"
Else
DBFile="D:\Inetpub\..........y el resto\socios.mdb"
Set oConn = Server.CreateObject ("ADODB.Connection")
basedatos.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DBFile
Set RS = Server.CreateObject ("ADODB.RecordSet")
wstr2 = "SELECT usuarios.usuario, usuarios.clave "
wstr2 = wstr2 & "FROM usuarios "
wstr2 = wstr2 & "WHERE (((usuarios.usuario)='" & txtusuario & "') AND ((usuarios.clave)='" & password & "')) "
'response.write wstr2
myR2Set.Open wstr2, basedatos, 3, 3
If (RS.EOF = true) then
Response.Write "Ese usuario no existe"
ElseIf RS.Fields("clave") = password then
Response.Write "Te logueaste con exito... Bienvenido <B>"& usuario &"</B>"
mnivel=nivel
Response.Redirect("usuarios.htm")
Else
Response.Write "Esa contraseña no concuerda con el usuario ingresado"
End If
RS.Close
oConn.Close
Set RS = Nothing
Set oConn = Nothing
End If
%>