ciao
ti butto giu lo script così ci capirò qualcosa
default.asp
---------------------------------------------
<HTML>
<HEAD>
<TITLE>Area riservata</TITLE>
<link href="lavoro.css" rel="stylesheet" type="text/css">
</HEAD>
<BODY>
<%
if session("ricorda") = 1 then
response.redirect("area_riservata.asp")
'response.write("utente")
Else
%>
<FORM METHOD="POST" ACTION="area_riservata.asp">
<TABLE width="400" align="center" cellpadding="1">
<TR>
<TD align="right">Username:</TD>
<TD><INPUT TYPE="text" NAME="username"></TD>
</TR>
<TR>
<TD align="right">Password:</TD>
<TD><INPUT TYPE="password" NAME="password"></TD>
</TR>
<TR>
<TD colspan="2" align="center">ricorda password:  <INPUT TYPE="checkbox" NAME="ricorda" value="false" checked><br><br>
<input type="submit" name="Submit" value="entra"></TD>
</TR>
</TABLE>
</form>
<%
session("ricorda")=0
End If
%>
</BODY>
</HTML>
--------------------------------------------------
area_riservata.asp
---------------------------------------------------------
<%
Dim user
Dim pass
user = Replace(Request.Form("username"), "'", "''")
pass = Replace(Request.Form("password"), "'", "''")
Dim cn
Set cn = Server.CreateObject("ADODB.Connection")
cn.Open "driver={Microsoft Access Driver (*.mdb)};dbq="&Server.MapPath("miodb.mdb")
Dim sql
sql = "SELECT id FROM login WHERE username='" &user&_
"' AND password='" &pass& "'"
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
%>
<html>
<head>
<title>Area riservata</title>
<link href="lavoro.css" rel="stylesheet" type="text/css">
</head>
<body>
<div align="center">
<%
if autenticato = true then
%>
<TABLE width="600" align="center" cellpadding="1">
<TR>
<TD colspan="4"></TD>
</TR>
<TR>
<TD><a href="inserisci.asp">Nuovo lavoro</a></TD>
<TD><a href="ElencoLavori.asp">Vedi lavori</a></TD>
</TR>
</TABLE>
<%
else
Response.Redirect("default.asp")
end if
%>
</body>
</html>
Modificato da darker il 11 ottobre 2005 12.23 -
