Salve sono nuovo di questo forum, sono un autodidatta e cerco di programmare al meglio il mio sito.
Ho già creato un login sul mio sito, tutti gli utenti si registrano in un file db e entrano in una pagina di default.
La cosa che mi serve e che l'utente registrato accede ad una pagina dove vengono riportati i dati che sono contenuti in un'altro db (in questo db ci sono dati dei vari clienti), quindi ogni cliente che entra vede un report dei suoi dati.
Come posso fare
Grazie
Ciao e benvenuto, a fare cosa? Una query in base al cliente se questo quello che vuoi fai una ricerca qui sul forum trovi diversi esempi.
Cavicchi Andrea
Problemi con javascript, jquery, ajax clicca qui
Forse non sono stato chiaro.
Vorrei impostare nel mio file asp di login una riga di comando dove il cliente che entra nel mio sito apre una pagina dove li trova un report di tutti i suoi dati archiviati in un db:
il file login.asp è così configurato:
<%
'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
%>
Grazie
Nella pagina login esegui una verifica degli utenti iscritti al tuo sito, una volta ultima con successo rimandi a pagina "default.asp" e qui che devi eseguire una query per estrapolare i report del singolo "user"
Cavicchi Andrea
Problemi con javascript, jquery, ajax clicca qui
Si ho capito, ma non so come fare a inserire questa query per estrapolare i report del singolo "user",
mi puoi dare un esempio
L'esempio e la query l'hai già quella del login essendo il principio identico le differenze saranno la tabella e controllerai solo il parametro user
P.S. Queste sono tutte nozione basilari, se non l'hai già fatto studiati le guide asp che trovi qui dove ci sono anche esempi
Cavicchi Andrea
Problemi con javascript, jquery, ajax clicca qui
Ripeto non sono un programmatore, so che facendo così con il login entro in una pagina default.
In questa pagina che comando devo mettre per far si che l'utente che si è logato vede i suoi dati.
Ho cercato e non vedo un esempio similare.
questa e la pagina default.asp
<%@ Language = VBScript %>
<% Option Explicit %>
<html>
<head>
<meta http-equiv="Content-Language" content="it">
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<title><%= Request.ServerVariables("HTTP_HOST") %></title>
</head>
<body>
<p align="center"><font face="Verdana" size="6" color="#003399"><%= Request.ServerVariables("HTTP_HOST") %></font>
<font face="Verdana" size="6" color="#003399">Under Construction</font></p>
<p align="center">
[img]../images/paginaInCostruzione.gif[/img]</p>
</body>
</html>
ciao, ricorda di usare SEMPRE il tag CODE per postare codice. grazie
prendi ispirazione da qui
http://asp.html.it/guide/lezione/197...e-il-recorset/
Questo è per darti un idea, ma dovrai metterci mano per poter completare il tutto e visto che non hai dimestichezza leggi le guide non puoi sperare che ti si faccia tuttocodice:<%@ Language = VBScript %> <% Option Explicit %> <html> <head> <meta http-equiv="Content-Language" content="it"> <meta http-equiv="Content-Type" content="text/html; charset=windows-1252"> <title><%= Request.ServerVariables("HTTP_HOST") %></title> </head> <body> <p align="center"><font face="Verdana" size="6" color="#003399"><%= Request.ServerVariables("HTTP_HOST") %></font> <font face="Verdana" size="6" color="#003399">Under Construction</font></p> <% 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 'attenzione al posto di UTENTI ci metti la tabella dei REPORT la quale dovrà contenere il campo (colonna) user Query = "select * from UTENTI where user = '" & Session("User") & "'" 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 "Nessun report presente per questo utente" response.end else Response.Write "qui ci andranno i dati che vorrai visualizzare" end if 'chiudo Rcordset e connessione Rs.Close set Rs = Nothing Conn.Close Set Conn= Nothing end if %> </p> </body> </html>
Cavicchi Andrea
Problemi con javascript, jquery, ajax clicca qui
Lo so che sto rompendo, ho creato la query ho modificato il campo che mi ai detto, ma mi da questo errore:
Microsoft VBScript compilation error '800a0411'
Name redefined
/default.asp, line 21
Dim Conn
----^
Sbaglio io a trascrivere il comando o ci sono altri problemi che non capisco !!!!!
Permessi di invio
Rispondi quotando