Ho creato insieme ai vs. suggerimenti un accesso ad una pagina tramite un login , in questa pagina si trovano una query per far vedere ad ogni cliente i suoi dati.
Adesso mi occore che un solo utente entra in una pagina diversa da quella di default.
Vi allego il codice del login:
mentre questo e' la pagina default:codice:<% 'Creo la variabile Action 'ha come valore il campo act del form Dim Action Action = request.form("act") 'Creo la variabile PrimaPagina 'e la setto sulla mia prima pagina asp protetta Dim PrimaPagina PrimaPagina = "default.asp" 'se Action è vuota stampo il form if Action = "" then %> <form method="POST" action="login.asp"> <input type="hidden" name="act" value="enter"> <table border="0"> <tr><td>User</td><td><input type="text" name="u" size="20"></td></tr> <tr><td>Pass</td><td><input type="password" name="p" size="20"></td></tr> <tr><td colspan="2"><input type="submit" value="Login"></td></tr> </table> </form> <% 'se Action ha come valore "enter"... elseif Action = "enter" then 'creo la variabile User 'con il valore del campo u del form Dim User User = request.form("u") 'creo la variabile Pass 'con il valore del campo p del form Dim Pass Pass = request.form("p") 'Se User e/o Pass è vuota stampo un errore if (User = "" or Pass = "") then response.write "Campo incompleto!" response.end 'in caso contrario procedo alla verifica else '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") 'Imposto la query ed apro il recordset Dim Query, Rs Query = "select * from UTENTI where user = '" & User & "' "&_ "and pass = '" & Pass & "'" Set Rs = Server.CreateObject("ADODB.Recordset") Rs.Open Query, Conn, 3, 3 'se nessun utente corrisponde stampo un errore if Rs.EOF then response.write "Spiacente! Login non corretto" response.end 'in caso contrario imposto la mia session 'ed effettuo il redirect sulla prima pagina else Session("User") = User Session("Pass") = Pass Response.Redirect PrimaPagina end if 'chiudo Rcordset e connessione Rs.Close set Rs = Nothing Conn.Close Set Conn= Nothing end if end if %>
Mi date un consiglio come fare?codice:<%@ Language = VBScript %> <% Option Explicit %> <html> <% Dim Query1, Rs 'attenzione al posto di UTENTI ci metti la tabella dei REPORT la quale dovr� contenere il campo (colonna) user Query1 = "select * from Report where user = '" & Session("User") & "'" Set Rs = Server.CreateObject("ADODB.Recordset") Rs.Open Query1, Conn, 3, 3 'se nessun utente corrisponde stampo un errore if Rs.EOF or Rs.BOF then response.write "Nessun report presente per questo utente" response.end else Response.Write "Benvenuto "& Rs("User") &" qui trovi tutti gli interventi fatti per tuo conto " Response.Write " " Response.Write "<Table border=3 >" Response.Write "<tr bgcolor=FF6600><td>Data Rich.</td ><td>Modello</td><td>Matricola</td><td>Difetto Lam.</td><td>Data Int.</td><td>Cartella Lav.</td></tr>" Do While NOT Rs.EOF Response.Write "<tr>" Response.Write "<td bgcolor=FFCC66>" & Rs("DataCh") &"</td><td bgcolor=FFCC66> " & Rs("Modello") &" </td><td bgcolor=FFCC66>"& Rs("Matr") &"</td><td bgcolor=FFCC66>"& Rs("DifLamentato") &"</td><td bgcolor=FFCC66>" & Rs("DataFi") &"</td><td bgcolor=FFCC66> PDF" Response.Write "</tr>" Rs.Movenext Loop 'chiudo Rcordset e connessione Rs.Close set Rs = Nothing Conn.Close Set Conn= Nothing end if %> </body> </html>
Rispondi quotando
