E
enonva
Ospite
Usare un Db per archiviare gli account direi che è un passo obbligatorio e in se non è na robba complicata anzi... ma bisogna avere un minimo background di programmazione e db... partire da zero è un po arduo ci sono molti argomenti ecco i passi:
ipotizziamo l'uso di access come db, ecco un esempio (molto semplificato)
- creazione del db MioDb
- creazione della tabella Utenti
- creazione dei campi della tabella:
IdUtenti contatore
Uname alfanumerico 50 caratteri
Pwd alfanumerico 50 caratteri
Il db deve risiedere in una cartella del server IIS con accesso in lettura/scrittura
ora serve il codice ASP per connettersi al Dd, ti suggerisco di fare un file asp da includere in tutte le pagine dove hai necessità di connetterti al db questo ti semplificherà la manutenzione del sw in futuro:
chiamiamo questa pagina DataSource.asp
<%
''''apertura connessione db
if session("DataConn")="" then attacca_db
If Not IsObject(Session("Database_Connection")) Then
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open Session("DataConn")
Session("Database_Connection") = conn
Else
Conn = Session("Database_Connection")
End If
'''fine apertura
sub attacca_db()
mio_percorso=Server.MapPath("/cartella del server/MioDb.mdb")
Set conn = Server.CreateObject("ADODB.Connection")
Session("DataConn") = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="& mio_percorso
end sub
%>
ora la pagina di accesso:
nome accedi.asp
<!-- #include file="./datasource.asp" -->
<%
Set rs = Server.CreateObject("ADODB.Recordset")
userid=replace(Request.Form("Uname"),"'","''")
userpw=replace(Request.Form("Pwd"),"'","''")
sqlcomm="select * from utenti where Uname='"&userid & "' AND Pwd='" & userpw & "'"
rs.Open sqlcomm,Conn , 1, 3
if not rs.eof then
' utente validato
rs.Close
Response.Redirect "Pagina_seguente.asp"
else
' utente non validato ripeti la richiesta di log
rs.Close
Response.Redirect "PaginaDiLogin.asp"
end if
set rs=nothing
%>
di + nin sò ;)
ipotizziamo l'uso di access come db, ecco un esempio (molto semplificato)
- creazione del db MioDb
- creazione della tabella Utenti
- creazione dei campi della tabella:
IdUtenti contatore
Uname alfanumerico 50 caratteri
Pwd alfanumerico 50 caratteri
Il db deve risiedere in una cartella del server IIS con accesso in lettura/scrittura
ora serve il codice ASP per connettersi al Dd, ti suggerisco di fare un file asp da includere in tutte le pagine dove hai necessità di connetterti al db questo ti semplificherà la manutenzione del sw in futuro:
chiamiamo questa pagina DataSource.asp
<%
''''apertura connessione db
if session("DataConn")="" then attacca_db
If Not IsObject(Session("Database_Connection")) Then
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open Session("DataConn")
Session("Database_Connection") = conn
Else
Conn = Session("Database_Connection")
End If
'''fine apertura
sub attacca_db()
mio_percorso=Server.MapPath("/cartella del server/MioDb.mdb")
Set conn = Server.CreateObject("ADODB.Connection")
Session("DataConn") = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="& mio_percorso
end sub
%>
ora la pagina di accesso:
nome accedi.asp
<!-- #include file="./datasource.asp" -->
<%
Set rs = Server.CreateObject("ADODB.Recordset")
userid=replace(Request.Form("Uname"),"'","''")
userpw=replace(Request.Form("Pwd"),"'","''")
sqlcomm="select * from utenti where Uname='"&userid & "' AND Pwd='" & userpw & "'"
rs.Open sqlcomm,Conn , 1, 3
if not rs.eof then
' utente validato
rs.Close
Response.Redirect "Pagina_seguente.asp"
else
' utente non validato ripeti la richiesta di log
rs.Close
Response.Redirect "PaginaDiLogin.asp"
end if
set rs=nothing
%>
di + nin sò ;)