Clan [+35] Forum - Counterstrike for voksne

Clan [+35] Forum

Brugernavn:	Kodeord:
Husk kodeord
Glemt dit kodeord?

Alle fora

Computere

[+35] Jumpy's strange world of computers

mySQL Update

Nyt emne

Emnet er lï¿½st

Vis printervenlig version

Forfatter

Emne

[+35]Jumpman
[+35] Server Admin, [+35] Member of COW - G5

Denmark
6728 indlï¿½g

Skrevet - 16 Aug 2009 : 12:51:08

Jeg laver lige om på mit spørgsmål.

Jeg skal have mysql update til at virke med asp, siden nederst i rød er lavet til opdatere i en access database, det er denne jeg skal have lavet om til at kunne opdatere i min mysql database. Jeg har prøvet utalige af muligheder så du får den i den kode den er lavet til i access. (Jeg har intet problem med vis, indsæt eller slet i mysql kun update). Jeg er ikke mysql haj så ingen avanceret spørgsmål he he

inc_config.asp

<!-- #INCLUDE FILE="inc_adovbs.asp" -->

<%
'#################################################################################
'## Copyright (C) 2009-2010 Per Christiansen
'#################################################################################

'################################## GODE KODER ###################################
'############################## START AKTIVE BRUGER ##############################
'## Antal Aktive Brugere:
'## < % = Application ( " ActiveUsers " ) % >
'############################## SLUT AKTIVE BRUGER ###############################

'############################## START LEVEL ADGANG ###############################
'## Bruges til at spærre for adgang til et bestemt links på en admin side
'## If Session("M_LEVEL") = "Administrator" Then
'## Response.Redirect("admin_control.asp?Msg=Ingen_adgang")
'## END IF
'############################### SLUT LEVEL ADGANG ###############################

'####################### START UNDGÅ CACHING AF ASP-SIDER ########################
'## If buffering on then you can create the cookie wherever you want within your code because when buffering
'## is turned on no information is written to the client browser until the all the code is finished running
'## Response.Buffer = True needs to go right under the LANGUAGE="VBSCRIPT"
Response.Buffer = true
Response.CacheControl = "no-cache"
Response.Expires = -1
'####################### SLUT UNDGÅ CACHING AF ASP-SIDER #########################

Dim strGame

'## Opretter en variabel der kan bruges til at forbinde til databasen.
Dim myConn

'## Opret variabel til at indeholde vores connection-string til databasen.
Dim strConnect

'## Tips og Råd
Dim intTipNummer, objFile, objInStream, num, strRandomTip

'## Disse 5 konstanter indeholder opsætningen til din MySQL database.
'## Dit mySQL Brugernavn
Const SQLServerAddress = "xxxxx.dk"
'## Navnet på databasen
Const SQLDataBase = "xxxxx"
'## Det brugernavn du har fået til din database
Const SQLBrugerNavn = "xxxxx"
'## Den adgangskode du har fået til din database
Const SQLPassWord = "xxxxx"

'## Denne Sub gør det lettere i ASP koden at åbne en forbindelse til en MySQL database.
'## Syntax : Call OpenDataBase
Sub OpenDataBase

'## Start med at sikre at variablen er tom
  strConnect = ""
'## Tilføj oplysninger om hvilken database-driver der skal bruges
  strConnect = strConnect & "Driver={MySQL};"
'## Tilføj oplysning om hvor MySQL serveren befinder sig
  strConnect = strConnect & "Server=" & SQLServerAddress & ";"
'## Tilføj oplysning om hvad databasen hedder
  strConnect = strConnect & "Database=" & SQLDataBase & ";"
'## Tilføj brugernavn der har adgang i databasen, vores database login
  strConnect = strConnect & "UID=" & SQLBrugerNavn & ";"
'## Tilføj adgangskode der har adgang i databasen, vores database login
  strConnect = strConnect & "PWD=" & SQLPassWord & ";"

'## Opret et ADO Connection objekt
  Set myConn = Server.CreateObject("ADODB.Connection")
'## Brug connection-string'en fra før til at oprette forbindelsen
'## til databasen, via driveroplysninger m.v.
  myConn.Open strConnect
'## Der er nu en åben og aktiv forbindelse til databasen.
End Sub

'## Denne Sub lukker forbindelsen til databasen efter brug.
'## Bør altid kaldes efter arbejde med databasen, eller som den sidste funktion i ASP siden.
'## Syntax : Call CloseDataBase
Sub CloseDataBase

'## Bed Connection objektet om at lukke forbindelsen
  myConn.Close

'## Fjern Connection objektet fra hukommelsen på serveren.
  Set myConn = Nothing
End Sub
%>

update_select.asp

<%@ Language="VBScript" %>

<% '## Using Option Explicit requires that all variables are declared ## %>
<% Option Explicit %>

<!-- #INCLUDE FILE="inc_protect.asp" -->

<!-- #INCLUDE FILE="inc_config.asp" -->

<!-- #INCLUDE FILE="inc_header.asp" -->

<!-- #INCLUDE FILE="inc_banner.asp" -->

<!-- #INCLUDE FILE="inc_toplinks.asp" -->

		<tr>
			<td class="body_txt">

	<table width="100%" border="0" cellspacing="0" cellpadding="0">
		<tr>
            <td width="100%" valign="top" class="l_cont">
				<h1>Per & Wirawan's Dagbog</h1><br>
            	<p><b>Familie Christiansens Dagbog</b></p>
			</td>
		</tr>
	</table>

<%

'## Åbner en forbindelse til vores database
Call OpenDataBase

'## Opret en variabel der skal indeholde RecordSets fra databasen
Dim rsGuestbook

'## Opbygning af SQL streng
Set rsGuestbook = myConn.Execute("SELECT tblComments.* FROM tblComments;")
'## Sikring mod fejl hvis ingen records blev fundet
If (Not rsGuestbook.BOF) And (Not rsGuestbook.EOF) Then
'## Flyt til første record i vores resultat
  rsGuestbook.MoveFirst
