consiglio su script per area riservata articolata

[flasini]

salve
vorrei un consiglio per ideare un'area riservata

vorrei che i miei clienti possano avere un'area riservata.. fin qui nessun problema perchè ho degli script che ho sistemato partendo da alcuni standard

vorrei che ogni utente avesse delle informazioni personalizzate quindi mi si crea la necessità di implementare anche un db informativo oltre a quello contenente user e password

essendo per me difficile creare tutto ciò perchè non sono un programmatore, vorrei chiedere
- consiglio e idee su come organizzarlo
- dei suggerimenti su script che voi conosciate, che fanno tutto ciò, la personalizzazione me la faccio poi io ovviamente

grazie anticipate

[RobyUA]

Ciao Flasini,

In generale:
penso che più che implementare un DB per username e password
ed uno per le info personalizzate dovresti crearne uno solo con le tabelle:
'users' e 'info' anche perchè se così non facessi non so proprio come
potresti visualizzare le info in funzione dell'utante.

Nello specifico:
potresti spiegare meglio cosa intendi con informazioni personalizzate ?
Esempio: un utente si registra e può avere la propria pagina 'MyPage'
dalla quale gestire delle funzioni come 'preferiti', 'camcia password',
'aggiorna i tuoi dati' ?

RobyUA

[santino83_11_04]

Originariamente inviato da RobyUA
penso che più che implementare un DB per username e password
ed uno per le info personalizzate dovresti crearne uno solo con le tabelle:
'users' e 'info' anche perchè se così non facessi non so proprio come
potresti visualizzare le info in funzione dell'utante.

perchè non potrebbe? si connette prima ad un db, ricava il riferimento all'utente poi si connete all'alto db e ricava le info...difficolta: bassa; stupidita: molta nella maggior parte dei casi, soluzione utile in rari casi.

per il resto script già fatti non ne conosco, io ancora mi sbatto a fare tutto a mano (ma forse da questo inverno si cambia musica )

[flasini]

ciao
vorrei che nella propria sezione ci siano informazioni tipo le proprie scadenze fiscali, alcuni importi in base alla propria sitazione contabile elaborata

se queste informazioni le riporto in un campo, scrivendole, sicuramente lo trovo per me è più semplice da realizzare in termini informatici, d'altra parte è più laborioso scriverle

quindi pensavo di spezzettare i due argomenti informatici ossia script per le info e script per l'accesso riservato, per poterlo architettare meglio

lo script più articolato mi permetterebbe di intervenirci solo personalizzandolo

di script di accessi risevati ne ho ptrovati molti, solo che si tratterebbe di una pagina visibile in maniera identica con le stesseinfo per tutti coloro che hanno la password

invece dovrei diversificare

se avete altre info ed idee intertessanti, vi ringrazio ancora

[flasini]

ho creato sia la zona riservata che la zona informativa

lo script l'ho preso da http://www.aspcode.it/articoli/artic...how_art&idx=14
mi sembra fatto veramente bene

ora non riesco a collegare i due
la pagina riservato.asp non mi da il nome dell'utente che ha avuto accesso.. è come se il codice non ricordasse il nome utente inserito

questo è una parte del codice interessante

<%
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

la parte del codice nella pagina riservato.asp che dovrebbe riportare il nome dell'utente è

strsql = "select * from utenti where clienti= '"&nome_ut&" ' AND continuo_articolo ='no' order by numero"

la condizione continuo articolo è un modo per non far riportare tre volte il nome dell'utente in quanto ogniuno ha tre righe nel file db

dove sbaglio secondo voi?
perchè non mi appare nessuna riga, nessun errore?
come devo far ricordare al codice la user inserita?


grazie anticipate

[U235]

modifica lo script cosi' (solo l'ultima parte):

Dim autenticato
if rs.eof then
  autenticato = false
else
  autenticato = true
  Session("Autenticato") = rs("NOMEUTENTE")
