asp - Add Member script - Udvikleren.dk - Programmering, webdesign og grafik

Tags: asp

<< < 1 2 > >>

Bruger #5973 @ 25.06.04 03:19

Jeg har nogle problemer med at få lortet her til at virke..
nogen som kan hjælpe mig ??

- http://80.161.70.237/addmember1.asp

Man kan udfylde det og det er godt nok.
Men lige så snart man trykker på Accept så kommer den op med en fejl..

Det skulle helst ordnes sådan så den sætter en persons infos ind i en tabel i databasen og viser den inde i members.asp siden..

Jeg bruger dette script :

Kode

<%
'----få fat på input'et, en linje for hver ting der skal hentes-----
varUsername = Request.Querystring("username")
varPassword = Request.Querystring("password")
varName = Request.Querystring("name")
varRank = Request.Querystring("rank")
varAge = Request.Querystring("age")
varLocation = Request.Querystring("location")
varEmail = Request.Querystring("email")
varQuote = Request.Querystring("quote")
varFavgun = Request.Querystring("favgun")
varFavMap = Request.Querystring("favmap")
varSens = Request.Querystring("sens")
varReso = Request.Querystring("reso")
varProcess = Request.Querystring("process")
varRam = Request.Querystring("ram")
varGfx = Request.Querystring("gfx")
varHdd = Request.Querystring("hdd")
varMonitor = Request.Querystring("monitor")
varSound = Request.Querystring("sound")
varMouse = Request.Querystring("mouse")
varMousepad = Request.Querystring("mousepad")
varKeyboard = Request.Querystring("keyboard")
varOs = Request.Querystring("os")

'----------Connect til din database som du plejer her----------

Set conn = CreateObject("ADODB.Connection")

conn.open = "DRIVER={MySQL ODBC 3.51 Driver};" _
    & "SERVER=[b]SENSORERET[/b];" _
    & " DATABASE==[b]SENSORERET[/b];" _
    & "UID==[b]SENSORERET[/b];PWD==[b]SENSORERET[/b]; OPTION=3"

Set rs = CreateObject("ADODB.Recordset")

SQL = "SELECT * FROM aaddmember32"
rs.open SQL, conn ', 1, 3

do while not rs.eof

'---------------------opret den nye bruger---------------------
strSQL = "Insert into aaddmember32 ("
strSQL = strSQL & "username, "
strSQL = strSQL & "password, "
</br>
strSQL = strSQL & "name, "              
strSQL = strSQL & "rank, "
strSQL = strSQL & "age, "
strSQL = strSQL & "location, "
strSQL = strSQL & "email, "
strSQL = strSQL & "quote, "
strSQL = strSQL & "favgun, "
strSQL = strSQL & "favmap, "
strSQL = strSQL & "sens, "
strSQL = strSQL & "reso, "
strSQL = strSQL & "process, "
strSQL = strSQL & "ram, "
strSQL = strSQL & "gfx, "
strSQL = strSQL & "hdd, "
strSQL = strSQL & "monitor, "
strSQL = strSQL & "sound, "
strSQL = strSQL & "mouse, "
strSQL = strSQL & "mousepad, "
strSQL = strSQL & "keyboard, "
strSQL = strSQL & "os) "
strSQL = strSQL & "values( "

strSQL = strSQL & "'" &varUsername &"', "
strSQL = strSQL & "'" &varPassword &"', "
strSQL = strSQL & "'" &varName &"', "
strSQL = strSQL & "'" &varRank &"', "
strSQL = strSQL & "'" &varAge &"', "
strSQL = strSQL & "'" &varLocation &"', "
strSQL = strSQL & "'" &varEmail &"', "
strSQL = strSQL & "'" &varQuote &"', "
strSQL = strSQL & "'" &varFavgun &"', "
strSQL = strSQL & "'" &varFavmap &"', "
strSQL = strSQL & "'" &varSens &"', "
strSQL = strSQL & "'" &varReso &"', "
strSQL = strSQL & "'" &varProcess &"', "
strSQL = strSQL & "'" &varRam &"', "
strSQL = strSQL & "'" &varGfx &"', "
strSQL = strSQL & "'" &varHdd &"', "
strSQL = strSQL & "'" &varMonitor &"', "
strSQL = strSQL & "'" &varSound &"', "
strSQL = strSQL & "'" &varMouse &"', "
strSQL = strSQL & "'" &varMousepad &"', "
strSQL = strSQL & "'" &varKeyboard &"', "
strSQL = strSQL & "'" &varOs &"', "           
Conn.Execute(strSQL)

Conn.Close
Set Conn = Nothing 

'----------------------------Vis info----------------------------

