--- title: "Tips på admindel till gästbok !!!" type: "forum-thread" url: "https://www.webforum.nu/amne/asp/72234-tips-på-admindel-till-gästbok" topic: "ASP" topic_url: "https://www.webforum.nu/amne/asp" author: "MickeA.com" published: "2003-03-26T16:23:44.000Z" updated: "2003-03-26T20:54:50.000Z" replies: 25 views: 707 page: 1 pages: 2 language: "sv-SE" site: "webForum — webforum.nu" rights: "Upphovsrätten till varje inlägg tillhör dess författare." attribution: "Citera som: webForum, https://www.webforum.nu/amne/asp/72234-tips-på-admindel-till-gästbok" --- # Tips på admindel till gästbok !!! _Sida 1 av 2._ ## #1 — MickeA.com, 2003-03-26T16:23Z Hej Svejs Har gjort en gästbok i Flash som använder sig av Asp / Access. Nu vill jag göra en admin del så jag kan ta bort inlägg utan att behöva öppna databasen. Skippa flashdelen, det klarar jag av, problemet är resten. Hur ska jag göra för att ta bort utvalda inlägg, skulle bli överlycklig om jag kunde få kodexempel på hur det ska se ut, som det vore en HTML / ASP / ACCESS db, men exempelvis kryssrutor för vilka som man vill ta bort. Tack !!! Permalänk: https://www.webforum.nu/p/72234 ## #2 — Engine^, 2003-03-26T16:35Z Ta bort något ur databasen utan att öppna den? Tänker du konstigt nu eller är det jag som tolkar dig helt galet? :q Permalänk: https://www.webforum.nu/p/991363 ## #3 — Compusa, 2003-03-26T16:43Z Posterna måste först hämtas om du skall kunna göra ett urval. Permalänk: https://www.webforum.nu/p/991370 ## #4 — MickeA.com, 2003-03-26T16:44Z Ja, ja är inte helt lost, det fattar jag med, men det jag ville ha är vad som ska hända EFTER det attjag markerat inläggen som ska tas bort, och tryckt på en knapp... Permalänk: https://www.webforum.nu/p/991373 ## #5 — trexter, 2003-03-26T16:51Z ``` BEGIN Loop genom checkboxarna Kolla om checkboxen är 1 (true) Ta isf bort raden det gäller END Loop ``` (ska äta nu så det han inte bli mer än då här ;) ) :) Permalänk: https://www.webforum.nu/p/991379 ## #6 — Jesper T, 2003-03-26T16:53Z Sätt en checkbox efter varje inlägg och kör ngt liknande: ``` <% 'radera inlägg kId = request("kId") Set con = Server.CreateObject("ADODB.Connection") con.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & server.MapPath("/guestbook.mdb") 'Ta bort poster med en loop xBoxar = split(kId,",") For x = 0 To UBound(xBoxar) sql = "delete from Table where K_Id=" & cint(xBoxar(x)) con.Execute sql,,128 next con.Close Set con = Nothing response.redirect "guestbook.asp" %> ``` Jag har dock sätt att LarsG har visat ett annat sätt som såg smartare ut. Permalänk: https://www.webforum.nu/p/991384 ## #7 — LarsG, 2003-03-26T16:59Z ``` kId = request("kId") Set con = Server.CreateObject("ADODB.Connection") con.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & server.MapPath("/guestbook.mdb") sql = "delete from Table where K_Id in(" & kid & ")" con.Execute sql,,128 con.Close Set con = Nothing response.redirect "guestbook.asp" ``` Permalänk: https://www.webforum.nu/p/991392 ## #8 — Jesper T, 2003-03-26T17:00Z Och där kom det! ;) Permalänk: https://www.webforum.nu/p/991394 ## #9 — MickeA.com, 2003-03-26T17:05Z Ok, fattar lite mer, men inte allt... Ingen snäll gosse därute som har lust att smälla ihop en exempelfil med en aspfil och en accessfil och skicka till mig på: ?? Vore überbussigt ; )) Permalänk: https://www.webforum.nu/p/991400 ## #10 — solbulle, 2003-03-26T17:10Z Aspfilen har du ju i princip redan, databasen likaså, bara namnen som borde behöva ändras. Vad är det som är oklart? Permalänk: https://www.webforum.nu/p/991409 ## #11 — MickeA.com, 2003-03-26T17:11Z Just DET är oklart, namnen osv. fattar inte vissaa grejjer, som xboxar = split o hit o dit... Permalänk: https://www.webforum.nu/p/991414 ## #12 — Jesper T, 2003-03-26T17:13Z Nej, men det är väl inte så svårt. Loopa ut hela ditt recset med alla dina inlägg på en sida. ``` Do while Recset.eof Response.write " "&recset("namnpåöverskriftskolumnen") &"
" Loop ``` Permalänk: https://www.webforum.nu/p/991415 ## #13 — trexter, 2003-03-26T17:14Z r Permalänk: https://www.webforum.nu/p/991418 ## #14 — solbulle, 2003-03-26T17:16Z ```
<% Do while Recset.eof Response.write " "&recset("namnpåöverskriftskolumnen") &"
" Loop 'stäng db osv. %>
``` Sen lägger du LarsGs kod i radera.asp Du måste där ändra "Table where K_Id" så att Table motsvarar ditt tabelnamn samt K_Id motsvarar ditt namn, id på den kolumnen vars id du använder dig av. (Givetvis ändrar du till motsvarande i loopen på förstasidan med.) Permalänk: https://www.webforum.nu/p/991422 ## #15 — Jesper T, 2003-03-26T17:19Z > **trexter skrev:** > > While NOT Recset.eof > > borde det väl vara? > > :) Det borde det, miss av mig. ``` kId = request("[red]kId[/red]") Set con = Server.CreateObject("ADODB.Connection") con.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & server.MapPath("[red]guestbook.mdb[/red]") sql = "delete from[red] Table[/red] where [red]K_Id[/red] in(" & kid & ")" con.Execute sql,,128 con.Close Set con = Nothing response.redirect "[red]guestbook.asp[/red]" ``` kId är namnet på checkboxen guestbook.mbd är namnet på din databas Table är namnet på din tabell K_Id är namnet på din kolumn guestbook.asp är namnet på sidan du skall hamna på när du raderat dina inlägg Voila! Permalänk: https://www.webforum.nu/p/991425 ## #16 — MickeA.com, 2003-03-26T17:21Z Just jävlar... Nu fattarjag precis, det edna som fattas nu är hur det blir i flash, men det löser sig alltid, i värsta fall får jag göra en admindel i html, det blir nog så, temporärt iaf. Kolla gärna in den färdig boken på Hej svejs o tacl så himlans mkt. Permalänk: https://www.webforum.nu/p/991429 ## #17 — MickeA.com, 2003-03-26T18:30Z Jag antar förresten att "K_Id" är Id för inläggen, alltså en räknare, har redan en, som db'n sorteras efter, som heter "ID". Kör med den istället... Permalänk: https://www.webforum.nu/p/991480 ## #18 — Jesper T, 2003-03-26T18:38Z Booom, crach, bulls eye, totaly right man! R i g h t o n t a r g e t p a l ! :h Permalänk: https://www.webforum.nu/p/991484 ## #19 — MickeA.com, 2003-03-26T20:36Z **NEJ...** Det funkar inte, kolla: [Admin av inlägg](http://www.mickea.com/flashbook/admin.asp) \----------------- Ok, vi tar det från början. i admin.asp har jag bla. loopen: ``` strSQL= "SELECT * FROM data ORDER BY ID DESC;" Set oRecordset = oConnection.Execute(strSQL) Do While NOT oRecordset.EOF Response.Write("") Response.Write("") Response.Write("") Response.Write("") Response.Write("") Response.Write("") Response.Write("") Response.Write("
") Response.Write("" & oRecordset("Namn").Value & "     " & "" & oRecordset("Datum").Value & "     " & oRecordset("Ipnummer").Value & "
") Response.Write("" & oRecordset("Meddelande").Value & "
") Response.Write("Ta Bort: " & "

") oRecordset.MoveNext Loop ``` \----------------- "Radera.asp" ser ut såhär: ``` <% Response.Expires = -1000 '___________________________________________________ kId = request("kId") '___________________________________________________ Dim oConnection Dim oRecordset Dim strSQL '___________________________________________________ Set oConnection = Server.CreateObject("ADODB.Connection") oConnection.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("g_book.mdb")) '___________________________________________________ strSQL = "DELETE FROM data WHERE ID in(" & kId & ");" Set oRecordset = oConnection.Execute(strSQL) '___________________________________________________ Set oConnection = NOTHING Set oRecordset = NOTHING Set strSQL = NOTHING Response.reDirect "admin.asp" %> ``` Vad är felet?! Prova på sidan som jag länkade däruppe och se själva ! Permalänk: https://www.webforum.nu/p/991592 ## #20 — @nders, 2003-03-26T20:38Z På dina checkboxar i html-koden har du attributet **id**. Det skall vara **value**, mvh Permalänk: https://www.webforum.nu/p/991598 --- Tråden på webben: https://www.webforum.nu/amne/asp/72234-tips-på-admindel-till-gästbok Nästa sida: https://www.webforum.nu/amne/asp/72234-tips-på-admindel-till-gästbok/page2.md