end if
rs.Close
cn.Close
Set rs = Nothing
Set cn = Nothing

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

e in riservato.asp recuperi il nome utente con session("Autenticato")

 nome_ut = session("Autenticato")

non è il massimo ma nel tuo caso credo sia meglio non complicare troppo le cose

[flasini]

grazie del tuo contributo, non è un problema se è spartano.

nella pagina riservato ho messo così:

<%
nome_ut = session("Autenticato")
%>

ora mi da un errore nella login, mi dice così

Tipo di errore:
ADODB.Recordset (0x800A0CC1)
Impossibile trovare l'oggetto nell'insieme corrispondente al nome o al numero richiesto.

la linea contestata è :

Session("Autenticato") = rs("NOMEUTENTE")

dove pensi che ho sbagliato?

grazie ancora

[U235]

ciao,

bisognerebbe vedere il tuo db, infatti io mi sono basato sullo script del link che legge il campo nomeutente, ma se nel tuo db lo hai chiamato diversamente allora devi mettere quello.

se non riesci a limite posta il cod completo delle due pagine, cosi' ti spiego come funziona, magari poi decidi di diventare programmatore .

[flasini]

programmare è divertente specie e ci si riesce, solo che preferisco fare i 740

grazie per il tuo aiuto.. 740 gratuito

allora pagina login

<%
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("db/db.mdb")
Dim sql
sql = "SELECT id FROM utenti WHERE NOMEUTENTE='" &nome_ut&_
       "' AND PASSWORD='" &pass& "'"
'session ("nome_ut") = nome_ut
Dim rs
Set rs = cn.Execute(sql)

Dim autenticato
if rs.eof then
  autenticato = false
else
  autenticato = true
  Session("Autenticato") = rs("NOMEUTENTE")
end if
rs.Close
cn.Close
Set rs = Nothing
Set cn = Nothing

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

pagina riservato ha i due seguenti codici

<%
nome_ut = session("Autenticato")
%>

come da te suggerito

e

<%
Set Conn=Server.CreateObject("ADODB.Connection")
conn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" &server.MapPath("db/db.mdb")
set rs = server.createobject("ADODB.Recordset")
	
strsql = "select * from utenti where utenti = '" &nome_ut& "' AND continuo_articolo ='no' order by numero"
set rs = conn.execute(strsql)
				
do while not rs.eof
%>

<tr>
<td>
" class="type"><%=rs("utenti")%>
</td>							
</tr>

<%  rs.movenext
loop%>
<%
rs.close
conn.close
set conn=nothing%>

la tabella utenti del db ha i seguenti campi
id.. contatore
nomeutente
password
utenti ... che è identico a nomeutente
continuoarticolo ... serve per non duplicare la stampa del nome dell'utente
numero una numerazione d'ausilio
altri campi descrittivi


uff che macello... grazie anticipate

[U235]

<%
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("db/db.mdb")
Dim sql
sql = "SELECT id FROM utenti WHERE NOMEUTENTE='" &nome_ut&_
       "' AND PASSWORD='" &pass& "'"
session ("nome_ut") = nome_ut
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
  Response.Redirect("riservato.asp")
else
  Response.Redirect("index.asp")
end if
%>

<%
Set Conn=Server.CreateObject("ADODB.Connection")
conn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" &server.MapPath("db/db.mdb")
set rs = server.createobject("ADODB.Recordset")
nome_ut = session("nome_ut")
strsql = "select * from utenti where utenti = '" &nome_ut& "' AND continuo_articolo ='no' order by numero"
set rs = conn.execute(strsql)
				
do while not rs.eof
%>

<tr>
<td>
" class="type"><%=rs("utenti")%>
</td>							
</tr>

<%  rs.movenext
loop%>
<%
rs.close
conn.close
set conn=nothing%>

Una curiosità: lo fanno ancora il 740 ? se non sbaglio era Volvo
riguardo il tuo lavoro è sicuramente UNICO !