Inicio>Tutorial de programación de red>Tutorial ASP

Programa de verificación de página de inicio de sesión de producción ASP

Autor：Eve Cole Fecha de actualización：2025-04-27 10:32:01

Recomendado: ADO Tutorial para principiantes: pantalla de ADO
La forma más común de mostrar datos de un conjunto de registros es mostrar los datos en una tabla HTML. Muestre nombres de campo y valores de campo Tenemos una base de datos llamada Northwind, y queremos mostrar los datos en la tabla de los clientes (recuerde guardar este archivo con .asp como extensión): htmlbody%set conn = server.createObject (

Script de verificación de inicio de sesión del usuario, chkpwd.asp

  1.  <%
  2.  '========= Script de verificación de inicio de sesión de usuario ========
  3.  'Si el objeto aprobado no se ha definido, se define como falso, lo que indica que no ha pasado la verificación
  4.  Ifisempty (sesión (aprobado)) entonces
  5.  Sesión (pasada) = falso
  6.  Endif
  8.  'Sesión (aprobada) = falso, lo que significa que la información de verificación aprobada del formulario aún no se ha aprobado.
  9.  Ifsession (pasado) = falsethen
  10.  UserName = request.Form (nombre de usuario)
  11.  Userpwd = request.form (userPwd)
  13.  Ifusername = entonces
  14.  Errmsg = consejo: ingrese su nombre de usuario y contraseña
  15.  Demás
  16.  '======================================================
  17.  Setconn = server.createObject (ADODB.Connection)
  18.  Conn.connectionString = driver = {sqlserver}; server = 192.168.1.3; uid = sa; pwd =; database = zcmrs
  19.  Conn.open
  20.  '============================ Lea los datos del usuario de la tabla Log ==========================
  21.  'Definir el objeto de récordsset
  22.  Setrs = server.createObject (ADODB.Recordset)
  23.  'Establecer conexiones del objeto de conexión
  24.  Setrs.activeconnection = Conn
  25.  'Establezca el tipo de cursor
  26.  Rs.Cursortype = 3
  27.  'Conjunto de registros abiertos
  28.  rs.openselectUsername, contraseñaFromerPuserWhereUsername = '& UserName &'
  29.  '======================================================
  30.  Ifrs.eoftthen
  31.  Errmsg = consejo: el usuario no existe o la contraseña está incorrecta
  32.  Demás
  33.  Ifuserpwd <> rs.fields (contraseña) entonces
  34.  Errmsg = consejo: ¡falló el inicio de sesión! ¿Error de contraseña?
  35.  De lo contrario de lo contrario
  36.  Errmsg =
  37.  Sesión (pasada) = True
  38.  Sesión (nombre de usuario) = rs.fields (nombre de usuario)
  39.  'Identificar la sesión de permisos de usuario (UserID) = Rs.fields (UserID)
  40.  Endif
  41.  Endif
  42.  Endif
  43.  Endif
  44.  'Después de inicio de sesión, se dibujará el formulario de inicio de sesión
  45.  IfNotsession (pasado) = TrueThen
  46.  %>
  48.  <html>
  49.  <Bead> <title> Design Home_dwww.cn </title>
  50.  <styletype = text/css>
  51.  <!-
  52.  .Style1 {Font-Size: 12px; Font-Weight: Bold; Margen-izquierda: 120px; Outline: Double}
  53.  ->
  54.  </style>
  55.  <styletype = text/css>
  56.  <!-
  57.  .Style2 {Font-Size: 12px; Font-Weight: Bold; Outline: Double; Color:#FF3333}
  58.  ->
  59.  </style>
  60.  </ablo>
  62.  <BodyleftMargin = 0TopMargin = 0MarginHeight = 0MarginWidth = 0BGColor =#000000>
  63.  <divid = parentstyle = altura: 300; ancho: 450; estilo borde: sólido; color borde: #fffff; margen-top: 80px; margen-izquierda: 25%; margen-derecha: 25%; color de fondo: #fffff>
  65.  <divid = denglustyle = font-size: 12px; font-weight: negri; background-color:#0099ff; text-align: centro; altura: 40px;> <br> ERP System Ingangin </div>
  66.  <formaction = <%= request.ServerVariAbles (path_info)%> método = postname = myFormId = myForm>
  67.  <pclass = style1> username: <inputName = usernameType = textID = usernamesize = 18MaxLength = 20>
  68.  </p>
  69.  <pclass = style1> contraseña: <inputName = userPwdtype = contraseña = userPwdsize = 18MaxLength = 20>
  70.  </p>
  71.  <palign = centerClass = style2> <%= errmsg%> </p>
  72.  <p>
  73.  <inputType = submitalign = middlename = SubmitValue = Sistema de inicio de sesión>
  74.  <inputName = regeType = buttonalign = middleOnClick = ubicación = 'registrar.asp'id = regeValue = registro user>
  75.  </p>
  76.  </form>
  77.  </div>
  79.  </body>
  81.  </html>
  82.  <%
  83.  '<Pclass = style1> Código de verificación: <inputName = checkCodeType = textID = checkCodesize = 6MaxLength = 4>
  84.  '<ImgStyle = margin-right: 40pxalt = src = común/getcode.asp> </p>
  85.  respuesta.
  86.  Endif
  87.  %>

Página para visitar ERP.asp

  1.  <!-#includeFile = chkpwd.asp->
  2.  <Body>
  3.  <divstyle = 'font-size: 12px; font-weight: bold; border: 1pxsolid#001; relleno: 4px; fondo: #ffccfff; margin-top: 0;'> Bienvenido a usar el sistema de consulta ERP, el usuario actualizado registrado es:
  4.  <%
  5.  Ifsession (aprobado) = TrueThen
  6.  Response.Write (Sesión (nombre de usuario))
  7.  Endif
  8.  %> <ahref = logrout.asp> Salir del sistema </a>
  9.  </div>
  10.  </body>

Cada vez que abre ERP.ASP, primero ejecuta chkpwd.asp (), que puede evitar que los usuarios no autorizados accedan a la página web especificada.

Subsout.asp System Salida

  1.  <Body>
  2.  <%
  3.  Sesión (pasada) = falso
  4.  Sesión (nombre de usuario) =
  5.  Respuesta.Redirect (index.asp)
  6.  %>
  7.  </body>

Enviar formulario usando imágenes

  1.  <FormName = Form1Method = PostAction =>
  2.  <tdalign = right> <inputType = imageMethod = SubmitName = SubsRRC = Image/LoginIn.gifWidth = 70Height = 21alt = Subt> </td>
  3.  </form>

Compartir: ADO Tutorial para principiantes: ADO Agregar registros
Podemos usar el comando insertar de SQL para agregar registros a las tablas en la base de datos. Agregar registros a las tablas en la base de datos queremos agregar un nuevo registro a la tabla de clientes en la base de datos Northwind. Primero debemos crear un formulario que contenga los campos que queremos seleccionar datos: htmlBodyForm Method = post Action = Dem

Artículos relacionados