Avatar billede mkmm Nybegynder
22. september 2000 - 12:09 Der er 4 kommentarer og
1 løsning

slet post

Haves

et loop der lister poster i db.
:
<%Do While Not RS.eof %>
<a href=\"http://<%=RS(\"link\")%>\"><%=RS(\"titel\")%><br></a>
<% RS.MoveNext
Loop %>

Ønskes
1.
At påføre de enkelte udtræk et ikon eller en text hvor posten  med et klik slettes.
 
2.
At påføre de enkelte udtræk et ikon eller en text hvor posten  med et klik kan redigeres.

Posterne har ID!

ser frem til det.

/mkmm
Avatar billede phylox2 Nybegynder
22. september 2000 - 12:42 #1
<%

Do while Not RS.eof
<a href=\'dinfil.asp?id=\" & RS(\"id\") & \"&mode=delete\'><img src=\'slette-billede.jpg\' border=\'0\'></a>&nbsp;&nbsp;<a href=\"http://<%=RS(\"link\")%>\"><%=RS(\"titel\")%><br></a>
RS.MoveNext
Loop

Så skal du i din fil lave det således :

If Request.QueryString(\"mode\") AND Request.QueryString(\"id\") <> \"\" Then

strSQL = \"DELETE * FROM Tabel WHERE ID = \" & Request.QueryString(\"id\")
Conn.Execute(SQL)

End If

Når du skal redigere, så skal du :

Do while Not RS.eof
<a href=\'dinfil.asp?id=\" & RS(\"id\") & \"&mode=delete\'><img src=\'slette-billede.jpg\' border=\'0\'></a>&nbsp;&nbsp;<a href=\'dinfil.asp?id=\" & RS(\"id\") & \"&mode=edit\'><img src=\'rettefil-billede.jpg\' border=\'0\'></a>&nbsp;&nbsp;<a href=\"http://<%=RS(\"link\")%>\"><%=RS(\"titel\")%><br></a>
RS.MoveNext
Loop

I selve filen skal du så lave således, at:

If Request.QueryString(\"mode\") = \"edit\" Then

\' Har lavet du så en input formular, hvor den sætter felternes values lig med databasens felter ....

End if

Så skal du opdatere felterne ....

strSQL = \"UPDATE Tabel SET (Felt1, Felt2) VALUES (\'\" & Felt1 & \"\',\'\" & Felt2 & \"\')\"


Jeg er lidt sparsom med mine oplysninger, idet du skal prøve selv ... og at det kun er 100 point :)
Avatar billede mkmm Nybegynder
22. september 2000 - 13:50 #2
tak for svaret:

Jeg har afprøvet 1. del


Do while Not RS.eof
<a href=\'slet.asp?ID=\" & RS(\"ID\") & \"&mode=delete\'>slet</a>;<a href=\"http://<%=RS(\"link\")%>\"><%=RS(\"titel\")%><br></a>
RS.MoveNext
Loop


slet.asp:
<%
If Request.QueryString(\"mode\") AND Request.QueryString(\"ID\") <> \"\" Then

strSQL = \"DELETE FROM tabel WHERE ID = \" & Request.QueryString(\"ID\")
Conn.Execute(SQL)

End If

Response.write(\"<meta http-equiv=\'refresh\' content=\'0;URL=default.asp\'>\")
%>

Den brokker sig ikke over koden men den sletter heller ikke posten.

Dua kan sagtens få 100 points til hvis jeg ellers kan opgradere spørgsmålet.

mkmm :-)

Avatar billede phylox2 Nybegynder
22. september 2000 - 15:35 #3
Jeg har bikset det sammen, så du bare skal ændre det, så det passer til dig system ... for 200 point, er det da OK :)

http://phylox2.dyndns.org/mkmm.zip
Avatar billede mkmm Nybegynder
22. september 2000 - 16:49 #4
Tak for hjælpen

>>200

super eksempel

/mkmm  :-)
Avatar billede phylox2 Nybegynder
22. september 2000 - 16:50 #5
:)
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Kurser inden for grundlæggende programmering

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester