/ Forside / Teknologi / Udvikling / ASP / Nyhedsindlæg
Login
Glemt dit kodeord?
Brugernavn

Kodeord


Reklame
Top 10 brugere
ASP
#NavnPoint
smorch 9259
Harlekin 1866
molokyle 1040
Steffanst.. 758
gandalf 657
smilly 564
gibson 560
cumano 530
MouseKeep.. 480
10  Random 410
Tilføj / Fjern record i Access
Fra : Pagrafik


Dato : 04-07-05 14:51

Jeg har følgende asp kode som tilføjer record til Access
database:

<%@language = "VBScript" %>
<%

strEmail = Request.Form("emailtxt")

MyPath=Server.MapPath("malinglist.mdb")
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "Driver={Microsoft Access Driver (*.mdb)};" & _
"DBQ=" & MyPath

SQL = "INSERT INTO exit (Email) VALUES ('"&strEmail&"')"
conn.Execute(SQL)
%>

Den virker fint.

Koden nedenfor skulle slette en record, men det fungere
tilsyneladende ikke, kan nogen gennemskue hvorfor...

<%@language = "VBScript" %>
<%

strEmail = Request.Form("emailtxt")

MyPath=Server.MapPath("malinglist.mdb")
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "Driver={Microsoft Access Driver (*.mdb)};" & _
"DBQ=" & MyPath

SQL = "DELETE FROM exit (Email) VALUES ('"&strEmail&"')"
conn.Execute(SQL)
%>

<%@language = "VBScript" %>

--
Vil du lære at kode HTML, XHTML, CSS, SSI, ASP eller ASP.NET?
- Pædagogiske tutorials på dansk
- Kom godt i gang med koderne
KLIK HER! => http://www.html.dk/tutorials

 
 
Casper Bang (04-07-2005)
Kommentar
Fra : Casper Bang


Dato : 04-07-05 15:26

> Koden nedenfor skulle slette en record, men det fungere
> tilsyneladende ikke, kan nogen gennemskue hvorfor...

Fordi syntaksten er forkert :)


> SQL = "DELETE FROM exit (Email) VALUES ('"&strEmail&"')"

Ændr det til:
SQL = "DELETE FROM exit WHERE Email = '"&strEmail&"'"


Du bør samtidig ændre linien (begge steder) hvor du har
strEmail = Request.Form("emailtxt")
til
strEmail = replace(Request.Form("emailtxt"), "'", "''")
For at få en forklaring på det, så søg efter "SQL Injections" på google.

Have fun!



Pagrafik (05-07-2005)
Kommentar
Fra : Pagrafik


Dato : 05-07-05 09:31

Jeg har ændret til:

<%@language = "VBScript" %>
<%

strEmail = replace(Request.Form("emailtxt"), "'", "''")

MyPath=Server.MapPath("malinglist.mdb")
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "Driver={Microsoft Access Driver (*.mdb)};" & _
"DBQ=" & MyPath

SQL = "DELETE FROM exit WHERE Email = '"&strEmail&"'"
conn.Execute(SQL)
%>

<%@language = "VBScript" %>


Men det fungerer stadig ikke. Kan det evt. have noget skriverettigheder på
serveren at gøre?

Der er stadig ingen problemer med at tilføje en record... Men jeg er
lost..!

--
Vil du lære at kode HTML, XHTML, CSS, SSI, ASP eller ASP.NET?
- Pædagogiske tutorials på dansk
- Kom godt i gang med koderne
KLIK HER! => http://www.html.dk/tutorials

Erik Ginnerskov (05-07-2005)
Kommentar
Fra : Erik Ginnerskov


Dato : 05-07-05 12:56

Pagrafik wrote:

> Men det fungerer stadig ikke. Kan det evt. have noget
> skriverettigheder på serveren at gøre?
>
> Der er stadig ingen problemer med at tilføje en record... Men jeg er
> lost..!

Hvis du prøver at hente min gæstebog, ligger der i pakken et
administrationsmodul, som kan slette enkelte poster i databasen. Lur hvordan
det er lavet:

http://hjemmesideskolen.dk/files/aspguestbook.zip

--
Med venlig hilsen
Erik Ginnerskov
http://hjemmesideskolen.dk - http://ginnerskov.dk
http://html-faq.dk/



Casper Bang (05-07-2005)
Kommentar
Fra : Casper Bang


Dato : 05-07-05 13:37

> Men det fungerer stadig ikke. Kan det evt. have noget skriverettigheder på
> serveren at gøre?

Du bliver nødt til at skrive hvilken fejl du får, hvis vi skal have en
chance for at hjælpe :)



Søg
Reklame
Statistik
Spørgsmål : 177548
Tips : 31968
Nyheder : 719565
Indlæg : 6408799
Brugere : 218887

Månedens bedste
Årets bedste
Sidste års bedste