Flash με php για login!

Λύσεις προβλημάτων για το δημοφιλές πρόγραμμα κατασκευής παρουσιάσεων στο διαδίκτυο.

Συντονιστές: WebDev Moderators, Super-Moderators

Απάντηση
Άβαταρ μέλους
stonekito
Δημοσιεύσεις: 599
Εγγραφή: 20 Φεβ 2004 18:07
Τοποθεσία: Greece-kavala
Επικοινωνία:

Flash με php για login!

Δημοσίευση από stonekito » 28 Δεκ 2004 10:07

Λοιπον εχω αυτο το swf οπου κανει καποιος login και αν δεν εχει λογαριασμο να κανει register.

Τι κανω?

Βαζω και κωδικα php αλλα αυτο τιποτα..
θελωντας να μπενει καποιος και να κανει εγγραφη αν δεν εχει password αλλα κολισα
στο php τι πρεπει να κανω?

Εκει που εχω αφυσει "" "" πρεπει να βαλω τους κωδικους που θα δεχεται?

Για login

Κώδικας: Επιλογή όλων

<%@LANGUAGE="VBSCRIPT"%> <%

Dim myconnection__strUserID
myconnection__strUserID = "x"
if&#40;Request.Form&#40;"UserID"&#41; <> ""&#41; then myconnection__strUserID = Request.Form&#40;"UserID"&#41;

Dim myconnection__strPassword
myconnection__strPassword = "1"
if&#40;Request.Form&#40;"Password"&#41; <> ""&#41; then myconnection__strPassword = Request.Form&#40;"Password"&#41;

%> <%
set myconnection = Server.CreateObject&#40;"ADODB.Recordset"&#41;
myconnection.ActiveConnection ="dsn=k_FlashLogin;"
myconnection.Source = "SELECT *  FROM Login  WHERE UserID = '" + Replace&#40;myconnection__strUserID, "'", "''"&#41; + "' AND Password = '" + Replace&#40;myconnection__strPassword, "'", "''"&#41; + "'"
myconnection.CursorType = 0
myconnection.CursorLocation = 2
myconnection.LockType = 3
myconnection.Open
myconnection_numRows = 0
%> 
<% If myconnection__strUserID <> "x" Then
If Not myconnection.EOF Then
Response.Write "login=Granted"
else
Response.Write "login=Denied"
End If
End If
 %> 
Για reg

Κώδικας: Επιλογή όλων

<%
UserID = Request.Form&#40;"UserID"&#41;
Password = Request.Form&#40;"Password"&#41;
FirstName = Request.Form&#40;"FirstName"&#41;
LasName = Request.Form&#40;"LastName"&#41;
Email = Request.Form&#40;"Email"&#41;
AccessGroup = Request.Form&#40;"AccessGroup"&#41;
%>
<html>

<head>
<title>New Page 1</title>
<meta name="GENERATOR" content="Microsoft FrontPage 3.0">
</head>

<body>

<table width="100%" border="1">
  <tr>
    <td><b>UserID</b></td>
    <td><b>Password</b></td>
    <td><b>FirstName</b></td>
    <td><b>LastName</b></td>
    <td><b>Email</b></td>
    <td><b>AccessGroup</b></td>
  </tr>
  <!--webbot bot="DatabaseRegionStart" startspan
  s-columnnames="UserID,Password,FirstName,LastName,Email,AccessGroup"
  s-connstring="DSN=k_FlashLogin" s-password b-tableformat="TRUE"
  s-sql="Insert Into Login &#40;UserID, Password, FirstName, LastName, Email, AccessGroup&#41; values &#40;'%%UserID%%','%%Password%%','%%FirstName%%', '%%LastName%%', '%%Email%%', '%%AccessGroup%%'&#41;"
  local_preview="&lt;tr&gt;&lt;td colspan=12 bgcolor=&quot;#FFFF00&quot; align=&quot;center&quot; width=&quot;100%&quot;&gt;&lt;font color=&quot;#000000&quot;&gt; Database Regions do not preview unless this page is fetched from a Web server using a web browser.  The following table will display one row for each query result row when the page is fetched from a Web server.&lt;/td&gt;&lt;/tr&gt;"
  preview clientside s-DefaultFields
  s-NoRecordsFound="Your registration has been successful." i-MaxRecords i-ScriptTimeout
  tag="BODY" --><%
