Ciao a tutti,
qualcuno puoi aiutarmi a trovare un programma in ASP che autentifica vari utenti a pagine diverse ?
Cioe' utente1 accede solo alla pagina 1, utente2 accede solo alla pagina 2 e cosi' via...
In speranzosa attesa, vi saluto cordialmente.
Cainus
se il tutto funziona con una login potresti assegnare un IDUtente a login avvenuto, e creare un oggetto session:
ed nell'evento page_Load di ogni pagina scrivi:codice:Session("IDUtente") = IDUtente
Ovviamente ad ogni pagina devi assegnare un'IDPagina che deve corrispondere all'IDUtente relativocodice:If Session("IDUtente") = "" Then Response.Redirect("PaginaLogin.aspx") End If If Session("IDUtente") <> IDPagina Then Response.Redirect("Pagina.aspx?IDPagina=IDUtente") End If
Hey hey, my my Rock and roll can never die!
la pagina di connessione a database per gestire più utenti può essere una cosa di questo tipo
Sub validate(obj as object, e as eventargs)
dim dbconn as new oledbconnection _
("Provider=Microsoft.Jet.OleDb.4.0;" & _
"Data Source=C:\inetpub\wwwroot\test\pswd.mdb")
dim cmd as new oledbdataadapter _
("SELECT * FROM users WHERE username = '" & username.text &"' AND password = '"& password.text &"' ORDER BY memberid", dbconn)
dim dset as dataset
dset = New Dataset()
cmd.fill(dset,"users")
if (dset.tables("users").rows.count=1) then
dbconn.close
response.redirect("uareok.htm")
else
dbconn.close
response.redirect("wrong.htm")
end if
dbconn.close
End Sub
dopo aggiungi quello che ti ha detto zampa.
ciao
Scusa una domanda
Per poter utilizzare il
Response.redirect
devi importare una classe particolare all'inizio della pagina code-behind?
E come mai allora non mi esce l'intellisense dopo il punto?
Come se il metodo Redirect dell'oggetto Response non viene riconosciuto
Ciao a tutti,
grazie innanzitutto dell'interessamento.
Io come login uso il software di Joanna non so se lo conoscete.
Un utente si registra ed ha una username e password, ma quando si loggano vengono indirizzati tutti alla pagina nomepagina.asp.
Ecco cosa c'e' scritto nella pagina:
<% Option Explicit %>
<%
If Not Session("user") And Not Session("admin") Then
Response.Redirect("userError.htm")
Else
%>
Mentre questa pagina e' quella che serve per il controllo della login:
<% Option Explicit %>
<% Response.Buffer = True %>
<html>
<head>
<title>Controllo Dati Login</title>
<link rel="stylesheet" type="text/css" href="../stile/stile.css">
</head>
<body vlink="#0000FF">
<%
Dim strUserid, strPassword
strUserid = Request.Form("frmUserid")
strPassword = Request.Form("frmPassword")
%>
<%
Dim objRso, strSql, bolError, strSessione
Set objRso = Server.CreateObject("ADODB.Recordset")
strSql = "SELECT id, strPassword, bolAdmin, strSessione FROM tblUtenti WHERE strUserid = '" & strUserid & "' And bolConferma = True And bolAttivato = True"
objRso.Open strSql, objCon, adOpenKeyset, adLockReadOnly, adCmdText
If objRso.Recordcount = 1 Then
If objRso("strPassword") = strPassword Then
If objRso("bolAdmin") = True Then
If objRso("id") = 1 Then Session("SuperAdmin") = True
Session("admin") = True
Session("user") = False
Session("id") = objRso("strSessione")
Response.Redirect("userMenu.asp")
Else
Session("user") = True
Session("admin") = False
Session("id") = objRso("strSessione")
strSessione = Session("id")
' *********************************
' SCRITTURA DATI PER LE STATISTICHE
' *********************************
Dim idUtente, strDataOra, strIpNumber, strUserAgent, objCmd
idUtente = objRso("id")
strDataOra = Cstr(Now())
strIpNumber = Request.ServerVariables("REMOTE_ADDR")
strUserAgent = Request.ServerVariables("HTTP_USER_AGENT")
strSql = "INSERT INTO tblStats (idUtente,strDataOra,strIpNumber,strUserAgent) VALUES " & _
"(" & idUtente & ", '" & strDataOra & "', '" & strIpNumber & "', '" & strUserAgent & "')"
Set objCmd = Server.CreateObject("ADODB.Command")
objCmd.CommandType = adCmdText
objCmd.ActiveConnection = objCon
objCmd.CommandText = strSql
objCmd.Execute
Set objCmd = Nothing
' **************************************
' REINDIRIZZAMENTO ALLA PAGINA DEL MENU'
' **************************************
Response.Redirect("userMenu.asp")
End If
Else
Response.Write "<font class=""normal"">Password non valida.</font>
"
bolError = True
End If
Else
Response.Write "<font class=""normal"">User-Id non presente all'interno del database o non ancora attivata.</font>
"
bolError = True
End If
objRso.Close
Set objRso = Nothing
If bolError Then
Response.Write "Torna al Login"
End If
%>
</body>
</html>
Potreste aiutarmi ?
Grazie infinitamente, Cainus
Permessi di invio
Rispondi quotando