Filoweb.it

PAGINA PROTETTA DA PASSWORD


FB TW G+ whatsapp RSS FEED
ASP
PAGINA PROTETTA DA PASSWORD


  <%
Dim nome_ut
Dim pass
nome_ut = Replace(Request.Form(" nome_utente" ), " ' " , " ' ' " )
pass = Replace(Request.Form(" password" ), " ' " , " ' ' " )

Dim cn
Set cn = Server.CreateObject(" ADODB.Connection" )
cn.Open " driver={Microsoft Access Driver (*.mdb)};dbq=" &Server.MapPath(" utenti.mdb" )
Dim sql
sql = " SELECT ID FROM Utenti WHERE NOMEUTENTE=' "  &nome_ut&_
       " '  AND PASSWORD=' "  &pass& " ' " 
Dim rs
Set rs = cn.Execute(sql)

Dim autenticato
if rs.eof then
  autenticato = false
else
  autenticato = true
end if
rs.Close
cn.Close
Set rs = Nothing
Set cn = Nothing

if autenticato = true then
  Session(" Autenticato" ) = " OK" 
  Response.Redirect(" riservato.asp" )
else
  Response.Redirect(" index.asp" )
end if
%>

----
da aggiungere alle pagine
<%
if Session(" Autenticato" )<>" OK"  then
  Response.Redirect(" index.asp" )
end if
%>
<HTML>
<HEAD>
  <TITLE>Area riservata</TITLE>
</HEAD>
<BODY BGCOLOR=#BBBBFF>
<BR><BR><BR><BR><BR>
<DIV ALIGN=CENTER><H1>PAGINA RISERVATA</H1><BR>
<H2>UTENTE AUTENTICATO</H2><BR></DIV>
</BODY>
</HTML> 
FB TW G+ whatsapp RSS FEED

filoweb.it è il sito personale di Filippo Brunelli
(c) 2017 Filippo Brunelli
Le immagini ed i testi contenuti nel sito sono di proprietà di Filippo Brunelli salvo diversamente indicato.
L'uso delle immagini e del testo è gratuito per uso personale ed è subbordinato alla citazione della fonte.
Brunelli Filippo declina ogni responsabilità per l'uso che viene fatto delle informazioni presenti nel sito.
FILOWEB.it Piccolo quaderno degli appunti. Argomento: ASP, Titolo:PAGINA PROTETTA DA PASSWORD. Altri script riguardano: CSS, Jscript, .net, Classic Asp, HTML, Jquery, varie, url rewrite, pagina protetta da password, ecc. Altro su https://www.filoweb.it