' Substitute in form parameters into the query string
fp_sQry = "Insert Into Login &#40;UserID, Password, FirstName, LastName, Email, AccessGroup&#41; values &#40;'%%UserID%%','%%Password%%','%%FirstName%%', '%%LastName%%', '%%Email%%', '%%AccessGroup%%'&#41;"
fp_sDefault = ""
fp_sNoRecords = "Your registration has been successful."
fp_iMaxRecords = 0
fp_iTimeout = 0
fp_iCurrent = 1
fp_fError = False
fp_bBlankField = False
If fp_iTimeout <> 0 Then Server.ScriptTimeout = fp_iTimeout
Do While &#40;Not fp_fError&#41; And &#40;InStr&#40;fp_iCurrent, fp_sQry, "%%"&#41; <> 0&#41;
	' found a opening quote, find the close quote
	fp_iStart = InStr&#40;fp_iCurrent, fp_sQry, "%%"&#41;
	fp_iEnd = InStr&#40;fp_iStart + 2, fp_sQry, "%%"&#41;
	If fp_iEnd = 0 Then
		fp_fError = True
		Response.Write "<B>Database Region Error&#58; mismatched parameter delimiters</B>"
	Else
		fp_sField = Mid&#40;fp_sQry, fp_iStart + 2, fp_iEnd - fp_iStart - 2&#41;
		If Mid&#40;fp_sField,1,1&#41; = "%" Then
			fp_sWildcard = "%"
			fp_sField = Mid&#40;fp_sField, 2&#41;
		Else
			fp_sWildCard = ""
		End If
		fp_sValue = Request.Form&#40;fp_sField&#41;

		' if the named form field doesn't exist, make a note of it
		If &#40;len&#40;fp_sValue&#41; = 0&#41; Then
			fp_iCurrentField = 1
			fp_bFoundField = False
			Do While &#40;InStr&#40;fp_iCurrentField, fp_sDefault, fp_sField&#41; <> 0&#41; _
				And Not fp_bFoundField
				fp_iCurrentField = InStr&#40;fp_iCurrentField, fp_sDefault, fp_sField&#41;
				fp_iStartField = InStr&#40;fp_iCurrentField, fp_sDefault, "="&#41;
				If fp_iStartField = fp_iCurrentField + len&#40;fp_sField&#41; Then
					fp_iEndField = InStr&#40;fp_iCurrentField, fp_sDefault, "&"&#41;
					If &#40;fp_iEndField = 0&#41; Then fp_iEndField = len&#40;fp_sDefault&#41; + 1
					fp_sValue = Mid&#40;fp_sDefault, fp_iStartField+1, fp_iEndField-1&#41;
					fp_bFoundField = True
				Else
					fp_iCurrentField = fp_iCurrentField + len&#40;fp_sField&#41; - 1
				End If
			Loop
		End If

		' this next finds the named form field value, and substitutes in
		' doubled single-quotes for all single quotes in the literal value
		' so that SQL doesn't get confused by seeing unpaired single-quotes
		If &#40;Mid&#40;fp_sQry, fp_iStart - 1, 1&#41; = """"&#41; Then
			fp_sValue = Replace&#40;fp_sValue, """", """"""&#41;
		ElseIf &#40;Mid&#40;fp_sQry, fp_iStart - 1, 1&#41; = "'"&#41; Then
			fp_sValue = Replace&#40;fp_sValue, "'", "''"&#41;
		ElseIf Not IsNumeric&#40;fp_sValue&#41; Then
			fp_sValue = ""
		End If

		If &#40;len&#40;fp_sValue&#41; = 0&#41; Then fp_bBlankField = True

		fp_sQry = Left&#40;fp_sQry, fp_iStart - 1&#41; + fp_sWildCard + fp_sValue + _
			Right&#40;fp_sQry, Len&#40;fp_sQry&#41; - fp_iEnd - 1&#41;
		
		' Fixup the new current position to be after the substituted value
		fp_iCurrent = fp_iStart + Len&#40;fp_sValue&#41; + Len&#40;fp_sWildCard&#41;
	End If
