ciao a tutti...
Questa è la pagina check.asp che ho creato e funziona...rimane solo da proteggere le alltre pagine...non so come disporre il codice nelle pagine da proteggere...potete aiutarmi? grazie
<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<%
'recupero le variabili dal form
dim var_user, var_pwd, www_path
var_user=request.Form("username")
var_pwd=request.Form("password")
www_path="/"
Dim conn
Set Conn = Server.CreateObject("ADODB.Connection")
DSNtest="DRIVER={Microsoft Access Driver (*.mdb)}; "
DSNtest=dsntest & "DBQ=C:\dbutenza.mdb"
Conn.Open DSNtest
'imposto la query
Dim sql
sql = "SELECT * FROM utenti WHERE username='" & var_user & "' AND password='" & var_pwd & "'"
Dim rs
Set rs = conn.Execute(sql)
Dim nomeutente
if not rs.eof then
nomeutente=rs.fields.item("username")
response.Redirect(www_path & nomeutente & "/home.asp")
else
response.Redirect("index.asp")
end if
%>
Questa è la pagina check.asp che ho creato e funziona...rimane solo da proteggere le alltre pagine...non so come disporre il codice nelle pagine da proteggere...potete aiutarmi? grazie
<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<%
'recupero le variabili dal form
dim var_user, var_pwd, www_path
var_user=request.Form("username")
var_pwd=request.Form("password")
www_path="/"
Dim conn
Set Conn = Server.CreateObject("ADODB.Connection")
DSNtest="DRIVER={Microsoft Access Driver (*.mdb)}; "
DSNtest=dsntest & "DBQ=C:\dbutenza.mdb"
Conn.Open DSNtest
'imposto la query
Dim sql
sql = "SELECT * FROM utenti WHERE username='" & var_user & "' AND password='" & var_pwd & "'"
Dim rs
Set rs = conn.Execute(sql)
Dim nomeutente
if not rs.eof then
nomeutente=rs.fields.item("username")
response.Redirect(www_path & nomeutente & "/home.asp")
else
response.Redirect("index.asp")
end if
%>
