Usuarios restringidos
Hola,
Tengo una web y quisiera que a una parte de ella solo pudieran acceder aquellos a los que yo les facilite una password. ¿como puede hacerlo?
Gracias
Tengo una web y quisiera que a una parte de ella solo pudieran acceder aquellos a los que yo les facilite una password. ¿como puede hacerlo?
Gracias
1 Respuesta
Respuesta de masterlui
1
Pues en tu pagina principal puedes hacer una pagina que pida login y password mediante asp, si el login es correcto accede a las demas paginas si no es asi, no lo dejas pasar
Muy bien, pero ¿como se hace?
Te anexo una pagina donde yo hago eso, utilizo una bd en acess y paginas asp. Espero te ayude
<head>
<title>LOGIN DEL MINICHAT</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>
<body>
<%@Language="Vbscript"%>
<center>
<% if (not(Request.Form("login") <> "") and not(Request.Form("pass")<> "")) then 'si no ha puesto su login o pass
if not(Request.QueryString("loginpassincorrecto")<>1) then 'el login y/o password son incorrectos
Response.write("El login y/o password son incorrectos")
end if
if not(Request.QueryString("campoenblanco")<>1) then 'dejo un campo en blanco
Response.write("Olvidaste llenar un campo")
end if %>
<br><br>
<p>Chat de DAAI </p>
<br>
<form name="forma" method="post" action="login.asp">
<blockquote>
<p align="center">Login <input name="login" type="text" size="20" maxlength="10">
</p>
<p align="center"> Password
<input name="pass" type="password" size="20" maxlength="10">
</p>
<p align="center">
<input name="entrar" type="submit" id="entrar" value="Entrar">
<input name="limpiar" type="reset" id="Limpiar" value="Limpiar">
</p>
</blockquote>
</form>
</center>
<a href="alta.asp">Darse de alta</a><br>
<%else
'Datos a insertar
login=request.form("login")
pass=request.form("pass")
'si deja el login o el pass sin llenar
If not(login<>"" ) or not (pass<>"") then
Response.redirect("login.asp?campoenblanco=1")
else'si lleno tanto el login como el pass
'Se establece la conexion
Set miconex=Server.CreateObject("ADODB.Connection")
miconex.Open "DRIVER={Microsoft Access Driver (*.mdb)};" & "DBQ=" & Server.MapPath("Chat.mdb")
querysql="select login from login where login='"+ cstr(login) + "' and pass='" + cstr(pass) + "'"
Set RecSet= Server.CreateObject("ADODB.Recordset")
RecSet.Open querysql,miconex,dbOpenDynaset
if (RecSet.EOF ) then 'no hay nadie con ese login, intentar de nuevo
response.redirect("login.asp?loginpassincorrecto=1")
else 'si existe y se le manda a la sala general
response.redirect("configpersonal.asp")
end if
'Cerramos y liberamos recursos en el recordset y en el connection
RecSet.Close
Set RecSet=nothing
miconex.Close
Set miconex=nothing
end if
end if %>
</body>
</html>
<head>
<title>LOGIN DEL MINICHAT</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>
<body>
<%@Language="Vbscript"%>
<center>
<% if (not(Request.Form("login") <> "") and not(Request.Form("pass")<> "")) then 'si no ha puesto su login o pass
if not(Request.QueryString("loginpassincorrecto")<>1) then 'el login y/o password son incorrectos
Response.write("El login y/o password son incorrectos")
end if
if not(Request.QueryString("campoenblanco")<>1) then 'dejo un campo en blanco
Response.write("Olvidaste llenar un campo")
end if %>
<br><br>
<p>Chat de DAAI </p>
<br>
<form name="forma" method="post" action="login.asp">
<blockquote>
<p align="center">Login <input name="login" type="text" size="20" maxlength="10">
</p>
<p align="center"> Password
<input name="pass" type="password" size="20" maxlength="10">
</p>
<p align="center">
<input name="entrar" type="submit" id="entrar" value="Entrar">
<input name="limpiar" type="reset" id="Limpiar" value="Limpiar">
</p>
</blockquote>
</form>
</center>
<a href="alta.asp">Darse de alta</a><br>
<%else
'Datos a insertar
login=request.form("login")
pass=request.form("pass")
'si deja el login o el pass sin llenar
If not(login<>"" ) or not (pass<>"") then
Response.redirect("login.asp?campoenblanco=1")
else'si lleno tanto el login como el pass
'Se establece la conexion
Set miconex=Server.CreateObject("ADODB.Connection")
miconex.Open "DRIVER={Microsoft Access Driver (*.mdb)};" & "DBQ=" & Server.MapPath("Chat.mdb")
querysql="select login from login where login='"+ cstr(login) + "' and pass='" + cstr(pass) + "'"
Set RecSet= Server.CreateObject("ADODB.Recordset")
RecSet.Open querysql,miconex,dbOpenDynaset
if (RecSet.EOF ) then 'no hay nadie con ese login, intentar de nuevo
response.redirect("login.asp?loginpassincorrecto=1")
else 'si existe y se le manda a la sala general
response.redirect("configpersonal.asp")
end if
'Cerramos y liberamos recursos en el recordset y en el connection
RecSet.Close
Set RecSet=nothing
miconex.Close
Set miconex=nothing
end if
end if %>
</body>
</html>
