Hej Legende.
Jeg har prøvet lidt frem og tilbage, men kan ikke få det til at virke.
Hver gang jeg afvikler min login side, hopper den hurtigt videre, og skriver noget med at siden ikke kan loades. :( (kun password delen, det andet har jeg fået til at virke)
Jeg har lavet tingene på følgende måde:
Flash filen(login.fla+login.swf):
2 input tekst felter, med var navnene: navn & password
Knappen, til at logge ind med følgende action script:
on (release) {
loadVariablesNum("check.asp", 0, "GET");
}
Et "movie clip" med følgende action script:
onClipEvent (enterFrame) {
if (_root.resultat == _root.password && !nr2) {
getURL("javascript('lukOp(1)'");
nr2 = true;
}
}
Alt sammen afviklet i frame 1.
Javascriptet i login.html (hele html koden) ser sådan ud:
<HTML>
<HEAD>
<meta http-equiv=Content-Type content="text/html; charset=">
<TITLE>login</TITLE>
<SCRIPT LANGUAGE="JavaScript">
<!-- Begin
function lukOp(tal) {
if(tal == 1) {
window.open("index.html");
self.close();
}
}
// End -->
</SCRIPT>
</HEAD>
<BODY bgcolor="#0066FF">
<!-- URL's used in the movie-->
<!-- text used in the movie-->
<!--Brugernavn:
Password:
Denne portal er kun for test's
medarbejdere.
--><OBJECT classid="clsid:D27CDB6E-AE6D-11cf-96B8-444553540000"
codebase="
http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=6,0,0,0"
WIDTH="100%" HEIGHT="100%" id="login" ALIGN="">
<PARAM NAME=movie VALUE="login.swf"> <PARAM NAME=quality VALUE=high> <PARAM NAME=bgcolor VALUE=#0066FF> <EMBED src="login.swf" quality=high bgcolor=#0066FF WIDTH="100%" HEIGHT="100%" NAME="login" ALIGN=""
TYPE="application/x-shockwave-flash" PLUGINSPAGE="
http://www.macromedia.com/go/getflashplayer"></EMBED></OBJECT>
</BODY>
</HTML>
ASP siden check.asp ser sådan ud:
<%@Language="VBScript"%>
<%
navn = request.querystring("navn")
password = request.querystring("password")
Dim RS, Conn
Set RS = Server.CreateObject("ADODB.Recordset")
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.ConnectionString = "Driver={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("test.mdb")
Conn.Open
strSQL = "SELECT password FROM login WHERE name = navn "
Set Rs = oconn.execute(strSQL)
response.write("resultat=" + Rs)
Rs.Close
Set Rs = Nothing
conn.Close
Set Conn = Nothing
%>
Jeg har lavet det op mod en access database ved navn test.mdb, med tabel login og følgende felter id, name, password
Nogen ide om hvorfor det ikke virker?
På forhånd tak for hjælpen.
-Ceec
