Salve a tutti!è da un pò che sto lavorando alla pagina di login di un sito ed ho problemi con la parte asp x il collegamento al database.il codice purtroppo nn l'ho scritto io in quanto mi è stato dato in consegna così il che mi rende molto difficile comprenderlo x me che sono nuovo di asp...mi servirebbe anche più di una mano...grazie dell'attenzione.
Problema con login pagina web-collegamento al db
- Creatore Discussione boss
- Data di inizio
il problema è che ho questa pagina. Me la apre il web browser ma quando vado ad effettuare il login nn cambia nulla cioè rimane la stessa pagina pronta di nuovo x il login quando invece dovrebbe comparire o la pagina di accessonegato o la pagina nel caso di accesso corretto..nn so se mi sono spiegato bene...
Ciao 
Beh, direi che se vuoi che i nostri amici ti aiutino devi postare il codice della ASP, altrimenti è dura aiutarti
Beh, direi che se vuoi che i nostri amici ti aiutino devi postare il codice della ASP, altrimenti è dura aiutarti
hai ragione...eccolo qui...
<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<%
' FileName="Connection_odbc_conn_dsn.htm"
' Type="ADO"
' DesigntimeType="ADO"
' HTTP="true"
' Catalog=""
' Schema=""
Dim MM_conn_utenti_STRING
'Definisce la stringa di connessione al database
MM_conn_utenti_STRING = "Driver={Microsoft Access Driver (*.mdb)};Dbq=" & Server.Mappath("/mdb-database/DBUtenti.mdb")
%>
<%
'Dichiarazione di recordset utenti
Dim rs_utenti
'Dichiarazione di rs_utenti_numRows
Dim rs_utenti_numRows
'Definisce la connessione al database
Set rs_utenti = Server.CreateObject("ADODB.Recordset")
rs_utenti.ActiveConnection = MM_conn_utenti_STRING
rs_utenti.Source = "SELECT * FROM Utenti"
rs_utenti.CursorType = 0
rs_utenti.CursorLocation = 2
rs_utenti.LockType = 1
'Apre la connessione
rs_utenti.Open()
rs_utenti_numRows = 0
%>
<%
' *** Validate request to log in to this site.
MM_LoginAction = Request.ServerVariables("URL")
If Request.QueryString<>"" Then MM_LoginAction = MM_LoginAction + "?" + Server.HTMLEncode(Request.QueryString)
'Richiesta con conversione in string della "username"
MM_valUsername=CStr(Request.Form("username"))
'Se lo username esiste
If MM_valUsername <> "" Then
MM_fldUserAuthorization=""
'cosa richiama in caso di accesso corretto
MM_redirectLoginSuccess="Supporto.asp"
'cosa richiama in caso di accesso negato
MM_redirectLoginFailed="AccessoNegato.asp"
'assegnazione del tipo di dato
MM_flag="ADODB.Recordset"
'definisce la connessione al database
set MM_rsUser = Server.CreateObject(MM_flag)
MM_rsUser.ActiveConnection = MM_conn_utenti_STRING
'seleziona utente e password dal db
MM_rsUser.Source = "SELECT Utente, Password"
If MM_fldUserAuthorization <> "" Then MM_rsUser.Source = MM_rsUser.Source & "," & MM_fldUserAuthorization
MM_rsUser.Source = MM_rsUser.Source & " FROM Utenti WHERE Utente='" & Replace(MM_valUsername,"'","''") &"' AND Password='" & Replace(Request.Form("password"),"'","''") & "'"
MM_rsUser.CursorType = 0
MM_rsUser.CursorLocation = 2
MM_rsUser.LockType = 3
MM_rsUser.Open
'se il recordset nn è vuoto
If Not MM_rsUser.EOF Or Not MM_rsUser.BOF Then
' username and password match - this is a valid user
Session("MM_Username") = MM_valUsername
If (MM_fldUserAuthorization <> "") Then
Session("MM_UserAuthorization") = CStr(MM_rsUser.Fields.Item(MM_fldUserAuthorization).Value)
Else
Session("MM_UserAuthorization") = ""
End If
if CStr(Request.QueryString("accessdenied")) <> "" And false Then
MM_redirectLoginSuccess = Request.QueryString("accessdenied")
End If
'Chiude la connessione
MM_rsUser.Close
'Se login corretto si connette alla pagina Supporto.asp
Response.Redirect(MM_redirectLoginSuccess)
End If
'Chiude la connessione
MM_rsUser.Close
'Se login errato si connette alla pagina AccessoNegato.asp
Response.Redirect(MM_redirectLoginFailed)
End If
%>
<html><head><meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" />
<title>EGM Login</title>
<style type="text/css">.style1 {text-align: center;}</style>
</head>
<body>
<div align="center">
<form action="<%=MM_LoginAction%>"method="post"name="login form" id="login form">
<p><strong>LOGIN ZONA SUPPORTO</strong></p>
<table width="317" border="0">
<tr>
<th width="311" scope="col"><div align="justify">
<p>Per accedere in questa zona, avete bisogno di un nome utente ed una password che possono essere fornite dall'amministratore del sistema:</p>
<p class="style1"> Roberto Lulli </p>
</div></th>
</tr>
</table>
<table width="221" border="0">
<tr>
<th width="67" scope="col"><label></label></th>
<th width="144" scope="col"> </th>
</tr>
<tr>
<th scope="col">Utente</th>
<th width="144" scope="col"><input name="Utente" type="text" id="Utente" /></th>
</tr>
<tr>
<th><div align="center">
<p>
<label>Password</label>
</p>
</div></th>
<th><input name="Password" type="password" id="Password" /></th>
</tr>
</table>
<p>
<label>
<input name="Login" type="submit" id="Login" value="Login" />
</label>
</p>
</form>
</div>
</body>
</html>
<%
'Chiude la connessione
rs_utenti.Close()
'Distrugge l'oggetto
Set rs_utenti = Nothing
%>
<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<%
' FileName="Connection_odbc_conn_dsn.htm"
' Type="ADO"
' DesigntimeType="ADO"
' HTTP="true"
' Catalog=""
' Schema=""
Dim MM_conn_utenti_STRING
'Definisce la stringa di connessione al database
MM_conn_utenti_STRING = "Driver={Microsoft Access Driver (*.mdb)};Dbq=" & Server.Mappath("/mdb-database/DBUtenti.mdb")
%>
<%
'Dichiarazione di recordset utenti
Dim rs_utenti
'Dichiarazione di rs_utenti_numRows
Dim rs_utenti_numRows
'Definisce la connessione al database
Set rs_utenti = Server.CreateObject("ADODB.Recordset")
rs_utenti.ActiveConnection = MM_conn_utenti_STRING
rs_utenti.Source = "SELECT * FROM Utenti"
rs_utenti.CursorType = 0
rs_utenti.CursorLocation = 2
rs_utenti.LockType = 1
'Apre la connessione
rs_utenti.Open()
rs_utenti_numRows = 0
%>
<%
' *** Validate request to log in to this site.
MM_LoginAction = Request.ServerVariables("URL")
If Request.QueryString<>"" Then MM_LoginAction = MM_LoginAction + "?" + Server.HTMLEncode(Request.QueryString)
'Richiesta con conversione in string della "username"
MM_valUsername=CStr(Request.Form("username"))
'Se lo username esiste
If MM_valUsername <> "" Then
MM_fldUserAuthorization=""
'cosa richiama in caso di accesso corretto
MM_redirectLoginSuccess="Supporto.asp"
'cosa richiama in caso di accesso negato
MM_redirectLoginFailed="AccessoNegato.asp"
'assegnazione del tipo di dato
MM_flag="ADODB.Recordset"
'definisce la connessione al database
set MM_rsUser = Server.CreateObject(MM_flag)
MM_rsUser.ActiveConnection = MM_conn_utenti_STRING
'seleziona utente e password dal db
MM_rsUser.Source = "SELECT Utente, Password"
If MM_fldUserAuthorization <> "" Then MM_rsUser.Source = MM_rsUser.Source & "," & MM_fldUserAuthorization
MM_rsUser.Source = MM_rsUser.Source & " FROM Utenti WHERE Utente='" & Replace(MM_valUsername,"'","''") &"' AND Password='" & Replace(Request.Form("password"),"'","''") & "'"
MM_rsUser.CursorType = 0
MM_rsUser.CursorLocation = 2
MM_rsUser.LockType = 3
MM_rsUser.Open
'se il recordset nn è vuoto
If Not MM_rsUser.EOF Or Not MM_rsUser.BOF Then
' username and password match - this is a valid user
Session("MM_Username") = MM_valUsername
If (MM_fldUserAuthorization <> "") Then
Session("MM_UserAuthorization") = CStr(MM_rsUser.Fields.Item(MM_fldUserAuthorization).Value)
Else
Session("MM_UserAuthorization") = ""
End If
if CStr(Request.QueryString("accessdenied")) <> "" And false Then
MM_redirectLoginSuccess = Request.QueryString("accessdenied")
End If
'Chiude la connessione
MM_rsUser.Close
'Se login corretto si connette alla pagina Supporto.asp
Response.Redirect(MM_redirectLoginSuccess)
End If
'Chiude la connessione
MM_rsUser.Close
'Se login errato si connette alla pagina AccessoNegato.asp
Response.Redirect(MM_redirectLoginFailed)
End If
%>
<html><head><meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" />
<title>EGM Login</title>
<style type="text/css">.style1 {text-align: center;}</style>
</head>
<body>
<div align="center">
<form action="<%=MM_LoginAction%>"method="post"name="login form" id="login form">
<p><strong>LOGIN ZONA SUPPORTO</strong></p>
<table width="317" border="0">
<tr>
<th width="311" scope="col"><div align="justify">
<p>Per accedere in questa zona, avete bisogno di un nome utente ed una password che possono essere fornite dall'amministratore del sistema:</p>
<p class="style1"> Roberto Lulli </p>
</div></th>
</tr>
</table>
<table width="221" border="0">
<tr>
<th width="67" scope="col"><label></label></th>
<th width="144" scope="col"> </th>
</tr>
<tr>
<th scope="col">Utente</th>
<th width="144" scope="col"><input name="Utente" type="text" id="Utente" /></th>
</tr>
<tr>
<th><div align="center">
<p>
<label>Password</label>
</p>
</div></th>
<th><input name="Password" type="password" id="Password" /></th>
</tr>
</table>
<p>
<label>
<input name="Login" type="submit" id="Login" value="Login" />
</label>
</p>
</form>
</div>
</body>
</html>
<%
'Chiude la connessione
rs_utenti.Close()
'Distrugge l'oggetto
Set rs_utenti = Nothing
%>
oppure qualcuno sa dirmi cortesemente cosa fa queste righe di codice...?
If MM_fldUserAuthorization <> "" Then MM_rsUser.Source = MM_rsUser.Source & "," & MM_fldUserAuthorization
MM_rsUser.Source = MM_rsUser.Source & " FROM Utenti WHERE Utente='" & Replace(MM_valUsername,"'","''") &"' AND Password='" & Replace(Request.Form("password"),"'","''") & "'"
If MM_fldUserAuthorization <> "" Then MM_rsUser.Source = MM_rsUser.Source & "," & MM_fldUserAuthorization
MM_rsUser.Source = MM_rsUser.Source & " FROM Utenti WHERE Utente='" & Replace(MM_valUsername,"'","''") &"' AND Password='" & Replace(Request.Form("password"),"'","''") & "'"
su un altra pagina mi da questo errore...
Active Server Pages error 'ASP 0245'
Mixed usage of Code Page values
/IT/Supporto/LoginX1.asp, line 1
The @CODEPAGE value specified differs from that of the including file's CODEPAGE or the file's saved format.
da cosa può dipendere?
Active Server Pages error 'ASP 0245'
Mixed usage of Code Page values
/IT/Supporto/LoginX1.asp, line 1
The @CODEPAGE value specified differs from that of the including file's CODEPAGE or the file's saved format.
da cosa può dipendere?
