creare area protetta su sito

alez65

Nuovo Utente
16 Mag 2008
3
0
0
Ciao a tutti!! Allora ho alcune lacune da chiarire;
ho scaricato degli script già pronti e adattati alle mie esigenze per creare delle pag. con accesso solo agli utenti registrati, volevo sapere:
- ho creato il file admin.asp per vedere a video gli utenti registrati ma come faccio a sapere se sono autorizzati o no? sulla stampa a video c'è solo l'utente registrato e la possibilità di attivarlo o disattivarlo ma non so la condizione in cui si trova;
admin.asp:
<%
'Imposto una password per accedere al file...
'ricordatevi di cambiarla :)
Dim AdminPass
AdminPass = "123456"

'Recupero il valore della querystring pass...
Dim MyPass
MyPass = request.querystring("pass")

'Verifico che MyPass sia uguale ad AdminPass
'In caso contrario stampo un errore...
if NOT MyPass = AdminPass then
response.write "Accesso NON autorizzato"
response.end
end if

'Se l'accesso è autorizzato proseguo...
'Apro la connessione al DB
Dim Conn
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq="&_
Server.MapPath("/mdb-database/utenti_sito.mdb")

'Creo la variabile Action
Dim Action
Action = request.querystring("act")

if Action = "" then

'Imposto la query ed apro il recordset
Dim Query, Rs
Query = "select * from UTENTI order by ID desc"
Set Rs = Server.CreateObject("ADODB.Recordset")
Rs.Open Query, Conn, 3, 3

'Se il recordset NON è vuoto...
if NOT rs.EOF Then
response.write "<table border=""1"">"

'Imposto un ciclo do While per scorrere il recordset
Do While NOT Rs.EOF
response.write "<tr><td>" & Rs("user") & "</td>"
response.write "<td><a href=""admin.asp?pass=" & MyPass & "&act=attiva&id=" & Rs("id") & """>Attiva</a> - "
response.write "<a href=""admin.asp?pass=" & MyPass & "&act=disattiva&id=" & Rs("id") & """>Disattiva</a></td></tr>"
Rs.MoveNext
Loop

response.write "</table>"

'Se il recordset è vuoto stampo un mesaggio
else

response.write "Nessun utente iscritto"
response.end

end if

'chiudo il recordset
Rs.Close
set Rs = Nothing

'Se action è su attiva...
elseif Action = "attiva" then
Conn.Execute "update UTENTI set stato = True where id = " & request("id")

'Se invece è su disattiva
elseif Action = "disattiva" then
Conn.Execute "update UTENTI set stato = False where id = " & request("id")

end if

'Chiudo la connessione al DB
Conn.Close
Set Conn= Nothing
%>


- ho creato il file protect.asp ed ho incluso all'inizio di una pag. html il codice di controllo:
<!-- #Include File="protect.asp" -->ma la pag si apre senza effettuare il controllo
dove è l'errore? grazie della collaborazione
 

alez65

Nuovo Utente
16 Mag 2008
3
0
0
Scusate ma si verifica un'altro problema se clicco sul pulsante iscriviti
senza riempire i campi avviene comunque la registrazione sul db senza il nome di nessun utente:
il file registrati.asp ha il seguente script:

<%
'Creo la variabile Action
Dim Action
Action = request.form("act")

'Se Action è vuoto stampo il modulo
if Action = "" then
%>

<form method="POST">
<input type="hidden" name="act" value="salva">
<table border="0">
<tr><td>Tua Email</td><td><input type="text" name="email" size="30"></td></tr>
<tr><td>Username</td><td><input type="text" name="user" size="30"></td></tr>
<tr><td>Password</td><td><input type="password" name="pass" size="30"></td></tr>
<tr><td colspan="2"><input type="submit" value="ISCRIVITI"></td></tr>
</table>
</form>

<%
'Se Action ha come valore "salva"...
'Inserisco i valori del modulo nel DB
elseif Action = "salva" then

'Apro la connessione al DB
Dim Conn
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq="&_
Server.MapPath("/mdb-database/utenti_sito.mdb")

'Aggiungo un nuovo record al DB
Dim Rs
Set Rs = Server.CreateObject("ADODB.Recordset")
Rs.Open "UTENTI", conn, 1, 3
Rs.AddNew()
Rs("email") = request.form("email")
Rs("user") = request.form("user")
Rs("pass") = request.form("pass")
Rs("stato") = False
Rs.Update

