Usamos cookies para medir audiência e melhorar sua experiência. Você pode aceitar ou recusar a qualquer momento. Veja sobre o iMasters.
Olá
Gente fiquei sabendo que o codigo para conectar no banco de dados OBDC é
Driver={Microsoft dBASE Driver (*.dbf)};DriverID=277;Dbq=c:\mydbpath;mais não sei criar um sistema de login com este codigo sa tenho a ODBC mondada e a tabela tamben mais nãosei montar o login vcs podem me ajudar.
Obrigado
Tenta isso:
<% 'Conexão com o banco de dados
conexao="Driver={Microsoft dBASE Driver (*.dbf)};DriverID=277;Dbq=c:\mydbpath;"
Set DB = Server.CreateObject("ADODB.Connection")
DB.Open conexao
login=(Request.QueryString("login"))
senha=(Request.QueryString("senha"))
set acesso=DB.Execute("SELECT * FROM acesso WHERE login='"&login&"' AND senha='"&senha&"' ")
' Caso os dados não estiverem corretos o usuário é enviado para a entrar.htm
if acesso.eof then
Response.write "Usuário não logado"
else
Session("login")=login
'Session("usuario")= acesso("usuario")
'Session("Email")= acesso("Email")
Session("login")= acesso("login")
'você pode colocar quais sessions você quiser aqui que o restante do site vai ler.
Response.Redirect"acesso.asp"
end if
DB.close
%>