Recomendado: Uma breve discussão sobre o Princípio do Programa de Aquisição ASP As etapas principais do programa de coleta são as seguintes: 1. Obtenha o conteúdo da página 2 coletada. Extraia todos os dados do código de aquisição 1. Obtenha o conteúdo da página coletada que conheço atualmente sobre os métodos comumente usados para obter a página coletada: 1.
Script de verificação de login de usuário, chkpwd.asp
A seguir, o conteúdo citado:
<%
'========= 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
Se isempty (sessão (passada)), então
Sessão (passada) = false
Final se
'Sessão (passada) = false, o que significa que as informações de verificação passadas do formulário ainda não foram aprovadas.
Se sessão (passada) = false então
Nome de usuário = request.form (nome de usuário)
Userpwd = request.form (userpwd)
Se nome de usuário = então
Errmsg = dica: insira seu nome de usuário e senha
Outro
'====================================================
Definir Conn = Server.CreateObject (Adodb.Connection)
Conn.ConnectionString = driver = {SQL Server}; 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
Set rs = server.createObject (adodb.recordset)
'Definir o ConnectionString do objeto de conexão
Defina rs.ActiveConnection = Conn
'Definir tipo de cursor
rs.cursortype = 3
'Conjunto de registro aberto
Rs.Open Selecione o nome de usuário, senha do ErpUser onde o nome de usuário = '& Nome de usuário &'
'====================================================
Se rs.eof então
Errmsg = dica: o usuário não existe ou a senha está errada
Outro
Se userpwd <> rs.fields (senha) então
Errmsg = dica: o login falhou! Erro de senha?
Else 'login 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)
Final se
Final se
Final se
Final se
'Após o login falhar, o formulário de login será desenhado
Se não sessão (passada) = true então
%>
<html>
<head> <title> unt intitulado Documento </ititle>
<tipo de estilo = texto/css>
<!-
.Style1 {font-size: 12px; font-peso: negrito; margem-esquerda: 120px; esboço: duplo}
->
</style>
<tipo de estilo = texto/css>
<!-
.Style2 {font-size: 12px; font-weight: BOLD; esboço: duplo; cor:#ff3333}
->
</style>
</head>
<Body LeftMargin = 0 topmargin = 0 marginHeight = 0 marginwidth = 0 bgcolor =#000000>
<div ID = estilo pai = altura: 300; largura: 450; estilo de borda: sólido; cor de borda: #fffff; margem-top: 80px; margem-esquerda: 25%; margem-direita: 25%; cor de fundo: #fffff>
<div ID = Denglu Style = Fonte-tamanho: 12px; peso da fonte: Bold; cor de fundo:#0099FF; Text-align: Center; Hight: 40px;> <br> Erp System Login </div>
<formato de forma = <%= request.Servervariables (path_info)%> método = nome postal = myform id = myform>
<p class = style1> nome de usuário: <nome de entrada = nome de usuário Tipo = ID de texto = tamanho do nome de usuário = 18 maxLength = 20>
</p>
<p class = style1> senha: <nome de entrada = userpwd type = senha id = userpwd size = 18 maxlength = 20>
</p>
<p align = Center Class = style2> <%= errmsg%> </p>
<p>
<Tipo de entrada = enviar alinhamento = nome do meio = Valor de envio = login para sistema>
<nome de entrada = rege type = button align = middle OnClick = location = 'Register.asp' id = rege Value = Registrar Usuário>
</p>
</morm>
</div>
</body>
</html>
<%
'<P class = style1> Código de verificação: <nome de entrada = CheckCode Type = ID do texto = Tamanho do código de seleção = 6 maxLength = 4>
'<Img style = margem-direita: 40px alt = src = Common/getCode.asp> </p>
resposta.END
Final se
%>
Página para visitar Erp.asp
<O seguinte são o conteúdo citado:
<!-#inclua arquivo = chkpwd.asp->
<Body>
<div style = 'font-size: 12px; peso-fonte: negrito; borda: 1px Solid #001; preenchimento: 4px; fundo: #ffccff; margem-top: 0;'> Bem-vindo ao uso do sistema de consulta ERP, o usuário de login atual é:
<%
Se sessão (passada) = true então
Response.Write (Sessão (nome de usuário))
Final se
%> <a 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
A seguir, o conteúdo citado:
<nome de forma = form1 método = pós -ação =>
<td align = direita> <tipo de entrada = Método da imagem = Nome do envio = envio src = image/loginin.gif width = 70 altura = 21 alt = submit> </td>
</morm>
Compartilhar: ASP e Link de acesso Este artigo ilustra duas maneiras de vincular o ASP e o acesso em exemplos de ASP. A seguir, o conteúdo referenciado: %Dim DD, Connstrdd = data.mdbconnstr = & q