Response.Write "<b>Ny bruger oprettet!</b>"
Response.Write "Username : " &varUsername &"</br>"
Response.Write "Password : " &varPassword &"</br>"
Response.Write "Name : " &varName &"</br>"
Response.Write "Rank : " &varRank &"</br>"
Response.Write "Age : " &varAge &"</br>"
Response.Write "Location : " &varLocation &"</br>"
Response.Write "Email : " &varEmail &"</br>"
Response.Write "Quote : " &varQuote &"</br>"
Response.Write "Favorite Gun : " &varFavgun &"</br>"
Response.Write "Favorite Map : " &varFavmap &"</br>"
Response.Write "Sensivity: " &varSens &"</br>"
Response.Write "Resolution: " &varReso &"</br>"
Response.Write "Processor: " &varProcess &"</br>"
Response.Write "Ram: " &varRam &"</br>"
Response.Write "Gfx: " &varGfx &"</br>"
Response.Write "Harddisk: " &varHdd &"</br>"
Response.Write "Monitor : " &varMonitor &"</br>"
Response.Write "Sound : " &varSound &"</br>"
Response.Write "Mouse : " &varMouse &"</br>"
Response.Write "Mousepad : " &varMousepad &"</br>"
Response.Write "Keyboard : " &varKeyboard &"</br>"
Response.Write "Operativ System : " &varOs
%>

- Og for denne fejl :

Error Type:
Microsoft VBScript compilation (0x800A03FB)
Expected 'Loop'
/bund.asp, line 50

Er der nogen som kan hjælpe mig med at få det til at virke ?

[Redigeret d. 25/06-04 03:31:01 af Lasse Jørgensen]

15 svar postet i denne tråd vises herunder
1 indlæg har modtaget i alt 3 karma

Sorter efter stemmer Sorter efter dato

Bruger #5779 @ 26.06.04 12:00

305

SQL = "Select From amember32 Where username = '" &varUsername &"'"

Din SQL sætning ser ikke helt rigtig ud, du mangler at fortælle hvilke felter den skal selecte, du kan skrive SELECT * FROM ... så vælger den alle felterne.

If rs("password") = varPassword Then '------------ Login

session("username") = rs("username")
session("loggedin") = yes
Response.Redirect("default.asp")
Else '------------Ellers
Response.Write "Forkert password."
Response.Redirect("default.asp")
End If

Du kan jo på samme måde ligge status feltet ud i en session variabel. Ligesom du gør med Username

Håber det gav dig nogle ideer

Mvh. Thomas Lykke Petersen

Bruger #5779 @ 25.06.04 09:54

305

Prøv at fjerne det her fra dit script:

SQL = "SELECT * FROM aaddmember32"
rs.open SQL, conn ', 1, 3

do while not rs.eof

Det giver nemlig ingen mening at du åbner dit recordset før du laver din INSERT, også beder du den om at loope indtil EOF = true. Men du har ingen LOOP ..

Det hænger sådan sammen:

do while not rs.eof
-- gør noget her
loop

Men du har ikke brug for den del af scriptet, så vidt jeg lige kan se.

Mvh. Thomas Lykke Petersen

Bruger #5973 @ 25.06.04 16:21

Prøv at fjerne det her fra dit script:

SQL = "SELECT * FROM aaddmember32"
rs.open SQL, conn ', 1, 3

do while not rs.eof

Det giver nemlig ingen mening at du åbner dit recordset før du laver din INSERT, også beder du den om at loope indtil EOF = true. Men du har ingen LOOP ..

Det hænger sådan sammen:

do while not rs.eof
-- gør noget her
loop

Men du har ikke brug for den del af scriptet, så vidt jeg lige kan se.

Mvh. Thomas Lykke Petersen

Tak Thomas.. Det hjalp en del på det..
Men den gider bare ikke vise mig nogle ting nu..

Jeg har ændret nogle ting i scriptet fordi jeg skal bruge det til at oprette en bruger med username og password.

Og den gider ikke.
hvis jeg trykker på min submit knap for at den skal oprette de ting
så kommer den med en fejl..

- Error Type:
Microsoft OLE DB Provider for ODBC Drivers (0x80040E14)
[MySQL][ODBC 3.51 Driver][mysqld-4.0.17-nt]Unknown column 'password' in 'field list'
/showmember.asp, line 34

og på den linie står der :

- Conn.Execute(strSQL)

Har sendt dig min kode som den ser ud nu..
håber at du kan hjælpe mig.

Kode

<!-- #include file="top.asp" -->

<%
'----få fat på input'et, en linje for hver ting der skal hentes-----'
varUsername = Request.Form("username")
varPassword = Request.Form("password")


'----------Connect til din database som du plejer her----------'

Set conn = CreateObject("ADODB.Connection")

