Página Inicial>Tutorial de programação de redes>Tutorial ASP

Programa de verificação de página de login de produção ASP

Autor：Eve Cole Data da Última Atualização：2025-04-27 10:32:01

Recomendado: ADO Tutorial para iniciantes: Display ADO
A maneira mais comum de exibir dados de um conjunto de registros é exibir os dados em uma tabela HTML. Mostrar nomes de campo e valores de campo Temos um banco de dados chamado Northwind, e queremos exibir os dados na tabela de clientes (lembre -se de salvar esse arquivo com .asp como extensão): htmlbody%set conn = server.createbject (

Script de verificação de login de usuário, chkpwd.asp

  1.  <%
  2.  '========= Script de verificação de login do usuário ==========
  3.  'Se o objeto passado não foi definido, é definido como falso, indicando que não passou a verificação
  4.  IfisEmpty (sessão (passada)) então
  5.  Sessão (passada) = false
  6.  Endif
  8.  'Sessão (passada) = false, o que significa que as informações de verificação passadas do formulário ainda não foram aprovadas.
  9.  IfSession (aprovado) = falseten
  10.  Nome de usuário = request.form (nome de usuário)
  11.  Userpwd = request.form (userpwd)
  13.  IfUserName = então
  14.  Errmsg = dica: insira seu nome de usuário e senha
  15.  Outro
  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.  '============================= Leia os dados do usuário da tabela log ============================
  21.  'Defina o objeto RecordSet
  22.  Setrs = server.createObject (adodb.recordset)
  23.  'Definir o ConnectionString do objeto de conexão
  24.  SetRs.ActiveConnection = Conn
  25.  'Definir tipo de cursor
  26.  rs.cursortype = 3
  27.  'Conjunto de registro aberto
  28.  Rs.openselectUserName, senhafromerpuserwhereuserName = '& Nome de usuário &'
  29.  '====================================================
  30.  Ifrs.eoftthen
  31.  Errmsg = dica: o usuário não existe ou a senha está errada
  32.  Outro
  33.  IFUSERPWD <> rs.fields (senha) Então
  34.  Errmsg = dica: o login falhou! Erro de senha?
  35.  Else'gin com sucesso
  36.  Errmsg =
  37.  Sessão (passada) = true
  38.  Sessão (nome de usuário) = rs.fields (nome de usuário)
  39.  'Identifique sessão de permissões de usuário (UserID) = Rs.fields (UserID)
  40.  Endif
  41.  Endif
  42.  Endif
  43.  Endif
  44.  'Após o login falhar, o formulário de login será desenhado
  45.  IfNotSession (Passado) = Truethen
  46.  %>
  48.  <html>
  49.  <head> <title> Design home_dwww.cn </ititle>
  50.  <styleType = text/css>
  51.  <!-
  52.  .Style1 {font-size: 12px; font-peso: negrito; margem-esquerda: 120px; esboço: duplo}
  53.  ->
  54.  </style>
  55.  <styleType = text/css>
  56.  <!-
  57.  .Style2 {font-size: 12px; font-weight: BOLD; esboço: duplo; cor:#ff3333}
  58.  ->
  59.  </style>
  60.  </head>
  62.  <bodyleftmargin = 0topmargin = 0marginHeight = 0MarginWidth = 0bgcolor =#000000>
  63.  <divid = parentStyle = altura: 300; largura: 450; estilo de borda: sólido; cor de borda: #fffff; margin-top: 80px; margem-esquerda: 25%; margem-direita: 25%; cor de fundo: #ffff>
  65.  <divid = DengLustyle = font-size: 12px; font-peso: negrito; cor de fundo:#0099ff; text-align: Center; altura: 40px;> <br> login do sistema erp </div>
  66.  <formaction = <%= request.Servervariables (path_info)%> método = postname = myformid = myform>
  67.  <pclass = style1> nome de usuário: <inputName = userNameType = textId = userNamesize = 18MaxLength = 20>
  68.  </p>
  69.  <pclass = style1> senha: <inputName = userpwdtype = mArinhaDID = userPwdsize = 18MaxLength = 20>
  70.  </p>
  71.  <palign = centrclass = style2> <%= errmsg%> </p>
  72.  <p>
  73.  <inputType = submitalign = middleName = submitValue = Sistema de login>
  74.  <inputName = regeType = buttonalign = MIDELONCLICK = LOCALIZAÇÃO = 'Register.asp'id = regeValue = Registrar usuário>
  75.  </p>
  76.  </morm>
  77.  </div>
  79.  </body>
  81.  </html>
  82.  <%
  83.  '<pclass = style1> Código de verificação: <inputName = checkCodeType = textId = checkCodesize = 6MaxLength = 4>
  84.  '<Imgstyle = margem-direita: 40pxalt = src = Common/getCode.asp> </p>
  85.  resposta.END
  86.  Endif
  87.  %>

Página para visitar Erp.asp

  1.  <!-#incluirfile = chkpwd.asp->
  2.  <Body>
  3.  <divstyle = 'Size da fonte: 12px; peso da fonte: negrito; borda: 1pxSolid#001; preenchimento: 4px; fundo: #ffccff; margin-top: 0;'> Bem-vindo ao uso do sistema de consulta ERP, o usuário atual é: o usuário é:
  4.  <%
  5.  IfSession (aprovado) = Truethen
  6.  Response.Write (Sessão (nome de usuário))
  7.  Endif
  8.  %> <href = logout.asp> Saia do sistema </a>
  9.  </div>
  10.  </body>

Toda vez que você abre o ERP.asp, primeiro executa o chkpwd.asp (), que pode impedir efetivamente usuários não autorizados de acessar a página da web especificada.

Logout.asp Sistema Sair

  1.  <Body>
  2.  <%
  3.  Sessão (passada) = false
  4.  Sessão (nome de usuário) =
  5.  Response.Redirect (index.asp)
  6.  %>
  7.  </body>

Enviar formulário usando imagens

  1.  <formName = form1method = postaction =>
  2.  <tdalign = direita> <inputType = imageMethod = submitname = submitrc = image/loginin.gifwidth = 70Height = 21alt = submit> </td>
  3.  </morm>

Compartilhar: Tutorial para iniciantes da ADO: ADO Add Records
Podemos usar a inserção do SQL no comando para adicionar registros às tabelas no banco de dados. Adicionando registros às tabelas no banco de dados, queremos adicionar um novo registro à tabela de clientes no banco de dados Northwind. Primeiro, precisamos criar um formulário que contenha os campos que queremos selecionar dados: htmlbodyform método = pós -ação = DEM

Artigos Relacionados