E' semplicissimo
1- Crei il form login con metodo post.
2- crei una funzione che sostituisca gli apici o altri caratteri strani inseriti nel form
codice:
user = fixsql(Request.Form("user"))
password = fixsql(Request.Form("password"))
set Rslogin = Server.CreateObject("ADODB.RecordSet")
'fix sql è la funzione che fa il replace di caratteri non validi come apici etc etc se la cerchi nel forum la trovi.
2- fai la connessione alla tabella
codice:
sql="Select * From tabellalogin "
sql=sql & "Where user = '"&user&"' "
sql=sql & "And password = '"&password&"'"
rslogin.Open sql,con,1,3
If not RSlogin.EOF Then
session("autenticato") = true
Session.Timeout = 60 'in minuti
end if
rslogin.close
set rslogin=nothing
Fatto questo crei un file da includere all'inizio di ogni pagina che vuoi autenticare con dentro scritto:
codice:
<% if session("autenticato")<>true then
response.redirect "login.asp" ' che sarebbe la pagina dove c'è il form di login
end if
Puoi anche aggiungere una session con un messaggio di errore che viene mostrato se il login non è valido.
codice:
<% if session("autenticato")<>true then
session("errore")="I dati per il login sono errati o la sesione è scaduta"
response.redirect "login.asp" ' che sarebbe la pagina dove c'è il form di login
end if
ovviamente devi settare il messaggio di errore a null se il login avviene con successo
codice:
rslogin.Open sql,con,1,3
If not RSlogin.EOF Then
session("autenticato") = true
session("errore")=""
Session.Timeout = 60 'in minuti
end if
rslogin.close
set rslogin=nothing
Ti basterà inserire subito sopra il form o dove vuoi che sia mostrato il messaggio di errore
codice:
<% =session("errore") %>