Action Scipt... !!DESESPERADO!!!
Publicado por sruedat (71 intervenciones) el 27/12/2001 12:29:38
He hecho un simple formulario (en flash) que recoje dos datos, los apellidos y el NIF.
Una vez que le damos al botón de enviar, los datos son enviados a un código ASP, este código ASP
comprueba si los datos corresponden a un usuario registrado en una base de datos y devuelve una etiqueta que volverá a utilizar la película flash.
El funcionamiento viene a ser
Si le damos al botón de enviar (los datos) en la pelicula flash:
on (release, keyPress "<Enter>") {
loadVariables ("ComprobarUsuario.asp", "", "POST");
play ();
}
El código ASP recoje así los datos:
Dim LosApellidos
LosApellidos = Request.Form("Apellidos")
Dim ElNIF
ElNIF = Request.Form("NIF")
Y los busca así en la base:
set MiBase = Server.CreateObject("ADODB.Recordset")
MiBase.ActiveConnection ="DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&SERVER.MapPath("\FlashLogin.mdb")
MiBase.Source = "SELECT * FROM LOGIN WHERE Apellidos = '" + Replace(LosApellidos, "'", "''") + "' AND NIF = '" + Replace(ElNIF, "'", "''") + "'"
MiBase.CursorType = 0
MiBase.CursorLocation = 2
MiBase.LockType = 3
MiBase.Open
If Not MiBase.EOF Then
Response.Write "RespuestaASP=Socio"
else
Response.Write "RespuestaASP=NoSocio"
End If
Después(en el fotograma siguiente al envío de los datos) la película flash recoje el resultado del código ASP:
Una vez que le damos al botón de enviar, los datos son enviados a un código ASP, este código ASP
comprueba si los datos corresponden a un usuario registrado en una base de datos y devuelve una etiqueta que volverá a utilizar la película flash.
El funcionamiento viene a ser
Si le damos al botón de enviar (los datos) en la pelicula flash:
on (release, keyPress "<Enter>") {
loadVariables ("ComprobarUsuario.asp", "", "POST");
play ();
}
El código ASP recoje así los datos:
Dim LosApellidos
LosApellidos = Request.Form("Apellidos")
Dim ElNIF
ElNIF = Request.Form("NIF")
Y los busca así en la base:
set MiBase = Server.CreateObject("ADODB.Recordset")
MiBase.ActiveConnection ="DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&SERVER.MapPath("\FlashLogin.mdb")
MiBase.Source = "SELECT * FROM LOGIN WHERE Apellidos = '" + Replace(LosApellidos, "'", "''") + "' AND NIF = '" + Replace(ElNIF, "'", "''") + "'"
MiBase.CursorType = 0
MiBase.CursorLocation = 2
MiBase.LockType = 3
MiBase.Open
If Not MiBase.EOF Then
Response.Write "RespuestaASP=Socio"
else
Response.Write "RespuestaASP=NoSocio"
End If
Después(en el fotograma siguiente al envío de los datos) la película flash recoje el resultado del código ASP:
Valora esta pregunta


0