Loop

If Not fp_fError Then
	' Use the connection string directly as entered from the wizard
	On Error Resume Next
	set fp_rs = CreateObject&#40;"ADODB.Recordset"&#41;
	If fp_iMaxRecords <> 0 Then fp_rs.MaxRecords = fp_iMaxRecords
	fp_rs.Open fp_sQry, "DSN=k_FlashLogin"
	If Err.Description <> "" Then
		Response.Write "<B>Database Error&#58; " + Err.Description + "</B>"
		if fp_bBlankField Then
			Response.Write "  One or more form fields were empty."
		End If
	Else
		' Check for the no-record case
		If fp_rs.EOF And fp_rs.BOF Then
			Response.Write fp_sNoRecords
		Else
			' Start a while loop to fetch each record in the result set
			Do Until fp_rs.EOF
%>
<!--webbot bot="DatabaseRegionStart" i-checksum="43234" endspan -->

  <tr>
    <td><!--webbot bot="DatabaseResultColumn" startspan
    s-columnnames="UserID,Password,FirstName,LastName,Email,AccessGroup" s-column="UserID"
    b-tableformat="TRUE" clientside local_preview="Database&#58; UserID"
    preview="Database&#58; UserID" --><% 
If Not IsEmpty&#40;fp_rs&#41; And Not &#40;fp_rs Is Nothing&#41; Then Response.Write CStr&#40;fp_rs&#40;"UserID"&#41;&#41; 
%>
<!--webbot bot="DatabaseResultColumn" i-checksum="24692"
    endspan --> </td>
    <td><!--webbot bot="DatabaseResultColumn" startspan
    s-columnnames="UserID,Password,FirstName,LastName,Email,AccessGroup" s-column="Password"
    b-tableformat="TRUE" clientside local_preview="Database&#58; Password"
    preview="Database&#58; Password" --><% 
If Not IsEmpty&#40;fp_rs&#41; And Not &#40;fp_rs Is Nothing&#41; Then Response.Write CStr&#40;fp_rs&#40;"Password"&#41;&#41; 
%>
<!--webbot bot="DatabaseResultColumn" i-checksum="29488"
    endspan --> </td>
    <td><!--webbot bot="DatabaseResultColumn" startspan
    s-columnnames="UserID,Password,FirstName,LastName,Email,AccessGroup" s-column="FirstName"
    b-tableformat="TRUE" clientside local_preview="Database&#58; FirstName"
    preview="Database&#58; FirstName" --><% 
If Not IsEmpty&#40;fp_rs&#41; And Not &#40;fp_rs Is Nothing&#41; Then Response.Write CStr&#40;fp_rs&#40;"FirstName"&#41;&#41; 
%>
<!--webbot bot="DatabaseResultColumn"
    i-checksum="32411" endspan --> </td>
    <td><!--webbot bot="DatabaseResultColumn" startspan
    s-columnnames="UserID,Password,FirstName,LastName,Email,AccessGroup" s-column="LastName"
    b-tableformat="TRUE" clientside local_preview="Database&#58; LastName"
    preview="Database&#58; LastName" --><% 
If Not IsEmpty&#40;fp_rs&#41; And Not &#40;fp_rs Is Nothing&#41; Then Response.Write CStr&#40;fp_rs&#40;"LastName"&#41;&#41; 
%>
<!--webbot bot="DatabaseResultColumn" i-checksum="29199"
    endspan --> </td>
    <td><!--webbot bot="DatabaseResultColumn" startspan
    s-columnnames="UserID,Password,FirstName,LastName,Email,AccessGroup" s-column="Email"
    b-tableformat="TRUE" clientside local_preview="Database&#58; Email" preview="Database&#58; Email" --><% 
