I forum Ricerca FAQ
Fai una domanda
Ultimo messaggio
Libanese
Libanese
il 27 ottobre 2009 alle 14:40
4 messaggi dal 27 ottobre 2009
Salve

Dovrei creare all'interno di un sito, un'area riservata multiutente, nel senso che ciascun utente, dopo essersi autenticato con user id e password, dovrebbe poter visualizzare la sua propria pagina riservata, quindi non una pagina condivisa da tutti gli utenti registrati, ma una diversa per ogni utente.

L'hosting è Windows, e vorrei realizzarlo in maniera semplice, con asp e access (possibilmente senza Mysql)... è fattibile?

Grazie

Ps. Vi prego aiutatemi!
Libanese
RispondiQuoting
novecento
novecento
il 27 ottobre 2009 alle 16:59
2.190 messaggi dal 04 marzo 2004
Contributi | Blog
Ciao,
sì è fattibile, prova a partire da qua: http://www.aspitalia.com/articoli/autenticazione.aspx e se hai bisogno, chiedi
Alessio Leoncini (WinRTItalia.com)
.NET Developer, Interactive Designer, UX Specialist, Trainer
RispondiQuoting
Libanese
Libanese
il 27 ottobre 2009 alle 17:53
4 messaggi dal 27 ottobre 2009
...ora ci provo e grazie davvero!
Libanese
RispondiQuoting
Libanese
Libanese
il 29 ottobre 2009 alle 14:29
4 messaggi dal 27 ottobre 2009
Ciao

Ho letto l'articolo sull'area riservata multi utente, ora quello serve a me, è l'autenticazione da db, ho seguito alla lettera quello che c'è scritto... ma niente... non funziona! (sto utilizzando dreamweaver mx come editor) ogni volta che inserisco nome utente e password mi da questo errore:

Tipo di errore:
Errore di compilazione di Microsoft VBScript (0x800A03F6)
Previsto 'End'
/autenticazione/amministra.asp, line 37


Forse ho sbagliato qualconsa nel codice? ti mando il listato:


<%@LANGUAGE="VBSCRIPT"%>
<HTML>
<HEAD>
<TITLE>Pagina del risultato</TITLE>
</HEAD>
<%
user_form = request.form("user")
password_form = request.form("password")

response.buffer=true
dim conn
dim rs
set conn = Server.CreateObject("ADODB.Connection")
set rs = Server.CreateObject("ADODB.Recordset")

conn.Open "DSN=database;uid=user;pwd=password"
SQL ="select * from user where utente like '"&user&"'"
Set Rs=conn.execute(SQL)

if Rs.Eof then
%>Dati errati<%
else
user_DB=rs("utente")
Password_DB=rs("password")

if user_form=user_DB and password_form=password_DB then
SQLDATI ="select * from dati"
Set Rs=conn.execute(SQLDATI)
%>

Dati prelevati dalla tabella "dati" oppure scritti direttante in quest'area per chi è in possesso di un nome utente e password validi

<% else

response.redirect ("errore.asp")

end if
%>
</BODY>
</HTML>


Spero che tu mi possa aiutare....

Grazie
Libanese
RispondiQuoting
novecento
novecento
il 29 ottobre 2009 alle 15:40
2.190 messaggi dal 04 marzo 2004
Contributi | Blog
"Libanese" <Libanese> wrote in message
news:353867@...
Ciao

Ho letto l'articolo sull'area riservata multi utente, ora quello serve a me, è l'autenticazione da db, ho seguito alla lettera quello che c'è scritto... ma niente... non funziona! (sto utilizzando dreamweaver mx come editor) ogni volta che inserisco nome utente e password mi da questo errore:
*
Tipo di errore:
Errore di compilazione di Microsoft VBScript (0x800A03F6)
Previsto 'End'
/autenticazione/amministra.asp, line 37
*

Forse ho sbagliato qualconsa nel codice? ti mando il listato:
*
<%@LANGUAGE="VBSCRIPT"%>
<HTML>
<HEAD>
<TITLE>Pagina del risultato</TITLE>
</HEAD>
<%
user_form = request.form("user")
password_form = request.form("password")

response.buffer=true
dim conn
dim rs
set conn = Server.CreateObject("ADODB.Connection")
set rs = Server.CreateObject("ADODB.Recordset")

conn.Open "DSN=database;uid=user;pwd=password"
SQL ="select * from user where utente like '"&user&"'"
Set Rs=conn.execute(SQL)

if Rs.Eof then
%>Dati errati<%
else
user_DB=rs("utente")
Password_DB=rs("password")

if user_form=user_DB and password_form=password_DB then
SQLDATI ="select * from dati"
Set Rs=conn.execute(SQLDATI)
%>

Dati prelevati dalla tabella "dati" oppure scritti direttante in quest'area
per chi è in possesso di un nome utente e password validi

<% else

response.redirect ("errore.asp")

end if
%>
</BODY>
</HTML>
*

Spero che tu mi possa aiutare....
Eh sì, l'errore è esplicativo, anche se non so quale sia la riga 37, manca un End if per if Rs.Eof then.
Alessio Leoncini (WinRTItalia.com)
.NET Developer, Interactive Designer, UX Specialist, Trainer
RispondiQuoting

Torna al forum | Feed RSS

ASPItalia.com non è responsabile per il contenuto dei messaggi presenti su questo servizio, non avendo nessun controllo sui messaggi postati nei propri forum, che rappresentano l'espressione del pensiero degli autori.