
06/01/2002, 21:56
|
 | | | Fecha de Ingreso: octubre-2000 Ubicación: Dentro de mi cabeza. ono?
Mensajes: 1.264
Antigüedad: 24 años, 7 meses Puntos: 3 | |
Re: como protejo acceso a directorio web Hola, aqui va el código para la pagina que recibe el formulario. Este código fue generado en parte con el dreamweaver, espero no te confundas. Si tienes dudas sigue preguntando.
<%@LANGUAGE="VBSCRIPT"%> <%
Dim oConn__nombre
oConn__nombre = "0"
if(Request.Form("Nombre") <> "") then oConn__nombre = Request.Form("Nombre")
Dim oConn__passw
oConn__passw = "0"
if(Request.Form("Password") <> "") then oConn__passw = Request.Form("Password")
%> <%
set oConn = Server.CreateObject("ADODB.Recordset")
oConn.ActiveConnection = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("db/trabajo.mdb")
oConn.Source = "SELECT * FROM clientes WHERE user = '" + Replace(oConn__nombre, "'", "''") + "' AND pass ='" + Replace(oConn__passw, "'", "''") + "'"
oConn.CursorType = 0
oConn.CursorLocation = 2
oConn.LockType = 3
oConn.Open
if oConn.EOF then
Response.Redirect("fallo.asp")
end if
oConn_numRows = 0
Session("user")=(oConn.Fields.Item(" ;user").Value)
Session("pasword")=(oConn.Fields.Item(&q uot;pass").Value)
%>
espero te ayude |