29/10/2003, 16:08
|
| | | Fecha de Ingreso: marzo-2003 Ubicación: onde toy?
Mensajes: 1.437
Antigüedad: 22 años, 2 meses Puntos: 9 | |
| Tienes que hacer algo asi
Página1.asp
Algún formulario en el cual se ingrese el nombre y la clave...con lo cual podrás trabajar..
Pagina2.asp
<%
response.buffer="true"%>
<html>
<head>
<title>pagina validacion</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>
<body bgcolor="#FFFFFF" text="#000000">
<%
dim usuario
dim clave
dim Mi_Conexion
dim tipousuario
dim sql
dim Res
Set Mi_Conexion = Server.CreateObject("ADODB.Connection")
Set Res = Server.CreateObject("ADODB.Recordset")
Mi_Conexion.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=C:\Inetpub\wwwroot\horas\horas.mdb;"
sql = "SELECT * FROM usuarios"
Set Res = Mi_Conexion.Execute(sql)
if Res.EOF then
usuario = Request.form("usuario")
clave = Request.form("clave")
Res.Close
Set Res=Nothing
Mi_Conexion.Close
Set Mi_Conexion = Nothing
response.redirect "ingresar.asp"
else
usuario = Request.Form ("usuario")
sql = "SELECT * FROM usuarios WHERE usuario = '" & usuario & "';"
Set Res = Mi_Conexion.Execute(sql)
If Not Res.EOF Then
clave = Request.form("clave")
if clave = Res ("clave") then
tipousuario = Res"tipousuario")
if tipousuario = "Administracion" or tipousuario= "administracion" then
session("seguridad")= 1
session("usuario")=usuario
Res.Close
Set Res=Nothing
Mi_Conexion.Close
Set Mi_Conexion = Nothing
response.redirect "administracion.asp"
else
if tipousuario = "Medico" then
session("seguridad")=2
session("usuario")=usuario
Res.Close
Set Res=Nothing
Mi_Conexion.Close
Set Mi_Conexion = Nothing
response.redirect "menumedico.asp"
else
if tipousuario = "Paciente" then
session("seguridad")=3
session("usuario")=usuario
Res.Close
Set Res=Nothing
Mi_Conexion.Close
Set Mi_Conexion = Nothing
response.redirect "menupaciente.asp"
else
response.redirect "advertencia.asp"
end if
end if
end if
else
Res.Close
Set Res=Nothing
Mi_Conexion.Close
Set Mi_Conexion = Nothing
response.redirect "advertencia.asp"
end if
Else
Res.Close
Set Res=Nothing
Mi_Conexion.Close
Set Mi_Conexion = Nothing
Response.redirect "advertencia.asp"
End If
End if
%>
</body>
</html>
Si te das cuenta en lo de color azul....yo estoy definiendo que sean redireccionados a distintas páginas según el tipo de usuario.... espero te sirva...
__________________
Buena Vida...
Francisco
Última edición por Bluesman74cl; 29/10/2003 a las 16:09 |