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 for definido, ele o define como falso, indicando que ele não passou a verificação
Se isEmpty (sessão (passada)) então
Sessão (passada) = false
Final se
'Sessão (passada) = false, indicando que as informações de verificação do formulário não foram aprovadas, não passou a verificação
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 = prompt: insira o nome de usuário e a senha
Outro
'=================== Connect Database ====================
Definir Conn = Server.CreateObject (Adodb.Connection)
Conn.ConnectionString = Driver = {SQL Server};
Conn.Open
'=================== Leia dados do usuário ======================
'Defina o objeto RecordSet
Set rs = server.createObject (adodb.oldset)
'Definir conexão de conexão Connectionstring
Definir Rs.ActiveConnection = Conn
'Defina o tipo de cursor
rs.cursortype = 3
'Abra o conjunto de registros
Rs.ooopen Selecione o nome de usuário, senha do Erpuseer onde o nome de usuário = '& Nome de usuário &'
'==========================================
Se rs.eof então
Errmsg = dica: os usuários não existem ou erros de senha
Outro
Se userpwd <> rs.fields (senha), então
Errmsg = Dica: Log -in! A senha está errada?
Else 'login bem -sucedido
Errmsg =
Sessão (passada) = true
Sessão (nome de usuário) = rs.fields (nome de usuário)
'Identifique a sessão de permissões do usuário (UserID) = Rs.Fields (UserID)
Final se
Final se
Final se
Final se
'Depois que o login não tiver sucesso, o formulário de login é desenhado
Se não sessão (passada) = true então
%>
<html>
<head> <title> Documento não -título </ititle>
<Tipo de estilo = texto/css>
<!-
.Style1 {font-size: 12px;
->
</style>
<Tipo de estilo = texto/css>
<!-
.Style2 {font-size: 12px;
->
</style>
</head>
<Body LeftMargin = 0 topmargin = 0 marginHeight = 0 marginwidth = 0 bgcolor =#000000>
<Div id = pai ckground- Color: #ffffff>
<Div ID = DenGLU Style = Fonte-Size: 12px;
<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 alinhe = nome da mide = Valor de envio = Sistema de login>
<nome de entrada = rege type = button align = middle onck = location = 'register.asp' id = rege valor = usuário registrado>
</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 erp.asp para ser visitado
<!-#inclua arquivo = chkpwd.asp->
<Body>
<Div Style = 'Font-Size: 12px;
<%
Se sessão (passada) = true então
Response.Write (Sessão (nome de usuário))
Final se
%> <A href = logout.asp> Sistema de saída </a>
</div>
</body>
Cada vez que você abre o ERP.asp, você primeiro executa o chkpwd.asp (), que pode impedir efetivamente usuários não autorizados de acessar as páginas da web especificadas.
Logout.asp Sistema Sair
<Body>
<%
Sessão (passada) = false
Sessão (nome de usuário) =
Response.Redirect (index.asp)
%>
</body>
Use a imagem para enviar o formulário
<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 = submet> </td>
</morm>