If Not IsEmpty&#40;fp_rs&#41; And Not &#40;&#41; Then Response.Write CStr&#40;fp_rs&#40;"Email"&#41;&#41; 
%>
<!--webbot
    bot="DatabaseResultColumn" i-checksum="23454" endspan --> </td>
    <td><!--webbot bot="DatabaseResultColumn" startspan
    s-columnnames="UserID,Password,FirstName,LastName,Email,AccessGroup"
    s-column="AccessGroup" b-tableformat="TRUE" clientside
    local_preview="Database&#58; AccessGroup" preview="Database&#58; AccessGroup" --><% 
If Not IsEmpty&#40;fp_rs&#41; And Not &#40;fp_rs Is Nothing&#41; Then Response.Write CStr&#40;fp_rs&#40;"AccessGroup"&#41;&#41; 
%>
<!--webbot
    bot="DatabaseResultColumn" i-checksum="52422" endspan --> </td>
  </tr>
  <!--webbot bot="DatabaseRegionEnd" startspan b-tableformat="TRUE" local_preview preview
  clientside tag="BODY" --><%
				' Close the loop iterating records
				fp_rs.MoveNext
			Loop
		End If
		fp_rs.Close
	' Close the If condition checking for a connection error
	End If
' Close the If condition checking for a parse error when replacing form field params
End If
set fp_rs = Nothing
%>
<!--webbot bot="DatabaseRegionEnd" i-checksum="55813" endspan
  -->

</table>
</body>
</html>


sorry που γεμισα το post με τον κωδικα.... :arrow:

Άβαταρ μέλους
Expl0it
Honorary Member
Δημοσιεύσεις: 2364
Εγγραφή: 25 Αύγ 2003 23:24
Τοποθεσία: home/sweet/home

Flash με php για login!

Δημοσίευση από Expl0it » 28 Δεκ 2004 12:27

Ξεκινάμε με το εξής !!

Ο κώδικας που δίνεις είναι asp και όχι php.

Βλέπεις ότι κάνει ένα connection με μια βάση

Κώδικας: Επιλογή όλων

set myconnection = Server.CreateObject&#40;"ADODB.Recordset"&#41; 
myconnection.ActiveConnection ="dsn=k_FlashLogin;"
Επιλέγει από το table Login

Κώδικας: Επιλογή όλων

SELECT *  FROM Login  WHERE UserID = '" + Replace&#40;myconnection__strUserID, "'", "''"&#41; + "' AND Password = '" + Replace&#40;myconnection__strPassword, "'", "''"&#41; + "'"
οπότε πρέπει να φτιάξεις την βάση πρώτα που θα συνδέεται για να τραβήξει τα στοιχεία.

Τέλος σου δίνει το αποτέλεσμα

Κώδικας: Επιλογή όλων

<% If myconnection__strUserID <> "x" Then 
If Not myconnection.EOF Then 
Response.Write "login=Granted" 
else 
Response.Write "login=Denied" 
End If 
End If 
 %>
Μετά βλέπω ότι έχει ένα

Κώδικας: Επιλογή όλων

myconnection_numRows = 0
Με αυτό που γράφει εκεί δεν θα σου φέρει ποτέ καμία εγγραφή, οπότε το πετάμε αυτό :lol:

Δεν προχωράω στο registration γιατί νομίζω ότι δεν έχεις καταλάβει τι γίνεται με το όλο script οπότε καλό θα ήταν για αρχή να το ξαναψάξεις λίγο !
LET THE C0DER IN YOUR LIFE
Fatal Error: Unable to read 3555 bytes in /root/head/brain/task.php on line 0

Εικόνα

Άβαταρ μέλους
stonekito
Δημοσιεύσεις: 599
Εγγραφή: 20 Φεβ 2004 18:07
Τοποθεσία: Greece-kavala
Επικοινωνία:

Flash με php για login!

Δημοσίευση από stonekito » 28 Δεκ 2004 12:39

Ωχ...
asp ηθελα να πω ρε γ@μω.
Πως μου ηρθε..

Τεσπα.