conn.open = "DRIVER={MySQL ODBC 3.51 Driver};" _
    & "SERVER=HIDDEN;" _
    & " DATABASE=ASP;" _
    & "UID=HIDDEN;PWD=HIDDEN; OPTION=3"

Set rs = CreateObject("ADODB.Recordset")


'---------------------opret den nye bruger---------------------'

strSQL = "Insert into aaddmember32 ("
strSQL = strSQL & "username, "
strSQL = strSQL & "password) "

strSQL = strSQL & "values( "

strSQL = strSQL & "'" &varUsername &"', "
strSQL = strSQL & "'" &varPassword &"') "


Conn.Execute(strSQL)

Conn.Close
Set Conn = Nothing 


'----------------------------Vis info----------------------------'

Response.Write "<b>Ny bruger oprettet!</b><br>"
Response.Write "Username : " &varUsername &"</br>"
Response.Write "Name : " &varPassword &"</br>"
%>

<!-- #include file="bund.asp" -->

Jeg connecter jo slet ikke til min database amember32..
Der ligger et problem i det..
Noget du ved hvordan man kan ordne ?

[Redigeret d. 25/06-04 16:58:54 af Lasse Jørgensen]

Bruger #5779 @ 25.06.04 18:41

305

conn.open = "DRIVER={MySQL ODBC 3.51 Driver};" _
& "SERVER=HIDDEN;" _
& " DATABASE=ASP;" _
& "UID=HIDDEN;PWD=HIDDEN; OPTION=3"

Du åbner din connection med en connectionstring, og i den er der angivet hvilken database du connector til på mySql serveren. Udskift DATABASE=ASP; med DATABASE=MINDATABASE;

Så er du hvertfald sikker på at den connector til den korrekte database.

Mvh. Thomas Lykke Petersen

Bruger #5973 @ 25.06.04 19:28

conn.open = "DRIVER={MySQL ODBC 3.51 Driver};" _
& "SERVER=HIDDEN;" _
& " DATABASE=ASP;" _
& "UID=HIDDEN;PWD=HIDDEN; OPTION=3"

Du åbner din connection med en connectionstring, og i den er der angivet hvilken database du connector til på mySql serveren. Udskift DATABASE=ASP; med DATABASE=MINDATABASE;

Så er du hvertfald sikker på at den connector til den korrekte database.

Mvh. Thomas Lykke Petersen

Nu har jeg fået et sted at have min database.. hos en ven..

og når jeg bruger det der :

-
conn.open = "DRIVER={MySQL ODBC 3.51 Driver};" _
& "SERVER=HIDDEN;" _
& " DATABASE=ASP;" _
& "UID=HIDDEN;PWD=HIDDEN; OPTION=3"

så kommer den med denne fejl her :

Error Type:
Microsoft OLE DB Provider for ODBC Drivers (0x80040E14)
[MySQL][ODBC 3.51 Driver][mysqld-4.0.17-nt]Duplicate entry '' for key 1
/showmember.asp, line 33

den skal jo bare tilføje noget i min db..
og min database hedder asp. og jeg bruger nu php MyAdmin. eller det er ihvertfald der jeg har min db liggende.

og på den dumme linie står der kun : Conn.Execute(strSQL)

- Skal jeg bruge noget andet som driver til det der ? for det er da ikke det der jeg har ? eller hvordan finder jeg ud af det ?

[Redigeret d. 25/06-04 19:30:02 af Lasse Jørgensen]

Bruger #5779 @ 25.06.04 19:32

305

Hvad er Primary Key i din tabel?

Mvh. Thomas Lykke Petersen

Bruger #5973 @ 25.06.04 21:15

Hvad er Primary Key i din tabel?

Mvh. Thomas Lykke Petersen

Jeg har fundet ud af det. men istedet for at lave en my indlæg.

Kunne du hjælpe mig med mit login sys ?
jeg skal have mit system til at gå ind og teste om de er bruger eller admins

jeg har nemlig status inde i min db hvor jeg kan skrive admin eller bruger.

og det skal mit login system meget gerne kunne finde ud af så en bruger ikke for en admin menu frem og kan ligge og lege der.

jeg har denne kode indtil nu.

Kode


<%
	'---------------------------------- Hent Oplysninger
varUsername = Request.Form("username")
varPassword = Request.Form("password")
varStatus = Request.Form("status")

	'------------ Connect Til Databasen
conn.open = "DRIVER={MySQL ODBC 3.51 Driver};" _
    & "SERVER=HIDDEN;" _
    & " DATABASE=asp;" _
    & "UID=HIDDEN;PWD=HIDDEN; OPTION=3"

	'------------ Hent Bruger Login Oplysninger
