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
- <%
- '========= Script de verificação de login do usuário ==========
- 'Se o objeto passado não foi definido, é definido como falso, indicando que não passou a verificação
- IfisEmpty (sessão (passada)) então
- Sessão (passada) = false
- Endif
- 'Sessão (passada) = false, o que significa que as informações de verificação passadas do formulário ainda não foram aprovadas.
- IfSession (aprovado) = falseten
- Nome de usuário = request.form (nome de usuário)
- Userpwd = request.form (userpwd)
- IfUserName = então
- Errmsg = dica: insira seu nome de usuário e senha
- Outro
- '====================================================
- SetConn = server.createObject (adodb.connection)
- Conn.ConnectionString = driver = {SQLServer}; server = 192.168.1.3; uid = sa; pwd =; database = zcmrs
- Conn.Open
- '============================= Leia os dados do usuário da tabela log ============================
- 'Defina o objeto RecordSet
- Setrs = server.createObject (adodb.recordset)
- 'Definir o ConnectionString do objeto de conexão
- SetRs.ActiveConnection = Conn
- 'Definir tipo de cursor
- rs.cursortype = 3
- 'Conjunto de registro aberto
- Rs.openselectUserName, senhafromerpuserwhereuserName = '& Nome de usuário &'
- '====================================================
- Ifrs.eoftthen
- Errmsg = dica: o usuário não existe ou a senha está errada
- Outro
- IFUSERPWD <> rs.fields (senha) Então
- Errmsg = dica: o login falhou! Erro de senha?
- Else'gin com sucesso
- Errmsg =
- Sessão (passada) = true
- Sessão (nome de usuário) = rs.fields (nome de usuário)
- 'Identifique sessão de permissões de usuário (UserID) = Rs.fields (UserID)
- Endif
- Endif
- Endif
- Endif
- 'Após o login falhar, o formulário de login será desenhado
- IfNotSession (Passado) = Truethen
- %>
- <html>
- <head> <title> Design home_dwww.cn </ititle>
- <styleType = text/css>
- <!-
- .Style1 {font-size: 12px; font-peso: negrito; margem-esquerda: 120px; esboço: duplo}
- ->
- </style>
- <styleType = text/css>
- <!-
- .Style2 {font-size: 12px; font-weight: BOLD; esboço: duplo; cor:#ff3333}
- ->
- </style>
- </head>
- <bodyleftmargin = 0topmargin = 0marginHeight = 0MarginWidth = 0bgcolor =#000000>
- <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>
- <divid = DengLustyle = font-size: 12px; font-peso: negrito; cor de fundo:#0099ff; text-align: Center; altura: 40px;> <br> login do sistema erp </div>
- <formaction = <%= request.Servervariables (path_info)%> método = postname = myformid = myform>
- <pclass = style1> nome de usuário: <inputName = userNameType = textId = userNamesize = 18MaxLength = 20>
- </p>
- <pclass = style1> senha: <inputName = userpwdtype = mArinhaDID = userPwdsize = 18MaxLength = 20>
- </p>
- <palign = centrclass = style2> <%= errmsg%> </p>
- <p>
- <inputType = submitalign = middleName = submitValue = Sistema de login>
- <inputName = regeType = buttonalign = MIDELONCLICK = LOCALIZAÇÃO = 'Register.asp'id = regeValue = Registrar usuário>
- </p>
- </morm>
- </div>
- </body>
- </html>
- <%
- '<pclass = style1> Código de verificação: <inputName = checkCodeType = textId = checkCodesize = 6MaxLength = 4>
- '<Imgstyle = margem-direita: 40pxalt = src = Common/getCode.asp> </p>
- resposta.END
- Endif
- %>
Página para visitar Erp.asp
- <!-#incluirfile = chkpwd.asp->
- <Body>
- <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 é:
- <%
- IfSession (aprovado) = Truethen
- Response.Write (Sessão (nome de usuário))
- Endif
- %> <href = logout.asp> Saia do sistema </a>
- </div>
- </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
- <Body>
- <%
- Sessão (passada) = false
- Sessão (nome de usuário) =
- Response.Redirect (index.asp)
- %>
- </body>
Enviar formulário usando imagens
- <formName = form1method = postaction =>
- <tdalign = direita> <inputType = imageMethod = submitname = submitrc = image/loginin.gifwidth = 70Height = 21alt = submit> </td>
- </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