Ver Mensaje Individual
  #2 (permalink)  
Antiguo 23/05/2012, 08:41
neofilo
 
Fecha de Ingreso: abril-2012
Ubicación: Madrid (España)
Mensajes: 162
Antigüedad: 12 años, 8 meses
Puntos: 5
Respuesta: Variables de Session

Este es el index que uso yo para hacer un login. espero que te sirva.

los includes los puedes borrar si no te interesa y quitar la asignación para generar MD5///////////////////////////////////////////////////////////////////////////////////////////////////
index.asp
//////////////

<?xml version="1.0" encoding="utf-8"?><%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<title>Wincor-Nixdorf Soporte LIDL</title>
<!--#include file="conexionCrear.asp"-->
<!--#include file="MD5.asp"-->


</head>


<body bgcolor="#CCCCCC">
<center>
<p>LOGIN DE USUARIO</p>
<%
error = request.querystring("error")
if error = "1" then
response.write("<p>Usuario o Contraseña incorrectos</p>")
End if

%>
<form name="form2" method="get" action="">
<table width="397" height="246" border="1">
<tr>
<td width="189" height="41" align="center" valign="middle">Usuario</td>
<td width="192" align="center" valign="middle"><input name="login" type="text" id="log" /></td>
</tr>
<tr>
<td height="41" align="center" valign="middle">Contraseña</td>
<td align="center" valign="middle"><input name="pass" type="password" id="log2" /></td>
</tr>

<tr>

<td colspan="2" align="center" valign="middle"><input type="submit" name="Submit2" value="Enviar" /></td>
<input name="enviado" type="hidden" id="enviado" value="1">
</tr>
</table>
</form>


<%
enviado = request.querystring("enviado")

if enviado = "1" then
dim sqlLogin
login = request.querystring("login")
tempPass = request.querystring("pass")

pass = md5(tempPass)

sqlLogin = "select * from T_login where login ='"&login&"' and password ='"&pass&"'"


set rsLogin = ConexionLIDL.execute(sqlLogin)

if rsLogin.eof then

response.Redirect("index.asp?error=1")
else

if rsLogin("password") = pass and rsLogin("login") = login and rsLogin("admin") = "si" then
response.Cookies("wincor")="admin"

cookie = request.Cookies("wincor")
response.Redirect("index_admin.asp")




else
if rsLogin("password") = pass and rsLogin("login") = login then
response.Cookies("wincor")=rsLogin("login")
'response.write(minute(Now)+1)
'response.Cookies("wincor").Expires=date() + minute(Now)+1
cookie = request.cookies("wincor")
response.Redirect("crear_log.asp")
else
end if
end if
end if
response.Redirect("index.asp?error=1")
End If




%>


<p>&nbsp;</p>
</center>

</body>
<!--#include file="ConexionCerrar.asp"-->
</html>


/////////////////////////////////////////////////////////////////////////////////////////////////////

Conexión Crear.asp
//////////////////////////

<%
set ConexionLIDL=server.createobject("ADODB.Connection ")
ConexionLIDL.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("db/datos.mdb")



Private Function Veces(Texto,Caracter)
Dim Caracter_En_Curso
If Texto<>"" And Caracter<>"" Then
Veces=0
For I=1 To Len(Texto)
Caracter_En_Curso = Mid(Texto,I,1)
If Caracter_En_Curso = Caracter Then Veces = Veces + 1
Next
End If
End Function
Function Limpiarcadena(Input)
Dim Tempstr
Tempstr = Ltrim(Input)
Tempstr = Replace(Tempstr,"'","''")
Tempstr = Replace(Tempstr,"<","")
Tempstr = Replace(Tempstr,">","")
Tempstr = Replace(Tempstr,"&"," And ")
Tempstr = Replace(Tempstr,"--","")
Tempstr = Replace(Tempstr,";","")
Tempstr = Replace(Tempstr,"Script","S-C-R-I-P-T",1,-1,1)
Tempstr = Replace(Tempstr,"%"," % ")
Limpiarcadena = Tempstr
End Function
%>