Red de conocimiento informático - Conocimiento del nombre de dominio - Cómo obtener el código fuente de inicio de sesión del usuario del sitio web

Cómo obtener el código fuente de inicio de sesión del usuario del sitio web

index.asp：

si Sesión("Uid")="" o Sesión("ifUserLogin")<>1 entonces

Respuesta. redirigir "login.asp"

else

'El código de página comienza

finaliza si

Para simplificar el proceso, coloque la página de envío de inicio de sesión y el programa de verificación de antecedentes en la misma página:

'Nota: la primera oración es llamar al código de conexión de la base de datos, el segundo código es llamar a la función para cifrar la contraseña

'Asegúrese de que el directorio de su sitio web tenga este archivo, puede descargar un cópielo de Internet si no lo tiene.

Dim Action

action=Trim(Request("action"))

if action ="ChkLogin" luego

llamar a ChkLogin()

de lo contrario

llamar a UserLogin()

finalizar si

Sub UserLogin

'Inicio del código del formulario de envío del usuario

Response.write"

End Sub

Sub ChkLogin ()

'Inicio de la sección de validación del backend

'Debido a que el mecanismo de validación es diferente para cada CAPTCHA

'se omite a juicio.

Dim Rs,SQL,UID,PWD

UID=Trim(Request.form("uid"))

PWD=MD5(Request.form("pwd" )) 'Llame a MD5 aquí para cifrar la contraseña

si UID="" o PWD= "" entonces

Response.write "

t language='Javascript'>alert('El nombre de usuario y la contraseña no pueden estar vacíos');history.back(-1);"

Set Rs= server.CreateObject("adodb .recordset")

SQL="seleccione * de [hyuser] donde Uid='"&UID&"' y PWD='"&PWD&"' "

Rs. abra SQL,conn ,1,1

si Rs.eof o Rs.bof entonces

Response.write ""

else

Sesión("uid")=UID

Sesión("ifUserLogin")=1 p>

Respuesta.redirect" member.asp"

end if

Establecer Rs=nada

End Sub