ciao a tutti sono due giorni che sto diventando matta per cercare di creare una semplice pagina riservata collegata ad una password.
ho trovato un codice per creare due pagine asp collegate ad un data base molto semlice ( infatti mi basta una sola password) ma non funziona . vi inserisco i codici qualcuno forse puo aiutarmi?
grazie mille daniela
pagina index
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"
"http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<title>Documento senza titolo</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>
<body>
<form name="frmLogin" method="post" action="Login.asp">
<table width="300" border="1">
<tr>
<td>UserID:</td>
<td><input type="text" name="txtUserID"></td>
</tr>
<tr>
<td>Password:</td>
<td><input type="password" name="txtPassword"></td>
</tr>
<tr>
<td></td>
<td><input type="submit" name="Submit" value="Invia"></td>
</tr>
</table>
</form>
</body>
</html>
pagina login
<%@LANGUAGE="VBSCRIPT"%>
<%
Dim UserID
Dim Password
Dim conn
Dim rst
Dim strSQL
'Leggiamo i dati immessi nel form di login
UserID = Replace(Request.Form("txtUserID"),"Pafc")
Password = Replace(Request.Form("txtPassword"),"Love")
'Apriamo la connessione col database
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & _
Server.MapPath("Login.mdb")
'Impostiamo la query
strSQL = "SELECT * FROM Utenti " & _
"WHERE (((Utenti.UserID)='" & UserID & _
"') AND ((Utenti.Password)='" & Password & "'));"
'Apriamo il recordset
Set rst = Server.CreateObject("ADODB.Recordset")
rst.open strSQL, conn
'Verifichiamo se ha trovato nel database i dati di login
if rst.BOF and rst.EOF then
Session("LoginStatus") = false
Response.Redirect("Index.html")
else
Session("LoginStatus") = true
Response.Redirect("AreaRiservata.asp")
end if
'Liberiamo la memoria
rst.close
set rst = nothing
conn.close
set conn = nothing
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<title>Documento senza titolo</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>
<body>
<%
Provider = Microsoft.Jet.OLEDB.4.0; Data Source = C:\Documents and settings\Administrator\desktop\login.mdb
%
</body>
</html>
pagina riservata
<%
if not Session("LoginStatus") then Response.Redirect("Index.asp")
%>
<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<title>Documento senza titolo</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<style type="text/css">
<!--
body {
background-color: #00FF66;
}
-->
</style></head>
<body>
Ciao
</body>
</html>
premetto che sono assolutamente alle prime armi e quindi ho bisogno di un aiuto semplice
eventualemente anche un altro modo piu semplice se esiste .
grazie ancora daniela
Rispondi quotando
VVoVe: 