ciao,
pagina login.asp
codice:
<%
Dim nome
Dim pass
nome = Replace(Request.Form("nome"), "'", "''")
pass = Replace(Request.Form("password"), "'", "''")
Dim cn
Set cn = Server.CreateObject("ADODB.Connection")
cn.Open "driver={Microsoft Access Driver (*.mdb)};dbq="&Server.MapPath("LAUREATI.MDB")
Dim sql
sql = "SELECT user,password FROM TUA_TABELLA WHERE user='" &nome&_
"' AND password='" &pass& "'"
Dim rs
Set rs = cn.Execute(sql)
if rs.eof then
Response.write ("esito=NO")
else
If (StrComp(rs("user"), user,0) = 0) AND _
(StrComp(rs("password"), pass,0) = 0) Then
Response.write ("esito=OK")
else
Response.write ("esito=NO")
end if
end if
rs.Close
cn.Close
Set rs = Nothing
Set cn = Nothing
%>
in flash :
due campi di testo input istanziati 'user' e 'password'
sul bottone 'invia' metti:
codice:
on (release, keyPress "<Enter>") {
login = new LoadVars();
login.nome = nome.text ;
login.password = password.text ;
login.path = this;
login.onLoad = function(success) {
if (success) {
// risposta da ASP, variabile "esito" OK/NO
if(this.esito == "OK"){
//fai quello che vuoi
//}
} else{
this.path.gotoAndStop(5);
}
} else {
trace("errore di comunicazione con il file ASP");
}
}
login.sendAndLoad("login.asp", login, "POST");
}