Τι μου συνηστας να κανω ..
Να κατσω να κανω μια βαση, η υπαρχει κατι ποιο ευκολο που κανει σχεδον την ιδια δουλεια.
Και αν κανω βαση με sql?
με php δεν μπορω να κανω τιν δουλεια μου..
Σε ζαλησα. :pint: :hammer:

Άβαταρ μέλους
Expl0it
Honorary Member
Δημοσιεύσεις: 2364
Εγγραφή: 25 Αύγ 2003 23:24
Τοποθεσία: home/sweet/home

Flash με php για login!

Δημοσίευση από Expl0it » 28 Δεκ 2004 12:45

Με το τι γλώσσα προγραμματισμού και τι είδος βάσης θα χρησιμοποιήσεις είναι καθαρά δικό σου θέμα !!

Εγώ αυτό που προτείνω είναι να ξεκινήσεις με πιο βασικά πράγματα ! Όπως το να επιλέξεις κάποια γλώσσα προγραμματισμού και να κάτσεις να διαβάσεις λίγο το πως δουλέυει ! Θέλει να έχεις κάποιες γνώσεις για να κάνεις κάτι τέτοιο και όχι να χρησιμοποιήσεις κάτι έτοιμο ! Και από την στιγμή που θα χρησιμοποιήσεις κάτι έτοιμο να ξέρεις πως να το φέρεις στα μέτρα σου και στις απαιτήσεις σου...
LET THE C0DER IN YOUR LIFE
Fatal Error: Unable to read 3555 bytes in /root/head/brain/task.php on line 0

Εικόνα

Άβαταρ μέλους
GhostShip
Δημοσιεύσεις: 338
Εγγραφή: 30 Σεπ 2003 09:57
Τοποθεσία: Αθήνα

Flash με php για login!

Δημοσίευση από GhostShip » 28 Δεκ 2004 13:13

Επειδή μπερδεύτικα λίγο με τον τρόπο με τον οποίο συντάσεις τον λόγο σου θα θεωρήσω οτι στο "με php δεν μπορω να κανω τιν δουλεια μου.." αντί για τις τελίτσες υπάρχει ερωτηματικό.

Λοιπόν, έχουμε και λέμε:

Θέλεις καταρχήν μία βάση δεδομένων που να αποθηκεύει αυτούς που κάνουν register και να ανακτά αυτούς που κάνουν login.

Mε ποιά γλώσσα προγραμματισμού θα το καταφέρεις αυτό είναι δικό σου θέμα, όπως λέει και ο Filter. Είτε php είτε asp χρησιμοποιήσεις το ίδιο πράγμα είναι.

Τώρα επειδή μάλλον έχεις μπερδευτεί σχετικά με SQL, θα ήθελα να σου πω οτι SQL είναι μια γλώσσα και αυτή που χρησιμοποιείται από βάσεις δεδομένων. MySQL, MS SQL, MS Access, όλα αυτά είναι πακέτα λογισμικού που χρησιμοποιούν την συγκεκριμένη γλώσσα. Τα αρχικά SQL σημαίνουν Structured Query Language.

Και όπως σωστά λέει και ο Filter θα πρέπει να ξέρεις τί κάνεις κάθε φορά ώστε ακόμα και κάτι έτοιμο να μπορείς να το παραμετροποιήσεις και να το φέρεις στα μέτρα τα δικά σου.

Ελπίζω να βοήθησα.
Τελευταία επεξεργασία από το μέλος GhostShip την 28 Δεκ 2004 18:14, έχει επεξεργασθεί 1 φορά συνολικά.
Εικόνα

Άβαταρ μέλους
stonekito
Δημοσιεύσεις: 599
Εγγραφή: 20 Φεβ 2004 18:07
Τοποθεσία: Greece-kavala
Επικοινωνία:

Flash με php για login!

Δημοσίευση από stonekito » 28 Δεκ 2004 13:43

λοιπον θα ηθελα να ευχαριστησω για την βοηθεια σας.
Και της παρατηρησεις σας.

