--- title: "Hjälp" type: "forum-thread" url: "https://www.webforum.nu/amne/asp/12751-hjälp" topic: "ASP" topic_url: "https://www.webforum.nu/amne/asp" author: "jboy_87" published: "2001-11-18T22:38:00.000Z" updated: "2001-11-21T21:50:00.000Z" replies: 67 views: 298 page: 1 pages: 4 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/12751-hjälp" --- # Hjälp _Sida 1 av 4._ ## #1 — jboy_87, 2001-11-18T22:38Z jag har gjort så att alla medlemmar får en egen gästbok och lagt in så att användaren kan ta bort inläggen fast andra användare kan också ta bort inlägg. Hur gör jag så bara den som e inloggad kan ta bort inläggen?? **do_delete2.asp** ``` <% Set Connect = Server.CreateObject("ADODB.Connection") Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("Database/gb.mdb")&";" Set RecSet = Server.CreateObject("ADODB.Recordset") Addera = "Select * From gb Where ID=" &Request.QueryString("delID") RecSet.Open Addera, Connect, adOpenStatic, adLockOptimistic RecSet.Delete RecSet.Update RecSet.Close Set RecSet = nothing Set Connect = nothing Response.Redirect "read_gb.asp?tillid=" & session("id") Connect.close %> ``` **read_gb.asp** ``` <% Set Connect = Server.CreateObject("ADODB.Connection") Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("Database/gb.mdb")&";" Set RecSet = Server.CreateObject("ADODB.Recordset") Addera = "Select * From gb Where tillID = "&Request.QueryString("tillid") &" Order By Datum DESC" RecSet.Open Addera, Connect, adOpenStatic, adLockOptimistic %> Untitled Document

Läs / Skriv i gästboken

Visa kompisar - Dagbok - ">Gästbok - " target="rightFrame">Lägg till som kompis
<% Do Until RecSet.EOF %>
<% RecSet.MoveNext Loop RecSet.Close Connect.Close Set RecSet = nothing Set Connect = nothing %>
"><%=RecSet("namn")%> - <%=RecSet("datum")%>

