Snarfer
Ya probe entrando yo con el login de mis amigas, y con el de mis amigos, y no pasa nada con el de ellas
g_susdaniel
Espero que no sea gay... y de eso estoy seguro, porque yo lo hice ;) .. y lo que hago, es bien hecho
Nochero
Creo que tienes mucha razón... solo acepta seres racionales y de esos, habemos pocos
.. jejejej.. no es cierto !!!
Comsis
Aqui pongo el código paa que lo chequen y vean que tengo razón, en que todo esta bien
Código:
<%
Set Conn = Server.CreateObject("ADODB.Connection")
Set Obj_Rs = Server.Createobject("ADODB.Recordset")
sConnection = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source="& _
Server.MapPath("/tesis/db/users.mdb") & _
";" & _
"Persist Security Info=False"
Conn.Open(sConnection)
Obj_RS.Open "users", Conn, 3 , 3
dim valido
valido=0
while (NOT Obj_Rs.EOF)
if(Obj_Rs.fields("nombreusuario")=LCase(request.form("nombreusuario")) )then
if (Obj_Rs.fields("password")=LCase(request.form("password")))then
valido=1
end if
end if
Obj_Rs.movenext()
wend
if (valido=1)then
%>
<%
Response.Cookies("Usuario")= Request.Form("nombreusuario")
%>
<p>Bienvenido<b> <% =Request.Cookies("Usuario") %> </b>. Has Iniciado Tu Sesión.</p><p>
Usa el Menú de la Página para Navegar por el sitio</p>
<%else%>
<p style="margin-top: 0; margin-bottom: 0"><b>Nombre de Usuario</b> ó <b>
Contraseña</b> no validos.</p>
<p style="margin-top: 0; margin-bottom: 0">Favor de regresar y checarlos</p>
<%end if%>
Como verán es muy sencillo el código, y solo funciona los hombres
Puedeb probarlo para que vean.
aqui tienen la dir y algunos nicks y passwords
URL: <a href='ir.asp?http://www.fcatorreon.com.mx/tesis/index.asp' target='_blank'>www.fcatorreon.com.mx/tesis/index.asp...</a>
Nick:Owen
Password:burusnilla
Nick:Sandra
Password:Cardona
Nick:Edgar
Password:123456
Nick:Alcatraz
Password:mora
Owen Bonilla
Webmaster Weblaguna S. C.
[email protected]
[email protected]