SQL = "Select From amember32 Where username = '" &varUsername &"'"

rs = Conn.Execute(varSQL)	'------------ Recordset Udføres

If rs.EOF Then
	Response.Write "Bruger findes ikke."

Else	'------------Ellers

	If rs("password") = varPassword Then	'------------ Login

		session("username") = rs("username")
		session("loggedin") = yes
		Response.Redirect("default.asp")
	Else					'------------Ellers
		Response.Write "Forkert password."
		Response.Redirect("default.asp")
	End If
End If

	'------------ Luk Databaseforbindelsen
Conn.Close
Set Conn = Nothing

%>	'------------  Luk End If

<!-- #include file="top.asp"-->
Logged Out
<!-- #include file="bund.asp"-->

Kan du hjælpe ?

[Redigeret d. 26/06-04 03:50:26 af Lasse Jørgensen]

Bruger #5973 @ 26.06.04 15:10

SQL = "Select From amember32 Where username = '" &varUsername &"'"

Din SQL sætning ser ikke helt rigtig ud, du mangler at fortælle hvilke felter den skal selecte, du kan skrive SELECT * FROM ... så vælger den alle felterne.

If rs("password") = varPassword Then '------------ Login

session("username") = rs("username")
session("loggedin") = yes
Response.Redirect("default.asp")
Else '------------Ellers
Response.Write "Forkert password."
Response.Redirect("default.asp")
End If

Du kan jo på samme måde ligge status feltet ud i en session variabel. Ligesom du gør med Username

Håber det gav dig nogle ideer

Mvh. Thomas Lykke Petersen

----------------------------------------------------------------

Hvad mener du med alle felterne ?

Den skal jo gå ind og checke om personen er admin eller bruger.
og jeg ved ikke lige lige om jeg kan smække den ind sådan her :

Kode

	If rs("password") = varPassword Then	'------------ Login

		session("username") = rs("username")
		session("status") = rs("status")
		session("loggedin") = yes
		Response.Redirect("default.asp")
	Else					'------------Ellers
		Response.Write "Forkert password."
		Response.Redirect("default.asp")
	End If

eller hvad ?

Det vil sige at den skal se sådan her ud ?

Kode


<%
	'---------------------------------- Hent Oplysninger
varUsername = Request.Form("username")
varPassword = Request.Form("password")
varStatus = Request.Form("status")

	'------------ Connect Til Databasen 
conn.open = "DRIVER={MySQL ODBC 3.51 Driver};" _
    & "SERVER=HIDDEN;" _
    & " DATABASE=asp;" _
    & "UID=HIDDEN;PWD=HIDDEN; OPTION=3"

	'------------ Hent Bruger Login Oplysninger
SQL = "Select * From amember32 Where username = '" &varUsername &"'"

strSQL = strSQL & "username, "
strSQL = strSQL & "password, "
strSQL = strSQL & "status) "

strSQL = strSQL & "values( "

strSQL = strSQL & "'" &varUsername &"', "
strSQL = strSQL & "'" &varPassword &"', "
strSQL = strSQL & "'" &varStatus &"')

rs = Conn.Execute(varSQL)	'------------ Recordset Udføres

If rs.EOF Then
	Response.Write "Bruger findes ikke."

Else	'------------Ellers

	If rs("password") = varPassword Then	'------------ Login

		session("username") = rs("username")
		session("status") = rs("status")
		session("loggedin") = yes
		Response.Redirect("default.asp")
	Else					'------------Ellers
		Response.Write "Forkert password."
		Response.Redirect("default.asp")
	End If
End If

	'------------ Luk Databaseforbindelsen
Conn.Close
Set Conn = Nothing

%>	'------------  Luk End If

<!-- #include file="top.asp"-->
Logged Out
<!-- #include file="bund.asp"-->

Ja undskyld at jeg er lidt lost

Bruger #5779 @ 27.06.04 12:16

305

Jeg synes det ser meget fornuftigt ud

Sådan lige ved et hurtigt øjekast.

Mvh. Thomas Lykke Petersen

Bruger #5973 @ 27.06.04 13:33

Jeg synes det ser meget fornuftigt ud Sådan lige ved et hurtigt øjekast.

Mvh. Thomas Lykke Petersen

Når jeg prøver at logge ind så kommer denne fejl :
-
Error Type:
Microsoft VBScript compilation (0x800A0409)
Unterminated string constant
/logintest.asp, line 25, column 37
strSQL = strSQL & "'" &varStatus &"')

hvad betyder det ?

MVH // Lasse Jørgensen

<< < 1 2 > >>

Add Member script

Karma barometer (30 dage)

Modtaget

Givet

Favorit hos
Forum tråde
Artikler