Verificar el código fuente en segundo plano
<! -# incluir archivo = " Inc/conn . ASP "-& gt;
<! -# incluir archivo = " Inc/MD5 . ASP "-& gt;
<! -# incluir archivo = " Inc/admin _ transmisión . ASP "-& gt;& gt;& lt%
nombre de usuario atenuado, contraseña
Nombre de usuario= preguntar. form("nombre de usuario")
nombre de usuario = userif(nombre de usuario)
contraseña = solicitud. form("contraseña")
contraseña = userif(contraseña)
contraseña = MD5(replace(trim(Solicitud("contraseña")),"'",""), 32)
establecer RS = servidor . createobject(" adodb . recordset ")
sql="seleccione [usuario], [contraseña] de [admin] donde [usuario] = ' " & nombre de usuario&contraseña&[pwd]= ' " & contraseña&"
Connecticut, 1, 1
si rs.eof entonces
%>
<Script>Alert("El nombre de usuario y la contraseña son incorrectos");
ubicación.href='login.asp '
& lt/script & gt;
& lt%
Otro
Sesión("usuario")=nombre de usuario
Sesión (" pwd ")=contraseña
Respuesta. Redirect(" admin_index.asp ")
Terminará si...
% & gt
& ltscript language = javascript & gt
Función SetFocus()
{
if (document.Login.UserName.value== " ")
Documento. iniciar sesión . nombre de usuario . focus();
Otros
Documentos. iniciar sesión . nombre de usuario . select();
}
Función CheckForm()
{
if (document.Login.UserName). .value== " ")
{
Alerta("¡Ingrese su nombre de usuario!");
Documento. iniciar sesión . nombre de usuario . focus();
Devuelve falso
}
if (document.Login.Password.value == " ")
{
Alerta("¡Ingrese su contraseña!");
Documento. iniciar sesión . focus();
Devuelve falso
}
}
& lt/script & gt; p>
p>