Ηθελα να πω αφου ειναι σε flash αν μπορω να το κανω οστε να μην χριαζεται προγραμματισμο απλα καποιο κωδικα οστε να γνωριζει καποιους user * Αλλα δεν θα μπορει να κανει εγγραφη ετσι?* :evil:
Και να ειναι ενσοματομενο σε μια σελιδα...Αλλα δεν θα εχει και πολυ ασφαλεια...
Χμμμ..
Λοιπον θα κατσω λυγο να διαβασω.
Εχω παρει ενα βιβλιο με php mysql apache.
Αλλα δεν αναφερει κατι παρομοιο...
Ισος καποιο βιβλιο με flash?
Λεει τιποτα?

Άβαταρ μέλους
stonekito
Δημοσιεύσεις: 599
Εγγραφή: 20 Φεβ 2004 18:07
Τοποθεσία: Greece-kavala
Επικοινωνία:

Flash με php για login!

Δημοσίευση από stonekito » 29 Δεκ 2004 13:47

Να ρωτησω κατι?Για οσους ξερουν..
flashmx 2004 macromedia εxει και database?
Τα λεει αναλητικα, να το παρω?

Άβαταρ μέλους
tolis_montana
Honorary Member
Δημοσιεύσεις: 913
Εγγραφή: 13 Απρ 2004 01:15
Τοποθεσία: στο κοσμο μου...
Επικοινωνία:

Flash με php για login!

Δημοσίευση από tolis_montana » 31 Ιαν 2005 21:53

το εχω εγω φιλε θα σου ελεγα να παρεις κατι αλλο απο βιβλιο παντως ...

Άβαταρ μέλους
stonekito
Δημοσιεύσεις: 599
Εγγραφή: 20 Φεβ 2004 18:07
Τοποθεσία: Greece-kavala
Επικοινωνία:

Flash με php για login!

Δημοσίευση από stonekito » 04 Φεβ 2005 14:07

ti?

Sector
Δημοσιεύσεις: 102
Εγγραφή: 22 Μάιος 2004 12:02

Flash με php για login!

Δημοσίευση από Sector » 07 Φεβ 2005 16:10

Παιδιά εγώ το θέλω μόνο για login και όταν θα γίνετε login να σε μεταφέρει σε μια συγκεκριμένη σελίδα.
Και επειδεί έχω μπερδευτεί λιγάκι ,μπορείτε να μου πείτε τι να κάνω ? :hammer:
(Έχω όλα τα αρχεία)

Άβαταρ μέλους
stonekito
Δημοσιεύσεις: 599
Εγγραφή: 20 Φεβ 2004 18:07
Τοποθεσία: Greece-kavala
Επικοινωνία:

Flash με php για login!

Δημοσίευση από stonekito » 07 Φεβ 2005 21:27

E. ayto einai eyokolo, an se endiaferei kati tetoio dvse ena e-mail na soy steilo ego ena to opoio den mou kanei emena.
apla na xereis den exei katholou asfaleia kati tetoio an kapoios parei to swf soy tha mporei na dei ton kodika kai oysiastika ton kodiko soy gia login

Sector
Δημοσιεύσεις: 102
Εγγραφή: 22 Μάιος 2004 12:02

Flash με php για login!

Δημοσίευση από Sector » 07 Φεβ 2005 21:39

ok den me peirazi giati to 8elo gia allo logo.
8a mporouses na mou to stelnes sto Sector@illegalracers.gr ?
Se euxaristo poly.

Άβαταρ μέλους
stonekito
Δημοσιεύσεις: 599
Εγγραφή: 20 Φεβ 2004 18:07
Τοποθεσία: Greece-kavala
Επικοινωνία:

Flash με php για login!

Δημοσίευση από stonekito » 08 Φεβ 2005 20:29

φιλαρακι
μπορεις να το κατεβασεις απο εδω γιατι δεν μπορεσα απο το εμαιλ

download Password

Απάντηση

Επιστροφή στο “Flash γενικά”

Μέλη σε σύνδεση

Μέλη σε αυτήν τη Δ. Συζήτηση: Δεν υπάρχουν εγγεγραμμένα μέλη και 0 επισκέπτες