Cómo mantener el estado de inicio de sesión durante 1 mes en programación asp

Al iniciar sesión:

Si RememberLogin=true Entonces

Response.Cookies("Cookie")("key1") = Nombre de usuario

Response.Cookies("Cookie")("key2") = UserPwd

Response.Cookies("Cookie").Expires = Fecha()+30

Finalizar si

Al verificar permisos:

'Leer cookies no vacías para iniciar sesión automáticamente

dim clUserName,clUserPwd

clUserName = Request.Cookies ( "Cookie")("key1")

clUserPwd = Request.Cookies("Cookie")("key2")

Si Session("User")="" Entonces

Llamar a Login_Cookies() 'Llamar al proceso de inicio de sesión

Finalizar si

'Proceso de inicio de sesión

Sub Login_Cookies()

Si Session("User")="" y clUserName<>"" y clUserPwd<>"" Entonces

Código de inicio de sesión, escriba el código de valor de sesión, igual que el inicio de sesión separado

Finalizar si

Finalizar sub