Ver Mensaje Individual
  #6 (permalink)  
Antiguo 06/01/2002, 21:56
Avatar de Sir Matrix
Sir Matrix
 
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(&quot ;user").Value)
Session("pasword")=(oConn.Fields.Item(&q uot;pass").Value)
%>



espero te ayude