Script de verificación de inicio de sesión del usuario, chkpwd.asp
<%
'========= Script de verificación de inicio de sesión de usuario =======
'Si el objeto aprobado no se define, lo define como falso, lo que indica que no ha pasado la verificación
Si isEtimty (sesión (aprobado)) entonces
Sesión (pasada) = falso
Final si
'Sesión (aprobada) = falso, lo que indica que la información de verificación del formulario no se ha aprobado, no ha aprobado la verificación
Si la sesión (aprobado) = falso entonces
UserName = request.Form (nombre de usuario)
Userpwd = request.form (userPwd)
Si username = entonces
Errmsg = solicitante: ingrese el nombre de usuario y la contraseña
Demás
'==================== CONNECT BASE ===================
Establecer conn = server.createObject (ADODB.Connection)
Conn.connectionString = Driver = {SQL Server};
Conn.open
'=================== LEER DATOS DE USUARIO ======================
'Defina el objeto de conjunto de registros
Establecer RS = Server.CreateObject (ADODB.oldset)
'Establecer el objeto de conexión ConnectionString
Establecer rs.activeconnection = Conn
'Establezca el tipo de cursor
Rs.Cursortype = 3
'Abra el conjunto de registros
Rs.oopen Seleccione Nombre de usuario, Contraseña de ErpUseer donde username = '& UserName &'
'==========================================
Si rs.Eof entonces
Errmsg = consejo: los usuarios no existen o errores de contraseña
Demás
Si userpwd <> rs.fields (contraseña) entonces entonces
ERRMSG = SUGERENCIA: ¡Iniciar sesión!
De lo contrario 'Iniciar sesión exitoso
Errmsg =
Sesión (pasada) = True
Sesión (nombre de usuario) = rs.fields (nombre de usuario)
'Identificar la sesión de permisos de usuario (UserId) = Rs.fields (UserId)
Final si
Final si
Final si
Final si
'Después de que el inicio de sesión no tiene éxito, se dibuja el formulario de inicio de sesión
Si no la sesión (aprobada) = True entonces
%>
<html>
<HEAD> <title> Documento no -tito </title>
<Estilo type = text/css>
<!-
Style1 {Font-Size: 12px;
->
</style>
<Estilo type = text/css>
<!-
Style2 {Font-Size: 12px;
->
</style>
</ablo)
<Body LeftMargin = 0 topmargin = 0 marginHeight = 0 marginwidth = 0 bgcolor =#000000>
<Div id = parent ckground- color: #ffffff>
<Div ID = Denglu Style = Font-Size: 12px;
<Form Action = <%= request.ServerVariables (path_info)%> método = post name = myForm id = myForm>
<p class = style1> username: <input name = username type = text id = username size = 18 maxLength = 20>
</p>
<p class = style1> contraseña: <input name = userpwd type = contraseña id = userpwd size = 18 maxLength = 20>
</p>
<P align = Center class = style2> <%= errmsg%> </p>
<p>
<input type = enviar align = mide name = enviar value = sistema de inicio de sesión>
<input name = REGE type = Botton align = Middle Onck = Ubicación = 'Registro.asp' id = Rege Value = Usuario registrado>
</p>
</form>
</div>
</body>
</html>
<%
'<p class = style1> código de verificación: <input name = checkcode type = text id = checkcode size = 6 maxLength = 4>
'<Img style = margin-right: 40px alt = src = común/getcode.asp> </p>
respuesta.
Final si
%>
Página ERP.asp para ser visitado
<!-#incluye archivo = chkpwd.asp->
<Body>
<Div style = 'Font-Size: 12px;
<%
Si la sesión (pasada) = verdadero entonces
Response.Write (Sesión (nombre de usuario))
Final si
%> <A href = logrout.asp> Sistema de salida </a>
</div>
</body>
Cada vez que abre ERP.ASP, primero ejecuta chkpwd.asp (), que puede evitar que los usuarios no autorizados accedan a las páginas web especificadas.
Logrout.asp System Salida
<Body>
<%
Sesión (pasada) = falso
Sesión (nombre de usuario) =
Respuesta.Redirect (index.asp)
%>
</body>
Use la imagen para enviar el formulario
<Form de nombre = form1 método = post accy =>
<td align = right> <input type = image método = enviar nombre = enviar src = imagin/loginin.gif width = 70 Height = 21 alt = shit> </td>
</form>