'## Så længe vi ikke har nået sidste resultat, udfør
  While Not rsGuestbook.EOF

	'Write the HTML to display the current record in the recordset
	Response.Write ("<br>")
	Response.Write ("<a href=""update_form.asp?ID=" & rsGuestbook("ID_no") & """>")
	Response.Write (rsGuestbook("Name"))
	Response.Write ("</a>")
	Response.Write ("<br>")
	Response.Write (rsGuestbook("Comments"))
	Response.Write ("<br>")

'## Flyt til næste record i resultatlisten
    rsGuestbook.MoveNext
  Wend
Else

'## Der var ingen resultater
  Response.Write "<h1>Familie Christiansens Hjemmeside</h1>" & vbNewLine & _
  				 "<br>Der er ingen informationer i databasen.<br><br>" & vbCrLf
End If

'## Luk for recordset
rsGuestbook.Close

'## Frigør fra hukommelsen på serveren
Set rsGuestbook = Nothing

'## Luk forbindelsen til serveren igen
Call CloseDataBase

%>
			</td>
		</tr>

<!-- #INCLUDE FILE="inc_footer.asp" -->

update_form.asp

<%@ Language="VBScript" %>

<% '## Using Option Explicit requires that all variables are declared ## %>
<% Option Explicit %>

<!-- #INCLUDE FILE="inc_protect.asp" -->

<!-- #INCLUDE FILE="inc_config.asp" -->

<!-- #INCLUDE FILE="inc_header.asp" -->

<!-- #INCLUDE FILE="inc_banner.asp" -->

<!-- #INCLUDE FILE="inc_toplinks.asp" -->

		<tr>
			<td class="body_txt">

	<table width="100%" border="0" cellspacing="0" cellpadding="0">
		<tr>
            <td width="100%" valign="top" class="l_cont">
				<h1>Per & Wirawan's Dagbog</h1><br>
            	<p><b>Familie Christiansens Dagbog</b></p>
			</td>
		</tr>
	</table>

<%
'## Opret en variabel der skal indeholde RecordSets fra databasen
Dim rsGuestbook

'## Holds the record number to be updated
Dim lngRecordNo

'Read in the record number to be updated
lngRecordNo = CLng(Request.QueryString("ID"))

'## Åbner en forbindelse til vores database
Call OpenDataBase

'## Opbygning af SQL streng
Set rsGuestbook = myConn.Execute("SELECT tblComments.* FROM tblComments WHERE ID_no=" & lngRecordNo)


%>
<html>
<head>
<title>Guestbook Update Form</title>
</head>
<body bgcolor="white" text="black">
<!-- Begin form code -->
<form name="form" method="post" action="update_entry.asp">
  Name: <input type="text" name="name" maxlength="20" value="<% = rsGuestbook("Name") %>">
  <br>
  Comments: <input type="text" name="comments" maxlength="60" value="<% = rsGuestbook("Comments") %>">
  <input type="hidden" name="ID_no" value="<% = rsGuestbook("ID_no") %>">
  <input type="submit" name="Submit" value="Submit">
</form>
<!-- End form code -->
</body>
</html>
<%

'## Luk for recordset
rsGuestbook.Close

'## Frigør fra hukommelsen på serveren
Set rsGuestbook = Nothing

'## Luk forbindelsen til serveren igen
Call CloseDataBase

%>
			</td>
		</tr>

<!-- #INCLUDE FILE="inc_footer.asp" -->

update_entry.asp

<!-- #INCLUDE FILE="inc_config.asp" -->
<%

'Dimension variables
Dim adoCon 			'Holds the Database Connection Object
Dim rsUpdateEntry		'Holds the recordset for the record to be updated
Dim strSQL			'Holds the SQL query for the database
Dim lngRecordNo			'Holds the record number to be updated

'Read in the record number to be updated
lngRecordNo = CLng(Request.Form("ID_no"))

'Create an ADO connection odject
Set adoCon = Server.CreateObject("ADODB.Connection")

'Set an active connection to the Connection object using a DSN-less connection
adoCon.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("guestbook.mdb")

'Set an active connection to the Connection object using DSN connection
'adoCon.Open "DSN=guestbook"

'Create an ADO recordset object
Set rsUpdateEntry = Server.CreateObject("ADODB.Recordset")

'Initialise the strSQL variable with an SQL statement to query the database
strSQL = "SELECT tblComments.* FROM tblComments WHERE ID_no=" & lngRecordNo

'Set the cursor type we are using so we can navigate through the recordset
rsUpdateEntry.CursorType = 2

'Set the lock type so that the record is locked by ADO when it is updated
rsUpdateEntry.LockType = 3

'Open the tblComments table using the SQL query held in the strSQL varaiable
rsUpdateEntry.Open strSQL, adoCon

'Update the record in the recordset
rsUpdateEntry.Fields("Name") = Request.Form("name")
rsUpdateEntry.Fields("Comments") = Request.Form("comments")

'Write the updated recordset to the database
rsUpdateEntry.Update

'Reset server objects
rsUpdateEntry.Close
Set rsUpdateEntry = Nothing
Set adoCon = Nothing

'Return to the update select page incase another record needs deleting
Response.Redirect "update_select.asp"
%>

Rettet af - [+35]Jumpman @ 31 Aug 2009 23:27:48

[+35]Terabyte
[+35] Soldier

Denmark
2730 Posts

Skrevet - 16 Aug 2009 : 23:19:49

er Infoid tekst eller numerisk
Tilsyneladende er den numerisk i din INSERT men den er Tekst i din SELECT.

Hvilken SQL er det den fejler på ?

[+35]Jumpman
[+35] Server Admin, [+35] Member of COW - G5

Denmark
6728 Posts

Skrevet - 21 Aug 2009 : 00:06:31

quote:
Oprindeligt skrevet af [+35]Terabyte

er Infoid tekst eller numerisk
Tilsyneladende er den numerisk i din INSERT men den er Tekst i din SELECT.

Hvilken SQL er det den fejler på ?

Har ændret mit spørgsmål, se ovenover håber du gider hjælpe med dette :-) :-) :-)

[+35]Jumpman
[+35] Server Admin, [+35] Member of COW - G5

Denmark
6728 Posts

Skrevet - 22 Aug 2009 : 08:26:52

Hvis jeg indsætter min sql streng direkte i koden ser den sådan her ud og virker som den skal men men men jeg ville gerne have den til at køre sammen med min inc_config.asp hvad skal jeg gøre ???

<%
'Dimension variables
Dim myConn 			'Holds the Database Connection Object
Dim rsUpdateEntry		'Holds the recordset for the record to be updated
Dim strSQL			'Holds the SQL query for the database
Dim lngRecordNo			'Holds the record number to be updated

'Read in the record number to be updated
lngRecordNo = CLng(Request.Form("ID_no"))

'Create an ADO connection odject
Set myConn = Server.CreateObject("ADODB.Connection")

'Set an active connection to the Connection object using a DSN-less connection
myConn.Open "Driver={MySQL ODBC 3.51 Driver};server=xxxxx.dk;database=xxxxx;option=16834;uid=xxxxx;pwd=xxxxx"

'Create an ADO recordset object
Set rsUpdateEntry = Server.CreateObject("ADODB.Recordset")

'Initialise the strSQL variable with an SQL statement to query the database
strSQL = "SELECT tblComments.* FROM tblComments WHERE ID_no=" & lngRecordNo

'Open the tblComments table using the SQL query held in the strSQL varaiable
rsUpdateEntry.Open strSQL, myConn, 2, 3

'Update the record in the recordset
rsUpdateEntry.Fields("Name") = Request.Form("name")
rsUpdateEntry.Fields("Comments") = Request.Form("comments")

'Write the updated recordset to the database
rsUpdateEntry.Update

'Reset server objects
rsUpdateEntry.Close
Set rsUpdateEntry = Nothing
Set myConn = Nothing

'Return to the update select page incase another record needs deleting
Response.Redirect "update_select.asp"
%>

[+35]Jumpman
[+35] Server Admin, [+35] Member of COW - G5

Denmark
6728 Posts

Skrevet - 22 Aug 2009 : 16:37:22

En anden ting, hvordan laver jeg linjeskift i denne form når jeg henter mine data før jeg vil opdatere dem så der ikke står <br> i min form i dette forum når man redigere en post står der ikke <br> som linjeskift

<form name="form" method="post" action="update_entry.asp">
  Name: <input type="text" name="name" maxlength="20" value="<% = rsGuestbook("Name") %>">
  <br>
  Comments: <TEXTAREA name="comments" rows="5" cols="40"><% = rsGuestbook("Comments") %></TEXTAREA>
  <input type="hidden" name="ID_no" value="<% = rsGuestbook("ID_no") %>">
  <input type="submit" name="Submit" value="Submit">
</form>

Jeg har fundet ud af at lave det når jeg opdatere databasen der blev koden

rsUpdateEntry.Fields("Comments") = replace(request.form("comments"),vbcrlf,"<BR>")

men ville meget gerne have overstående i rødt til at kører med min inc_config.asp inkluderet så jeg kun har mit brugernavn, password og host i en fil

[+35]Terabyte
[+35] Soldier

Denmark
2730 Posts

Skrevet - 23 Aug 2009 : 19:33:57

hmm - jeg er ikke helt sikker på det der

Det er nok nemmere at forholde sig til når man kan forsøge at afvikle det

[+35]Jumpman
[+35] Server Admin, [+35] Member of COW - G5

Denmark
6728 Posts

Skrevet - 23 Aug 2009 : 21:07:42

quote:
Oprindeligt skrevet af [+35]Terabyte

hmm - jeg er ikke helt sikker på det der

Det er nok nemmere at forholde sig til når man kan forsøge at afvikle det

Det eneste jeg mangler er at finde ud af hvordan jeg opdatere min database altså det i rødt jeg er sku ved at få grå hår med det der update har søgt google tykt og tyndt uden held det sku noget andet hvis det var en access database så virker det sku som det skal der må da være en eller anden der kan løse mit problem ???

Som sagt har jeg intet problem med at læse, slette og oprette i min mysql database kun opdatere giver mig problemer :-(

[+35]Jumpman
[+35] Server Admin, [+35] Member of COW - G5

Denmark
6728 Posts

Skrevet - 28 Aug 2009 : 16:16:45

Ok, jeg er kommet lidt vidre problemet nu er at den ikke sætter noget ind når jeg opdatere mangler et eller andet, hvis jeg bruger UPDATE kan siden ikke vises når jeg bruger SELECT opdatere den ikke nogen informationer ?

<%@ Language="VBScript" %>

<% '## Using Option Explicit requires that all variables are declared ## %>
<% Option Explicit %>

<!-- #INCLUDE FILE="inc_protect.asp" -->

<!-- #INCLUDE FILE="inc_config.asp" -->

<%

'## Åbner en forbindelse til vores database
Call OpenDataBase

'## Opret en variabel der skal indeholde RecordSets fra databasen
Dim rsUpdateEntry		'Holds the recordset for the record to be updated
Dim strSQL			'Holds the SQL query for the database
Dim lngRecordNo			'Holds the record number to be updated

'Read in the record number to be updated
lngRecordNo = CLng(Request.Form("MEMBER_ID"))

'## Opbygning af SQL streng
strSQL = ("SELECT PRIVAT_MEMBERS.* FROM PRIVAT_MEMBERS WHERE MEMBER_ID=") & lngRecordNo
Set rsUpdateEntry = myConn.Execute(strSQL)


'Reset server objects
rsUpdateEntry.Close
Set rsUpdateEntry = Nothing

'## Luk forbindelsen til serveren igen
Call CloseDataBase

'Return to the update select page incase another record needs deleting
Response.Redirect "admin_member_view.asp"
%>

[+35]Terabyte
[+35] Soldier

Denmark
2730 Posts

Skrevet - 28 Aug 2009 : 16:17:55

Jeg tror jeg ved hvad problemet er

Det der ".Update" - det kan man vist kun bruge på en Access database - ikke på en MySQL

Du skal bruge en SQL til at Update
"UPDATE tblComments SET varnavn=varværdi WHERE ID_no=enellerandenId"
eller noget i den stil

[+35]Jumpman
[+35] Server Admin, [+35] Member of COW - G5

Denmark
6728 Posts

Skrevet - 28 Aug 2009 : 17:42:38

Ja, det er rigtigt man kun kan bruge det til access, men jeg er ikke helt med på hvad du mener med varværdien hvordan skal den skrives ?
Jeg må mangle et eller andet for det virker stadig ikke :-(

strSQL = "UPDATE PRIVAT_MEMBERS SET M_USERNAME = '" & M_USERNAME & "' WHERE MEMBER_ID = " & lngRecordNo

Min mysql database table se sådan her ud

CREATE TABLE PRIVAT_MEMBERS (
  MEMBER_ID int(11) NOT NULL auto_increment,
  M_USERNAME varchar(50) ,
  M_PASSWORD varchar(50) ,
  M_FIRSTNAME varchar(50) ,
  M_LASTNAME varchar(50) ,
  M_LEVEL varchar(50) ,
  M_EMAIL varchar(100) ,
  M_FØDSELSDAGSDATO varchar(50) ,
  M_ADRESSE varchar(255) ,
  M_POSTNR varchar(20) ,
  M_BYNAVN varchar(50) ,
  M_PRIVATTELEFON varchar(30) ,
  M_MOBILTELEFON varchar(30) ,
  M_NOTER text ,
  M_KØN varchar(10) ,
  PRIMARY KEY (MEMBER_ID),
  KEY M_POSTNR (M_POSTNR),
  KEY M_EMAIL (M_EMAIL)
);

Der hvor jeg har fundet min kode står der dette for at updatere sin database men så ved jeg ikke hvordan jeg skal skrive de varværdier

Call OpenDataBase

' Opdater en eksisterende record i tabellen Test

objConn.Execute "UPDATE Test SET Overskrift='Ny overskrift her' WHERE ID=1"

' Luk forbindelsen til databasen igen

Call CloseDataBase

Rettet af - [+35]Jumpman @ 29 Aug 2009 08:53:13

[+35]Jumpman
[+35] Server Admin, [+35] Member of COW - G5

Denmark
6728 Posts

Skrevet - 29 Aug 2009 : 09:04:45

Laver jeg med min connection direkte i koden som nedenstående istedet for at bruge inc_config.asp så kan jeg godt opdatere med select og så virker det men men men det er ikke det jeg vil den skal køre via inc_config.asp og hvor jeg bruger Call OpenDataBase fra de sider jeg vil åbne min database fra i dette tilfælde vil jeg gerne opdatere ved brug af Call OpenDataBase

Virker når jeg skriver den sådan her

<%@ Language="VBScript" %>

<% '## Using Option Explicit requires that all variables are declared ## %>
<% Option Explicit %>

<!-- #INCLUDE FILE="inc_protect.asp" -->
<%


'Dimension variables
Dim myConn 			'Holds the Database Connection Object
Dim rsUpdateEntry		'Holds the recordset for the record to be updated
Dim strSQL			'Holds the SQL query for the database
Dim lngRecordNo			'Holds the record number to be updated

'Read in the record number to be updated
lngRecordNo = CLng(Request.Form("MEMBER_ID"))

'Create an ADO connection odject
Set myConn = Server.CreateObject("ADODB.Connection")

'Set an active connection to the Connection object using a DSN-less connection
myConn.Open "Driver={MySQL ODBC 3.51 Driver};server=xxxxx;database=xxxxx;option=16834;uid=xxxxx;pwd=xxxxx"

'Create an ADO recordset object
Set rsUpdateEntry = Server.CreateObject("ADODB.Recordset")

'Initialise the strSQL variable with an SQL statement to query the database
strSQL = "SELECT PRIVAT_MEMBERS.* FROM PRIVAT_MEMBERS WHERE MEMBER_ID=" & lngRecordNo

'Open the tblComments table using the SQL query held in the strSQL varaiable
rsUpdateEntry.Open strSQL, myConn, 2, 3

'Update the record in the recordset
rsUpdateEntry.Fields("M_USERNAME") = Request.Form("M_USERNAME")
rsUpdateEntry.Fields("M_PASSWORD") = Request.Form("M_PASSWORD")
rsUpdateEntry.Fields("M_FIRSTNAME") = Request.Form("M_FIRSTNAME")
rsUpdateEntry.Fields("M_LASTNAME") = Request.Form("M_LASTNAME")
rsUpdateEntry.Fields("M_LEVEL") = Request.Form("M_LEVEL")
rsUpdateEntry.Fields("M_EMAIL") = Request.Form("M_EMAIL")
rsUpdateEntry.Fields("M_FØDSELSDAGSDATO") = Request.Form("M_FØDSELSDAGSDATO")
rsUpdateEntry.Fields("M_ADRESSE") = Request.Form("M_ADRESSE")
rsUpdateEntry.Fields("M_POSTNR") = Request.Form("M_POSTNR")
rsUpdateEntry.Fields("M_BYNAVN") = Request.Form("M_BYNAVN")
rsUpdateEntry.Fields("M_PRIVATTELEFON") = Request.Form("M_PRIVATTELEFON")
rsUpdateEntry.Fields("M_MOBILTELEFON") = Request.Form("M_MOBILTELEFON")
rsUpdateEntry.Fields("M_NOTER") = replace(request.form("M_NOTER"),vbcrlf,"<BR>")
rsUpdateEntry.Fields("M_KØN") = Request.Form("M_KØN")

'Write the updated recordset to the database
rsUpdateEntry.Update

'Reset server objects
rsUpdateEntry.Close
Set rsUpdateEntry = Nothing
Set myConn = Nothing

'Return to the update select page incase another record needs deleting
Response.Redirect "admin_member_view.asp"
%>

[+35]Jumpman
[+35] Server Admin, [+35] Member of COW - G5

Denmark
6728 Posts

Skrevet - 31 Aug 2009 : 23:26:49

Så virker det hele, fejlen lå i min inc_config.asp jeg manglede at tilføje

'## Navnet på databasen
Const SQLOption = "xxxxx"

'## Tilføj oplysning om hvad databasen hedder
  strConnect = strConnect & "option=" & SQLOption & ";"

Så det blev til dette her med SELECT så opdatere den også databasen i mysql

inc_config.asp

<!-- #INCLUDE FILE="inc_adovbs.asp" -->

<%
'#################################################################################
'## Copyright (C) 2009-2010 Per Christiansen
'#################################################################################

'################################## GODE KODER ###################################
'############################## START AKTIVE BRUGER ##############################
'## Antal Aktive Brugere:
'## < % = Application ( " ActiveUsers " ) % >
'############################## SLUT AKTIVE BRUGER ###############################

'############################## START LEVEL ADGANG ###############################
'## Bruges til at spærre for adgang til et bestemt links på en admin side
'## If Session("M_LEVEL") = "Administrator" Then
'## Response.Redirect("admin_control.asp?Msg=Ingen_adgang")
'## END IF
'############################### SLUT LEVEL ADGANG ###############################

'####################### START UNDGÅ CACHING AF ASP-SIDER ########################
'## If buffering on then you can create the cookie wherever you want within your code because when buffering
'## is turned on no information is written to the client browser until the all the code is finished running
'## Response.Buffer = True needs to go right under the LANGUAGE="VBSCRIPT"
Response.Buffer = true
Response.CacheControl = "no-cache"
Response.Expires = -1
'####################### SLUT UNDGÅ CACHING AF ASP-SIDER #########################

'##################### START LAVER ET LINJESKIFT I EN FORM #######################
'## rsUpdateEntry.Fields("Comments") = replace(request.form("comments"),vbcrlf,"<BR>")
'##################### SLUT LAVER ET LINJESKIFT I EN FORM ########################

'## Session til login system
Dim strGame

'## Opretter en variabel der kan bruges til at forbinde til databasen.
Dim myConn

'## Opret variabel til at indeholde vores connection-string til databasen.
Dim strConnect

'## Tips og Råd - tips_og_raad.asp
Dim strTipNummer, strTipFile, strTipStream, strTipNum, strTipRandom

'## Disse 4 konstanter indeholder opsætningen til din MySQL database.
'## Dit mySQL Brugernavn
Const SQLServerAddress = "xxxxx.dk"
'## Navnet på databasen
Const SQLDataBase = "xxxxx"
'## Navnet på databasen
Const SQLOption = "xxxxx"
'## Det brugernavn du har fået til din database
Const SQLBrugerNavn = "xxxxx"
'## Den adgangskode du har fået til din database
Const SQLPassWord = "xxxxx"

'## Start med at sikre at variablen er tom
  strConnect = ""
'## Tilføj oplysninger om hvilken database-driver der skal bruges
  strConnect = strConnect & "Driver={MySQL ODBC 3.51 Driver};"
'## Tilføj oplysning om hvor MySQL serveren befinder sig
  strConnect = strConnect & "Server=" & SQLServerAddress & ";"
'## Tilføj oplysning om hvad databasen hedder
  strConnect = strConnect & "Database=" & SQLDataBase & ";"
'## Tilføj oplysning om hvad databasen hedder
  strConnect = strConnect & "option=" & SQLOption & ";"
'## Tilføj brugernavn der har adgang i databasen, vores database login
  strConnect = strConnect & "UID=" & SQLBrugerNavn & ";"
'## Tilføj adgangskode der har adgang i databasen, vores database login
  strConnect = strConnect & "PWD=" & SQLPassWord & ";"

'## Denne Sub gør det lettere i ASP koden at åbne en forbindelse til en MySQL database.
'## Syntax : Call OpenDataBase
Sub OpenDataBase

'## Opret et ADO Connection objekt
  Set myConn = Server.CreateObject("ADODB.Connection")
'## Brug connection-string'en fra før til at oprette forbindelsen til databasen, via driveroplysninger m.v.
  myConn.Open strConnect
'## Der er nu en åben og aktiv forbindelse til databasen.
End Sub

'## Denne Sub lukker forbindelsen til databasen efter brug.
'## Bør altid kaldes efter arbejde med databasen, eller som den sidste funktion i ASP siden.
'## Syntax : Call CloseDataBase
Sub CloseDataBase

'## Bed Connection objektet om at lukke forbindelsen
  myConn.Close

'## Fjern Connection objektet fra hukommelsen på serveren.
  Set myConn = Nothing
End Sub
%>

admin_member_view.asp

<%@ Language="VBScript" %>

<% '## Using Option Explicit requires that all variables are declared ## %>
<% Option Explicit %>

<!-- #INCLUDE FILE="inc_protect.asp" -->

<!-- #INCLUDE FILE="inc_config.asp" -->

<!-- #INCLUDE FILE="inc_header.asp" -->

<!-- #INCLUDE FILE="inc_banner.asp" -->

<!-- #INCLUDE FILE="inc_toplinks.asp" -->

		<tr>
			<td class="body_txt">

	<table width="100%" border="0" cellspacing="0" cellpadding="0">
		<tr>
            <td width="100%" valign="top" class="c_cont">
				<h1>Familie Christiansens's Medlemsliste</h1><br>
            	<b>Her kan du redigere eller slette et medlem.</b><br>
			</td>
			<td valign="top" align="center" class="c_cont" nowrap><a href="admin_member_add.asp">Opret nyt medlem</a> <a href="admin_member_add.asp"><img src="images/edit.gif" border="0" alt="Opret nyt medlem" width="12" height="12"></a><br></td>
		</tr>
	</table>

<table border="0" cellpadding="0" cellspacing="0" width="100%">
<tr><td colspan="7"><hr></td></tr>
<%

'## Opret en variabel der skal indeholde RecordSets fra databasen
Dim rsGuestbook

'## Åbner en forbindelse til vores database
Call OpenDataBase

'## Opbygning af SQL streng
Set rsGuestbook = myConn.Execute("SELECT PRIVAT_MEMBERS.* FROM PRIVAT_MEMBERS ORDER BY MEMBER_ID;")

Response.Write "<tr>" & vbNewLine & _
				"<td width=""25%"" valign=""top"" class=""c_cont""><b><u>Navn</u></b>" & vbNewLine & _
				"</td>" & vbNewLine & _
				"<td width=""10%"" valign=""top"" class=""c_cont""><b><u>Postnr</u></b>" & vbNewLine & _
				"</td>" & vbNewLine & _
				"<td width=""15%"" valign=""top"" class=""c_cont""><b><u>By</u></b>" & vbNewLine & _
				"</td>" & vbNewLine & _
				"<td width=""15%"" valign=""top"" class=""c_cont""><b><u>Fødselsdag</u></b>" & vbNewLine & _
				"</td>" & vbNewLine & _
				"<td width=""20%"" valign=""top"" class=""c_cont""><b><u>Medlem af gruppen</u></b>" & vbNewLine & _
				"</td>" & vbNewLine & _
				"<td width=""10%"" valign=""top"" align=""center"" class=""c_cont""><b><u>Redigere</u></b>" & vbNewLine & _
				"</td>" & vbNewLine & _
				"<td width=""5%"" valign=""top"" align=""center"" class=""c_cont""><b><u>Slet</u></b>" & vbNewLine & _
				"</td>" & vbNewLine & _
				"</tr>"

'## Sikring mod fejl hvis ingen records blev fundet
If (Not rsGuestbook.BOF) And (Not rsGuestbook.EOF) Then
'## Flyt til første record i vores resultat
  rsGuestbook.MoveFirst
'## Så længe vi ikke har nået sidste resultat, udfør
  While Not rsGuestbook.EOF

'## Write the HTML to display the current record in the recordset

Response.Write "<tr>" & vbNewLine & _
				"<td width=""25%"" valign=""top"" class=""c_cont"">"
Response.Write (rsGuestbook("M_FIRSTNAME")) & " " & (rsGuestbook("M_LASTNAME"))
Response.Write "</td>" & vbNewLine & _

				"<td width=""10%"" valign=""top"" class=""c_cont"">"
Response.Write (rsGuestbook("M_POSTNR"))
Response.Write "</td>" & vbNewLine & _

				"<td width=""15%"" valign=""top"" class=""c_cont"">"
Response.Write (rsGuestbook("M_BYNAVN"))
Response.Write "</td>" & vbNewLine & _

				"<td width=""15%"" valign=""top"" class=""c_cont"">"
Response.Write (rsGuestbook("M_FØDSELSDAGSDATO"))
Response.Write "</td>" & vbNewLine & _

				"<td width=""20%"" valign=""top"" class=""c_cont"">"
Response.Write (rsGuestbook("M_LEVEL"))
Response.Write ("<br>")
Response.Write	"</td>" & vbNewLine & _

				"<td width=""10%"" valign=""top"" align=""center"" class=""c_cont"">"
Response.Write ("<a href=""admin_member_edit.asp?ID=" & rsGuestbook("MEMBER_ID") & """>")
Response.Write "<img src=""images/edit.gif"" border=""0"" alt=""Redigere"" width=""12"" height=""12"">"
Response.Write ("</a>") & vbNewLine & _
				"</td>" & vbNewLine & _

				"<td width=""5%"" valign=""top"" align=""center"" class=""c_cont"">"
Response.Write ("<a href=""admin_member_delete.asp?ID=" & rsGuestbook("MEMBER_ID") & """>")
Response.Write "<img src=""images/edit.gif"" border=""0"" alt=""Slet"" width=""12"" height=""12"">"
Response.Write ("</a>") & vbNewLine & _
				"</td>" & vbNewLine & _
				"</tr>"
'## Flyt til næste record i resultatlisten
    rsGuestbook.MoveNext
  Wend
Else

'## Der var ingen resultater
  Response.Write "<tr><td colspan=""7"" align=""center""><br>Der er ingen informationer i databasen.<br><br></td></tr>" & vbCrLf
End If

'## Luk for recordset
rsGuestbook.Close

'## Frigør fra hukommelsen på serveren
Set rsGuestbook = Nothing

'## Luk forbindelsen til serveren igen
Call CloseDataBase

%>
<tr><td colspan="7"><hr></td></tr>
	</table>

			</td>
		</tr>

<!-- #INCLUDE FILE="inc_footer.asp" -->

admin_member_edit.asp

<%@ Language="VBScript" %>

<% '## Using Option Explicit requires that all variables are declared ## %>
<% Option Explicit %>

<!-- #INCLUDE FILE="inc_protect.asp" -->

<!-- #INCLUDE FILE="inc_config.asp" -->

<!-- #INCLUDE FILE="inc_header.asp" -->

<!-- #INCLUDE FILE="inc_banner.asp" -->

<!-- #INCLUDE FILE="inc_toplinks.asp" -->

<%
'## Opret en variabel der skal indeholde RecordSets fra databasen
Dim rsGuestbook

'## Holds the record number to be updated
Dim lngRecordNo

'Read in the record number to be updated
lngRecordNo = CLng(Request.QueryString("ID"))

'## Åbner en forbindelse til vores database
Call OpenDataBase

'## Opbygning af SQL streng
Set rsGuestbook = myConn.Execute("SELECT PRIVAT_MEMBERS.* FROM PRIVAT_MEMBERS WHERE MEMBER_ID=" & lngRecordNo)

%>

		<tr>
			<td class="body_txt">

	<table width="100%" border="0" cellspacing="0" cellpadding="0">
		<tr>
            <td width="100%" valign="top" class="c_cont">
<h1>Du er ved at redigere <% = rsGuestbook("M_FIRSTNAME") %> <% = rsGuestbook("M_LASTNAME") %>'s informationer</h1><br>
			</td>
			<td valign="top" align="center" class="c_cont" nowrap><a href="#" onClick="history.back()">Tilbage</a><br></td>
		</tr>
	</table>

<!-- Begin form code -->
<form name="form" method="post" action="admin_member_edit_exe.asp">
<table width="100%" border="0" cellspacing="0" cellpadding="0">

<tr>
<td width="15%" valign="top" class="formtxt">Brugernavn:</td>
<td width="30%" valign="top" class="inputtxt"><input type="text" size="25" name="M_USERNAME" maxlength="20" value="<% = rsGuestbook("M_USERNAME") %>" tabindex="1"></td>
<td width="25%" valign="top" class="formtxt">Fødselsdag: (DD-MM-ÅÅÅÅ)</td>
<td width="30%" valign="top" class="inputtxt"><input type="text" size="25" name="M_FØDSELSDAGSDATO" maxlength="10" value="<% = rsGuestbook("M_FØDSELSDAGSDATO") %>" tabindex="7"></td>
</tr>

<tr>
<td width="15%" valign="top" class="formtxt">Password:</td>
<td width="30%" valign="top" class="inputtxt"><input type="password" size="25" name="M_PASSWORD" maxlength="20" value="<% = rsGuestbook("M_PASSWORD") %>" tabindex="2"></td>
<td width="25%" valign="top" class="formtxt">Adresse:</td>
<td width="30%" valign="top" class="inputtxt"><input type="text" size="25" name="M_ADRESSE" maxlength="50" value="<% = rsGuestbook("M_ADRESSE") %>" tabindex="8"></td>
</tr>

<tr>
<td width="15%" valign="top" class="formtxt">Fornavn:</td>
<td width="30%" valign="top" class="inputtxt"><input type="text" size="25" name="M_FIRSTNAME" maxlength="15" value="<% = rsGuestbook("M_FIRSTNAME") %>" tabindex="3"></td>
<td width="25%" valign="top" class="formtxt">Postnr:</td>
<td width="30%" valign="top" class="inputtxt"><input type="text" size="25" name="M_POSTNR" maxlength="4" value="<% = rsGuestbook("M_POSTNR") %>" tabindex="9"></td>
</tr>

<tr>
<td width="15%" valign="top" class="formtxt">Efternavn:</td>
<td width="30%" valign="top" class="inputtxt"><input type="text" size="25" name="M_LASTNAME" maxlength="20" value="<% = rsGuestbook("M_LASTNAME") %>" tabindex="4"></td>
<td width="25%" valign="top" class="formtxt">By:</td>
<td width="30%" valign="top" class="inputtxt"><input type="text" size="25" name="M_BYNAVN" maxlength="30" value="<% = rsGuestbook("M_BYNAVN") %>" tabindex="10"></td>
</tr>

<tr>
<td width="15%" valign="top" class="formtxt">Level:</td>
<td width="30%" valign="top" class="inputtxt"><select name="M_LEVEL" size="1" tabindex="5">
  <option><% = rsGuestbook("M_LEVEL") %></option>
  <option value="Administrator">Administrator</option>
  <option value="Familie">Familie</option>
  <option value="Venner">Venner</option>
</select></td>
<td width="25%" valign="top" class="formtxt">Privat telefon:</td>
<td width="30%" valign="top" class="inputtxt"><input type="text" size="25" name="M_PRIVATTELEFON" maxlength="11" value="<% = rsGuestbook("M_PRIVATTELEFON") %>" tabindex="11"></td>
</tr>

<tr>
<td width="15%" valign="top" class="formtxt">E-mail:</td>
<td width="30%" valign="top" class="inputtxt"><input type="text" size="25" name="M_EMAIL" maxlength="50" value="<% = rsGuestbook("M_EMAIL") %>" tabindex="6"></td>
<td width="25%" valign="top" class="formtxt">Mobil telefon:</td>
<td width="30%" valign="top" class="inputtxt"><input type="text" size="25" name="M_MOBILTELEFON" maxlength="11" value="<% = rsGuestbook("M_MOBILTELEFON") %>" tabindex="12"></td>
</tr>

<tr>
<td width="15%" valign="top" class="formtxt">Sidste nyt:</td>
<td width="85%" valign="top" class="inputtxt" colspan="4"><TEXTAREA name="M_NOTER" rows="5" cols="71" tabindex="13"><% = rsGuestbook("M_NOTER") %></TEXTAREA></td>
</tr>

<tr>
<td width="15%" valign="top" class="formtxt">Udtryk:</td>
<td width="85%" valign="top" class="inputtxt" colspan="4"><select name="M_KØN" size="1" tabindex="14">
  <option><% = rsGuestbook("M_KØN") %></option>
  <option value="hendes">hendes</option>
  <option value="hans">hans</option>
</select></td>
</tr>

<tr>
<td width="100%" valign="top" colspan="4" align="center">
<input type="hidden" name="MEMBER_ID" value="<% = rsGuestbook("MEMBER_ID") %>">
<input type="submit" name="Submit" value="Submit" class="inputbut">
<input type="Reset" value="Reset" name="Reset" class="inputbut">
</td>
</tr>

</table>

</form>
<!-- End form code -->

<%

'## Luk for recordset
rsGuestbook.Close

'## Frigør fra hukommelsen på serveren
Set rsGuestbook = Nothing

'## Luk forbindelsen til serveren igen
Call CloseDataBase

%>
			</td>
		</tr>

<!-- #INCLUDE FILE="inc_footer.asp" -->

admin_member_edit_exe.asp

<%@ Language="VBScript" %>

<% '## Using Option Explicit requires that all variables are declared ## %>
<% Option Explicit %>

<!-- #INCLUDE FILE="inc_protect.asp" -->

<!-- #INCLUDE FILE="inc_config.asp" -->
<%


'Dimension variables
Dim rsUpdateEntry		'Holds the recordset for the record to be updated
Dim strSQL			'Holds the SQL query for the database
Dim lngRecordNo			'Holds the record number to be updated

'Read in the record number to be updated
lngRecordNo = CLng(Request.Form("MEMBER_ID"))

Call OpenDataBase

'Create an ADO recordset object
Set rsUpdateEntry = Server.CreateObject("ADODB.Recordset")

'Initialise the strSQL variable with an SQL statement to query the database
strSQL = "SELECT PRIVAT_MEMBERS.* FROM PRIVAT_MEMBERS WHERE MEMBER_ID=" & lngRecordNo

'Open the tblComments table using the SQL query held in the strSQL varaiable
rsUpdateEntry.Open strSQL, myConn, 1, 3

'Update the record in the recordset
rsUpdateEntry.Fields("M_USERNAME") = Request.Form("M_USERNAME")
rsUpdateEntry.Fields("M_PASSWORD") = Request.Form("M_PASSWORD")
rsUpdateEntry.Fields("M_FIRSTNAME") = Request.Form("M_FIRSTNAME")
rsUpdateEntry.Fields("M_LASTNAME") = Request.Form("M_LASTNAME")
rsUpdateEntry.Fields("M_LEVEL") = Request.Form("M_LEVEL")
rsUpdateEntry.Fields("M_EMAIL") = Request.Form("M_EMAIL")
rsUpdateEntry.Fields("M_FØDSELSDAGSDATO") = Request.Form("M_FØDSELSDAGSDATO")
rsUpdateEntry.Fields("M_ADRESSE") = Request.Form("M_ADRESSE")
rsUpdateEntry.Fields("M_POSTNR") = Request.Form("M_POSTNR")
rsUpdateEntry.Fields("M_BYNAVN") = Request.Form("M_BYNAVN")
rsUpdateEntry.Fields("M_PRIVATTELEFON") = Request.Form("M_PRIVATTELEFON")
rsUpdateEntry.Fields("M_MOBILTELEFON") = Request.Form("M_MOBILTELEFON")
rsUpdateEntry.Fields("M_NOTER") = replace(request.form("M_NOTER"),vbcrlf,"<BR>")
rsUpdateEntry.Fields("M_KØN") = Request.Form("M_KØN")

'Write the updated recordset to the database
rsUpdateEntry.Update

'Reset server objects
rsUpdateEntry.Close
Set rsUpdateEntry = Nothing

Call CloseDataBase

'Return to the update select page incase another record needs deleting
Response.Redirect "admin_member_view.asp"
%>

[+35]Jumpman
[+35] Server Admin, [+35] Member of COW - G5

Denmark
6728 Posts

Skrevet - 01 Sep 2009 : 00:07:47

he he har lige et sidste problem hvordan gør jeg hvis der er et felt jeg ikke vil skrive noget i men gerne vil have min mysql database til at vise noget tekst aligevel i mysql tabel kan jeg feks. sætte Name:M_USERNAME, TYPE:varchar(50), Null:No, Default:Ingen informationer

Men når jeg så feks sletter username og opdatere den med et tomt felt så ville jeg gerne have den skrev det der står i default i min tabel "Ingen informationer" hvordan fixer jeg dette ????

[+35]Jumpman
[+35] Server Admin, [+35] Member of COW - G5

Denmark
6728 Posts

Skrevet - 01 Sep 2009 : 16:21:53

Nu virker det hele kun 1 ting virker ikke det er at man kan opdatere, oprette med tomme felter det ikke så godt men det kan man jo lukke med

<!--
function FormValidator(theForm)
{

  if (theForm.Fornavn.value == "")
  {
    alert("Du skal skrive dit fornavn.");
    theForm.Fornavn.focus();
    return (false);
  }

så det det mindste problem nu.

Jeg har pakket en .rar fil der ligger det hele + en mysql.sql hvis du har tid gider du kigge det igemmen for evt. fejl da jeg bare har tænk mig at lave en kopi af alle filer og ændre koden lidt så det passer til resten af min side, jeg ville sætte stor pris på din hjælp da dette mysql er meget nyt for mig. Du skal godt nok lige skrive dine egen oplysninger ind i inc_config.asp startside er admin_member_view.asp du kan downloade mine filer her

[+35]Jumpman
[+35] Server Admin, [+35] Member of COW - G5

Denmark
6728 Posts

Skrevet - 01 Sep 2009 : 16:33:05

Dette forum ville have godt af at have <td nowrap> damm de kan blive lange sådan nogen sider :-)

Emne

Nyt emne

Emnet er lï¿½st

Vis printervenlig version

Hop til:

Clan [+35] Forum

Tilpasset ældre læsere - vist på [:)] 0.27 sek.

Snitz Forums 2000