'chiudo recordset e connessione
Rs.Close
set Rs = Nothing
Conn.Close
set Conn = Nothing

'Messaggio a video di conferma
response.write "Registrazione avvenuta con successo"
response.end

end if
%>
 

velKoz

Nuovo Utente
10 Giu 2008
3
0
0
Il ciclo potresti impostarlo in questo modo:

Do While NOT Rs.EOF
response.write "<tr><td>" & Rs("user") & " " & Rs("stato") & "</td>"
response.write "<td><a href=""admin.asp?pass=" & MyPass & "&act=attiva&id=" & Rs("id") & """>Attiva</a> - "
response.write "<a href=""admin.asp?pass=" & MyPass & "&act=disattiva&id=" & Rs("id") & """>Disattiva</a></td></tr>"
Rs.MoveNext
Loop

In maniera che ti visualizzi anche lo stato dell'utente.
 
Discussioni simili
Autore Titolo Forum Risposte Data
P Creare area protetta PHP 6
C CREARE UN AREA PROTETTA CON ASP SU WINDOWS SERVER 2003 (con database MySQL) Classic ASP 19
F [PHP] Creare un'area web riservata PHP 13
Giuliana Signorello WP: Creare un booking multi-struttura con area agenzie annessa WordPress 0
J Creare file html da un form in area riservata PHP 9
M Come creare un area riservata PHP 4
R Area di testo: creare un collegamento esterno selezionando un parola. HTML e CSS 2
D Creare Area RiservaTA PHP 8
R Creare un'area di testo scorrevole HTML e CSS 3
B creare un'area riservata PHP 1
A Creare area accesso/registrazione utenti Classic ASP 0
G [PHP] Creare script di prenotazione con controllo disponibilità. PHP 7
F Creare elementi html con javascript Javascript 4
Shyson Modificare codice e creare link PHP 0
Cosina Creare bottone delete in form upload PHP 5
Cosina Creare bottone delete in form upload PHP 1
M Creare un campo input select quantità di un numero intero prelevato dal db PHP 3
L Creare una forma geometrica Photoshop 1
M [Cerco] aiutanti per creare sito Offerte e Richieste di Lavoro e/o Collaborazione 8
S Libreria PHP per creare file dwg o dxf PHP 0
R Come creare sistema Add to homescreen PHP 3
L Creare un countdown con giorno specifico della settimana PHP 3
W Creare link di una dato Classic ASP 0
W creare file .jar Java 2
M Creare con il Vb 2010 Il Classico Notes di Windows Vista Visual Basic 1
MarcoGrazia Creare una password Snippet Javascript 0
J creare pagina php di prenotazione PHP 5
A Creare un modulo di ricerca avanzata con dreamweaver HTML e CSS 0
INTEROPERABILITY Sviluppatrice/formatrice creare APP Offerte e Richieste di Lavoro e/o Collaborazione 0
L Creare una pagina pre-home WordPress 1
G Creare side-bar non visibile da dispositivi mobile HTML e CSS 0
L creare oggetti da una classe tramite un form Javascript 0
Web93 CREARE SITO WEB COMICS CON WORDPRESS WordPress 0
maxnegri Contare sessioni aperte e creare condizione PHP 1
A Come creare pulsante donazione PayPal HTML e CSS 5
L [CERCO] Creare blog su WordPress con tema Divi Offerte e Richieste di Lavoro e/o Collaborazione 3
F Creare un set di date a seconda del frazionamento scelto da inserire in MySQL PHP 6
R [Photoshop] Creare Azione Photoshop 1
F [PHP] creare tabella e tasto cerca PHP 3
A Creare con Javascript un percorso all'interno di uno spazio Javascript 0
B [PHP] Creare PDF dopo inserimento dati form PHP 4
A [HTML] Creare sito web per eLearnig HTML e CSS 2
R Bootstrap 4 - creare una finestra di testo responsive sopra un Carousel jQuery 1
Spenalzo Creare tabelle multiple con Access via VBA MS Access 2
R [PHP] Creare sistema random PHP 3
D [PHP] Consigli su come creare form PHP 1
I Creare Qsl radioamatore con testo editabile Presentati al Forum 1
T [PHP] Creare Honeypot per form contatti PHP 10
S [PHP] Creare collegamento filtri di ricerca al database PHP 6
Z Creare VirtualHost Apache2 con PHP? Programmazione 0

Discussioni simili