|
|
<< Volta para a lista de códigos#2 - 01/07/2006 13:00:00
Validando usuário e senha 
<% Option Explicit %>
<HTML>
<HEAD>
<META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
<TITLE></TITLE>
</HEAD>
<BODY>
<%
if Request.Form("loginname") = "" then
%>
<FORM METHOD=POST ACTION='login_pt.asp'>
<table>
<TR><TD>Usuário</td><td><INPUT TYPE=TEXT NAME=LOGINNAME SIZE=15 MAXLENGTH=15></INPUT></TD></TR>
<TR><TD>Senha</td><td><INPUT TYPE=PASSWORD NAME=PWD SIZE=10 MAXLENGTH=10></INPUT></TD></TR>
<TR><TD></TD><TD><INPUT TYPE=SUBMIT></INPUT><INPUT TYPE=RESET></INPUT>
</table>
</FORM>
<%
else
Dim oConn, oRS, strSQL, strConn
' oConn = objeto conexão
' oRS = object RecorSet
' strConn = string the conexão
' strSQL = Instrução SQL
StrConn = "Driver={Driver do Microsoft Access (*.mdb)}; DBQ=" & Server.MapPath("cadastro.mdb")
Set oConn = Server.CreateObject("ADODB.Connection")
Set oRS = Server.CreateObject("ADODB.RecordSet")
strSQL = "SELECT * FROM tab_senha WHERE username = '" & Request.Form("loginname") & "' AND senha = '" & Request.Form("pwd") & "'"
' O Response.Write abaixo é apenas para entendimento da linha acima
Response.Write strSQL & "<br><br>"
oRS.Open strSQL, strConn
if NOT oRS.EOF then
Response.Write "Válido!"
Else
Response.Write "Inválido!"
End if
oRS.Close
Set oRS = Nothing
Set oConn = Nothing
end if
%>
</BODY>
</HTML>
<< Volta para a lista de códigos
|
|