<%=Replace(TRIM(Server.HTMLEncode(RecSet("text"))),vbcrlf,"
")%>
.................................................................................................................
"> Radera
Skriv i gästboken
">

( Ditt namn registreras automatiskt )

Tillbaka

``` **write_gb.asp** ``` <% If Request.Form("text") = "" Then Response.Redirect "read_gb.asp?tillid=" &Request.QueryString("tillid") end if %> <% Set Connect = Server.CreateObject("ADODB.Connection") Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("Database/gb.mdb")&";" Set RecSet = Server.CreateObject("ADODB.Recordset") Addera = "Select * From gb where id="&Session("id") RecSet.Open Addera, Connect, adOpenStatic, adLockOptimistic RecSet.AddNew RecSet("namn") = Session("namn") RecSet("datum") = Date RecSet("text") = Request.Form("text") RecSet("tillID") = Request.QueryString("tillid") RecSet.Update RecSet.Close Connect.Close Set RecSet = nothing Set Connect = nothing Response.Redirect "read_gb.asp?tillid=" &Request.QueryString("tillid") %> ``` Permalänk: https://www.webforum.nu/p/12751 ## #2 — LarsG, 2001-11-18T22:48Z Du kan lägga till en kontroll så att du bara lägger ut delete-länken om namn = session("namn") ``` <% if cstr(recset("namn")) = cstr(session("namn")) then %> "> Radera
<%end if%> ``` eller så kan du lägga till ett villkor när du gör delete ``` <% ' 'do_delete2.asp ' Set Connect = Server.CreateObject("ADODB.Connection") Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("Database/gb.mdb")&";" sql = "delete From gb Where ID=" &Request.QueryString("delID") sql = sql & " and name = '" & session("name") & "'" connect.execute sql,rows,128 if rows = 0 then response.write "Du får bara ta bort dina inlägg" end if connect.close Set Connect = nothing Response.Redirect "read_gb.asp?tillid=" & session("id") %> ``` Permalänk: https://www.webforum.nu/p/295224 ## #3 — jboy_87, 2001-11-18T23:06Z ännu en onödig inlägg har löst det med: \<% If int (Request.QueryString("tillid"))= Session("id") Then %\>  - \"\> Ta bort.\\\<%End If%\> Permalänk: https://www.webforum.nu/p/295225 ## #4 — emission, 2001-11-18T23:39Z LarsGs andra lösning är betydligt säkrare, så om du vill hindra medveten radering av andras prylar så ska du använda den. Permalänk: https://www.webforum.nu/p/295226 ## #5 — Erik Juhlin, 2001-11-18T23:50Z Både och är väl lämpligast. Dumt att skriva ut en ta bort länk om man inte får ta bort det. Men man bör också ha med det som LarsG skrev. Annars kan ju vem som helst skriva in URLen. :) Permalänk: https://www.webforum.nu/p/295227 ## #6 — emission, 2001-11-19T02:27Z Jupp! :) Permalänk: https://www.webforum.nu/p/295228 ## #7 — jboy_87, 2001-11-19T15:04Z tack så mycket LarsG vad skulle jag göra utan dig :-) Permalänk: https://www.webforum.nu/p/295229 ## #8 — jboy_87, 2001-11-19T15:14Z men ööö fan jag kan inte ta bort inläggen som andra skriver till mig :-\< Permalänk: https://www.webforum.nu/p/295230 ## #9 — LarsG, 2001-11-19T15:34Z ``` sql = "delete From gb Where ID=" &Request.QueryString("delID") sql = sql & " and (name = '" & session("name") & "' or tillid = " & session("id") & ")" ``` Nu vet jag inte exakt hur din tabell ser ut, men jag gissar att tillid innehåller id för den det är till och session("id") är id för den som är inloggad. Permalänk: https://www.webforum.nu/p/295231 ## #10 — jboy_87, 2001-11-19T15:35Z hoppas det funkar :-) Permalänk: https://www.webforum.nu/p/295232 ## #11 — jboy_87, 2001-11-19T15:37Z öö vart ska jag lägga in det ``` <% Set Connect = Server.CreateObject("ADODB.Connection") Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("Database/gb.mdb")&";" Set RecSet = Server.CreateObject("ADODB.Recordset") Addera = "Select * From gb Where tillID = "&Request.QueryString("tillid") &" Order By Datum DESC" RecSet.Open Addera, Connect, adOpenStatic, adLockOptimistic %> ``` Permalänk: https://www.webforum.nu/p/295233 ## #12 — jboy_87, 2001-11-19T16:36Z LarsG :-o Permalänk: https://www.webforum.nu/p/295234 ## #13 — LarsG, 2001-11-19T16:42Z I do_delete2.asp (som jag skrev den i ett tidigare inlägg) så byter du ut den delete som finns där. Permalänk: https://www.webforum.nu/p/295235 ## #14 — jboy_87, 2001-11-19T16:43Z men då syns ju inte radera länken eller Permalänk: https://www.webforum.nu/p/295236 ## #15 — jboy_87, 2001-11-19T16:48Z do_delete2 ``` <% Set Connect = Server.CreateObject("ADODB.Connection") Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("Database/gb.mdb")&";" Set RecSet = Server.CreateObject("ADODB.Recordset") Addera = "Select * From gb Where ID=" &Request.QueryString("delID") RecSet.Open Addera, Connect, adOpenStatic, adLockOptimistic RecSet.Delete RecSet.Update RecSet.Close Set RecSet = nothing Set Connect = nothing Response.Redirect "read_gb.asp?tillid=" & session("id") Connect.close %> ``` Permalänk: https://www.webforum.nu/p/295237 ## #16 — LarsG, 2001-11-19T16:55Z ``` <% ' 'do_delete2.asp ' Set Connect = Server.CreateObject("ADODB.Connection") Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("Database/gb.mdb")&";" sql = "delete From gb Where ID=" &Request.QueryString("delID") sql = sql & " and (name = '" & session("name") & "' or tillid = " & session("id") & ")" connect.execute sql,rows,128 if rows = 0 then response.write "Du får bara ta bort dina inlägg eller de som är skriva till dig" end if connect.close Set Connect = nothing Response.Redirect "read_gb.asp?tillid=" & session("id") %> ``` Det här påverkar inte den länk du har för delete. Permalänk: https://www.webforum.nu/p/295238 ## #17 — jboy_87, 2001-11-19T17:10Z amen ta bort länken funkar perfekt men asså när jag vill ta bort inlägg i min gäsbok så funkar det inte Permalänk: https://www.webforum.nu/p/295239 ## #18 — jboy_87, 2001-11-19T17:14Z radera länken visas då ej Permalänk: https://www.webforum.nu/p/295240 ## #19 — jboy_87, 2001-11-19T17:18Z jag vill inte att länken visas när man inte har tillåtelse och radera inlägget Permalänk: https://www.webforum.nu/p/295241 ## #20 — LarsG, 2001-11-19T17:30Z Om du lägger detta där du skriver ut länken ``` <% If clng(recset("tillid")) = clng(Session("id")) or cstr(session("namn")) = cstr(recset("name")) Then %> - "> Ta bort.<%End If%> ``` blir det bättre då? Permalänk: https://www.webforum.nu/p/295242 --- Tråden på webben: https://www.webforum.nu/amne/asp/12751-hjälp Nästa sida: https://www.webforum.nu/amne/asp/12751-hjälp/page2.md