Slet funktion til min tagwall

Det er vel kun admin som skal havde mulighed for at slette?

Så du kan tilføje et link som kun udskrives hvis man er admin, så dette:

response.write "<table border=0 width=280 cellspacing=0 cellpadding=4 style='border: solid 1px #000000; margin-bottom: 6px;'>" & vbCrLf
response.write "<tr height=20 style='border-bottom: 1 solid #000000; width: 100%;'>" & vbCrLf
response.write "  <td background='grey.gif' width=431 style='border-bottom:1px solid #000000'>" & strEmail & " - " & strDato & "</td>" & vbCrLf
response.write "</tr>" & vbCrLf
response.write "<tr>" & vbCrLf
response.write "  <td width=100% height=19 colspan=2>" & vbCrLf
response.write "  <table width=100% border=0 cellspacing=0 cellpadding=3 align=center>" & vbCrLf
response.write "    <tr>" & vbCrLf
response.write "    <td>" & strKommentar & "</td>" & vbCrLf
response.write "    </tr>" & vbCrLf
response.write "  </table>" & vbCrLf
response.write "  </td>" & vbCrLf
response.write "</tr>" & vbCrLf
response.write "</table>" & vbCrLf & vbCrLf



Bliver til dette, hvor man angiver rs("id") som den der skal slettes, den linker til samme fil:

response.write "<table border=0 width=280 cellspacing=0 cellpadding=4 style='border: solid 1px #000000; margin-bottom: 6px;'>" & vbCrLf
response.write "<tr height=20 style='border-bottom: 1 solid #000000; width: 100%;'>" & vbCrLf
response.write "  <td background='grey.gif' width=431 style='border-bottom:1px solid #000000'>" & strEmail & " - " & strDato & "</td>" & vbCrLf
response.write "</tr>" & vbCrLf
response.write "<tr>" & vbCrLf
response.write "  <td width=100% height=19 colspan=2>" & vbCrLf
response.write "  <table width=100% border=0 cellspacing=0 cellpadding=3 align=center>" & vbCrLf
response.write "    <tr>" & vbCrLf
response.write "    <td>" & strKommentar & "</td>" & vbCrLf
if session("admin") = "ja" then
  response.write "    <td><a href=""?mode=slet&id=" & rs("id") & """>slet</a></td>" & vbCrLf
end if
response.write "    </tr>" & vbCrLf
response.write "  </table>" & vbCrLf
response.write "  </td>" & vbCrLf
response.write "</tr>" & vbCrLf
response.write "</table>" & vbCrLf & vbCrLf




I toppden ad filen kan du tilføje en if sætning som tjhekker om der er en som skal slettes og der kan naturligvis også kun slettes hvis det er admin som er logget ind.

<%
'Tjek om der skal slettes en post.
if Session("admin") = "ja" and LCase(Request.QueryString("mode"))="slet" then
  id = replace(Request.Querystring("id"),"'","")
  SQL = "delete from tagwall where id = " & id
  conn.execute(SQL)
end if
%>

hmm forstår ikke helt :D kan du ikke sætte det ind i min ´kode ?..

Jo sådan her, men stadigvæk skal du rette de to if sætninger som sikre det kun er admin kan slette:


<%
option explicit
'


%>
<!-- #include file="admin.asp" -->

<center>
<br>
<a href="skriv.asp">skriv indlæg</a>
&nbsp;&nbsp;&nbsp;
<a href="arkiv.asp">arkiv</a>
<br><br>


<!-- #include file="db.asp" -->
<%
'Tjek om der skal slettes en post.
if Session("admin") = "ja" and LCase(Request.QueryString("mode"))="slet" then
  id = replace(Request.Querystring("id"),"'","")
  SQL = "delete from tagwall where id = " & id
  conn.execute(SQL)
end if

strSQL = "Select * from tagwall order by ID desc"
set rs = conn.execute(strsql)

if (not rs.bof) and (not rs.eof) then

dim strNavn, strEmail, strHjemmeside, strKommentar, strDato

do while not rs.eof

' variablerne der indeholder data'ene:
strNavn = rs("navn")                                        ' indeholder navnet
strEmail = rs("email")                                        ' indeholder emailen
strHjemmeside = rs("hjemmeside")                            ' indeholder hjemmesiden
strKommentar = replace(rs("kommentar"), "*NL*", "<br>")        ' indeholder kommentaren
strDato = rs("dato")                                        ' indeholder datoen: "strDato" formateres (sættes op) som man ønsker

if rs("ip") = AdminIP1 then
  strNavn = "<font color='#ff0000'>" & strNavn & "</font>"
elseif rs("ip") = AdminIP2 Then
  strNavn = "<font color='#ff0000'>" & strNavn & "</font>"
end if



if strHjemmeside <> "ingen" then
  if InStr(strHjemmeside, "http://") < 1 then strHjemmeside = "http://" & strHjemmeside
  strHjemmeside = "<a href='" & strHjemmeside & "' target='_blank'>" & strHjemmeside & "</a>"
else
  strHjemmeside = "<i>" & strHjemmeside & "</i>"
end if


if strEmail <> "ingen" then
  strEmail = "<a href='mailto:" & strEmail & "'><b>" & strNavn & "</b></a>"
else
  strEmail = strNavn
end if


response.write "<table border=0 width=280 cellspacing=0 cellpadding=4 style='border: solid 1px #000000; margin-bottom: 6px;'>" & vbCrLf
response.write "<tr height=20 style='border-bottom: 1 solid #000000; width: 100%;'>" & vbCrLf
response.write "  <td background='grey.gif' width=431 style='border-bottom:1px solid #000000'>" & strEmail & " - " & strDato & "</td>" & vbCrLf
response.write "</tr>" & vbCrLf
response.write "<tr>" & vbCrLf
response.write "  <td width=100% height=19 colspan=2>" & vbCrLf
response.write "  <table width=100% border=0 cellspacing=0 cellpadding=3 align=center>" & vbCrLf
response.write "    <tr>" & vbCrLf
response.write "    <td>" & strKommentar & "</td>" & vbCrLf
'Udskriv slet linket ret koden i if sætningen
if session("admin") = "ja" then
  response.write "    <td><a href=""?mode=slet&id=" & rs("id") & """>slet</a></td>" & vbCrLf
end if
response.write "    </tr>" & vbCrLf
response.write "  </table>" & vbCrLf
response.write "  </td>" & vbCrLf
response.write "</tr>" & vbCrLf
response.write "</table>" & vbCrLf & vbCrLf

rs.movenext
loop

else
response.write "Der er ikke nogen indlæg i databasen."

end if

set rs = nothing
conn.close
set conn = nothing
%>
<style>
.texten2 {
        width: 100%;
        filter:progid:DXImageTransform.Microsoft.DropShadow(color=black,offx=1,offy=1), glow(color=#000000, strength=0);
        color: #FEFEFE;
        font-family: Verdana; font-size: 11px;
        color: #ff9900;
}
</style>
<style>
{TEXT-DECORATION:none}
</style>

hvad for en if sætning :P fatter nada

Du kan også skrive her hvordan du har gemt informationen om det er admin som er logget ind. Jeg antager stadig det kun er admin som må slette??

Jeg har også antaget at du gemmer en session variable som hedder "admin" og har værdien "ja":  Session("admin") = "ja"

men den første if sæning er denne:

'Tjek om der skal slettes en post.
if Session("admin") = "ja" and LCase(Request.QueryString("mode"))="slet" then


og den anden er her:

'Udskriv slet linket ret koden i if sætningen
if session("admin") = "ja" then

:P kan du ikke bare gøre så min ip kun kan slette ? :D har allerede en admin.asp der ser sådan ud:

<%
dim AdminIP1
dim AdminIP2
AdminIP1 = "BIIP.BIIP" ' din ip ""
AdminIP2 = "BIIP.BIIP" ' din ip ""
%>

Jo, så prøv at lave koden sådan her:

<%
option explicit
'


%>
<!-- #include file="admin.asp" -->

<center>
<br>
<a href="skriv.asp">skriv indlæg</a>
&nbsp;&nbsp;&nbsp;
<a href="arkiv.asp">arkiv</a>
<br><br>


<!-- #include file="db.asp" -->
<%
'Tjek om der skal slettes en post.
if (Request.Servervariables("REMOTE_ADDR") = adminIP1 or Request.Servervariables("REMOTE_ADDR") = adminIP2) and LCase(Request.QueryString("mode"))="slet" then
  id = replace(Request.Querystring("id"),"'","")
  SQL = "delete from tagwall where id = " & id
  conn.execute(SQL)
end if

strSQL = "Select * from tagwall order by ID desc"
set rs = conn.execute(strsql)

if (not rs.bof) and (not rs.eof) then

dim strNavn, strEmail, strHjemmeside, strKommentar, strDato

do while not rs.eof

' variablerne der indeholder data'ene:
strNavn = rs("navn")                                        ' indeholder navnet
strEmail = rs("email")                                        ' indeholder emailen
strHjemmeside = rs("hjemmeside")                            ' indeholder hjemmesiden
strKommentar = replace(rs("kommentar"), "*NL*", "<br>")        ' indeholder kommentaren
strDato = rs("dato")                                        ' indeholder datoen: "strDato" formateres (sættes op) som man ønsker

if rs("ip") = AdminIP1 then
  strNavn = "<font color='#ff0000'>" & strNavn & "</font>"
elseif rs("ip") = AdminIP2 Then
  strNavn = "<font color='#ff0000'>" & strNavn & "</font>"
end if



if strHjemmeside <> "ingen" then
  if InStr(strHjemmeside, "http://") < 1 then strHjemmeside = "http://" & strHjemmeside
  strHjemmeside = "<a href='" & strHjemmeside & "' target='_blank'>" & strHjemmeside & "</a>"
else
  strHjemmeside = "<i>" & strHjemmeside & "</i>"
end if


if strEmail <> "ingen" then
  strEmail = "<a href='mailto:" & strEmail & "'><b>" & strNavn & "</b></a>"
else
  strEmail = strNavn
end if


response.write "<table border=0 width=280 cellspacing=0 cellpadding=4 style='border: solid 1px #000000; margin-bottom: 6px;'>" & vbCrLf
response.write "<tr height=20 style='border-bottom: 1 solid #000000; width: 100%;'>" & vbCrLf
response.write "  <td background='grey.gif' width=431 style='border-bottom:1px solid #000000'>" & strEmail & " - " & strDato & "</td>" & vbCrLf
response.write "</tr>" & vbCrLf
response.write "<tr>" & vbCrLf
response.write "  <td width=100% height=19 colspan=2>" & vbCrLf
response.write "  <table width=100% border=0 cellspacing=0 cellpadding=3 align=center>" & vbCrLf
response.write "    <tr>" & vbCrLf
response.write "    <td>" & strKommentar & "</td>" & vbCrLf
'Udskriv slet linket ret koden i if sætningen
if (Request.Servervariables("REMOTE_ADDR") = adminIP1 or Request.Servervariables("REMOTE_ADDR") = adminIP2) then
  response.write "    <td><a href=""?mode=slet&id=" & rs("id") & """>slet</a></td>" & vbCrLf
end if
response.write "    </tr>" & vbCrLf
response.write "  </table>" & vbCrLf
response.write "  </td>" & vbCrLf
response.write "</tr>" & vbCrLf
response.write "</table>" & vbCrLf & vbCrLf

rs.movenext
loop

else
response.write "Der er ikke nogen indlæg i databasen."

end if

set rs = nothing
conn.close
set conn = nothing
%>
<style>
.texten2 {
        width: 100%;
        filter:progid:DXImageTransform.Microsoft.DropShadow(color=black,offx=1,offy=1), glow(color=#000000, strength=0);
        color: #FEFEFE;
        font-family: Verdana; font-size: 11px;
        color: #ff9900;
}
</style>
<style>
{TEXT-DECORATION:none}
</style>

kan sagtens se der kommer en "slet" men når jeg trykker sker der ikke rigtig noget
kommer ind på denne her side : http://www.frip.dk/autohh/tagwall/tagwall/arkiv1.asp?mode=slet&id=1

og den siger:
Siden kan ikke vises
Der er problemer med den side, du prøver at åbne, og den kan ikke vises.

hedder filen tag wallen er i arkiv1.asp?

Her hvor linket udskrives:

if (Request.Servervariables("REMOTE_ADDR") = adminIP1 or Request.Servervariables("REMOTE_ADDR") = adminIP2) then
  response.write "    <td><a href=""?mode=slet&id=" & rs("id") & """>slet</a></td>" & vbCrLf
end if

skal du havde filnavnet ind på tagwallen før ? hvis det andet ikke virker:

if (Request.Servervariables("REMOTE_ADDR") = adminIP1 or Request.Servervariables("REMOTE_ADDR") = adminIP2) then
  response.write "    <td><a href=""tagwall.asp?mode=slet&id=" & rs("id") & """>slet</a></td>" & vbCrLf
end if

arkiv1.asp = den der viser det skriv.asp=der hvor man skriver admin.asp = der hvor man skriver sin ip tagwall.mdb = databasen db.asp = opretter forbindelse til databasen

den laver fejl :( min kode ser sådan her ud:

<%
option explicit
'


%>
<!-- #include file="admin.asp" -->

<center>
<br>
<a href="skriv.asp">skriv indlæg</a>
&nbsp;&nbsp;&nbsp;
<a href="arkiv.asp">arkiv</a>
<br><br>


<!-- #include file="db.asp" -->
<%

if (Request.Servervariables("REMOTE_ADDR") = adminIP1 or Request.Servervariables("REMOTE_ADDR") = adminIP2) then
  response.write "    <td><a href=""arkiv1.asp?mode=slet&id=" & rs("id") & """>slet</a></td>" & vbCrLf
end if

strSQL = "Select * from tagwall order by ID desc"
set rs = conn.execute(strsql)

if (not rs.bof) and (not rs.eof) then

dim strNavn, strEmail, strHjemmeside, strKommentar, strDato

do while not rs.eof

' variablerne der indeholder data'ene:
strNavn = rs("navn")                                        ' indeholder navnet
strEmail = rs("email")                                        ' indeholder emailen
strHjemmeside = rs("hjemmeside")                            ' indeholder hjemmesiden
strKommentar = replace(rs("kommentar"), "*NL*", "<br>")        ' indeholder kommentaren
strDato = rs("dato")                                        ' indeholder datoen: "strDato" formateres (sættes op) som man ønsker

if rs("ip") = AdminIP1 then
  strNavn = "<font color='#ff0000'>" & strNavn & "</font>"
elseif rs("ip") = AdminIP2 Then
  strNavn = "<font color='#ff0000'>" & strNavn & "</font>"
end if



if strHjemmeside <> "ingen" then
  if InStr(strHjemmeside, "http://") < 1 then strHjemmeside = "http://" & strHjemmeside
  strHjemmeside = "<a href='" & strHjemmeside & "' target='_blank'>" & strHjemmeside & "</a>"
else
  strHjemmeside = "<i>" & strHjemmeside & "</i>"
end if


if strEmail <> "ingen" then
  strEmail = "<a href='mailto:" & strEmail & "'><b>" & strNavn & "</b></a>"
else
  strEmail = strNavn
end if


response.write "<table border=0 width=280 cellspacing=0 cellpadding=4 style='border: solid 1px #000000; margin-bottom: 6px;'>" & vbCrLf
response.write "<tr height=20 style='border-bottom: 1 solid #000000; width: 100%;'>" & vbCrLf
response.write "  <td background='grey.gif' width=431 style='border-bottom:1px solid #000000'>" & strEmail & " - " & strDato & "</td>" & vbCrLf
response.write "</tr>" & vbCrLf
response.write "<tr>" & vbCrLf
response.write "  <td width=100% height=19 colspan=2>" & vbCrLf
response.write "  <table width=100% border=0 cellspacing=0 cellpadding=3 align=center>" & vbCrLf
response.write "    <tr>" & vbCrLf
response.write "    <td>" & strKommentar & "</td>" & vbCrLf
'Udskriv slet linket ret koden i if sætningen
if (Request.Servervariables("REMOTE_ADDR") = adminIP1 or Request.Servervariables("REMOTE_ADDR") = adminIP2) then
  response.write "    <td><a href=""?mode=slet&id=" & rs("id") & """>slet</a></td>" & vbCrLf
end if
response.write "    </tr>" & vbCrLf
response.write "  </table>" & vbCrLf
response.write "  </td>" & vbCrLf
response.write "</tr>" & vbCrLf
response.write "</table>" & vbCrLf & vbCrLf

rs.movenext
loop

else
response.write "Der er ikke nogen indlæg i databasen."

end if

set rs = nothing
conn.close
set conn = nothing
%>
<style>
.texten2 {
        width: 100%;
        filter:progid:DXImageTransform.Microsoft.DropShadow(color=black,offx=1,offy=1), glow(color=#000000, strength=0);
        color: #FEFEFE;
        font-family: Verdana; font-size: 11px;
        color: #ff9900;
}
</style>
<style>
{TEXT-DECORATION:none}
</style>

prøv sådan her:


<%
option explicit
'


%>
<!-- #include file="admin.asp" -->

<center>
<br>
<a href="skriv.asp">skriv indlæg</a>
&nbsp;&nbsp;&nbsp;
<a href="arkiv.asp">arkiv</a>
<br><br>


<!-- #include file="db.asp" -->
<%
dim id, SQL
'Tjek om der skal slettes en post.
if (Request.Servervariables("REMOTE_ADDR") = adminIP1 or Request.Servervariables("REMOTE_ADDR") = adminIP2) and LCase(Request.QueryString("mode"))="slet" then
  id = replace(Request.Querystring("id"),"'","")
  SQL = "delete from tagwall where id = " & id
  conn.execute(SQL)
end if

strSQL = "Select * from tagwall order by ID desc"
set rs = conn.execute(strsql)

if (not rs.bof) and (not rs.eof) then

dim strNavn, strEmail, strHjemmeside, strKommentar, strDato

do while not rs.eof

' variablerne der indeholder data'ene:
strNavn = rs("navn")                                        ' indeholder navnet
strEmail = rs("email")                                        ' indeholder emailen
strHjemmeside = rs("hjemmeside")                            ' indeholder hjemmesiden
strKommentar = replace(rs("kommentar"), "*NL*", "<br>")        ' indeholder kommentaren
strDato = rs("dato")                                        ' indeholder datoen: "strDato" formateres (sættes op) som man ønsker

if rs("ip") = AdminIP1 then
  strNavn = "<font color='#ff0000'>" & strNavn & "</font>"
elseif rs("ip") = AdminIP2 Then
  strNavn = "<font color='#ff0000'>" & strNavn & "</font>"
end if



if strHjemmeside <> "ingen" then
  if InStr(strHjemmeside, "http://") < 1 then strHjemmeside = "http://" & strHjemmeside
  strHjemmeside = "<a href='" & strHjemmeside & "' target='_blank'>" & strHjemmeside & "</a>"
else
  strHjemmeside = "<i>" & strHjemmeside & "</i>"
end if


if strEmail <> "ingen" then
  strEmail = "<a href='mailto:" & strEmail & "'><b>" & strNavn & "</b></a>"
else
  strEmail = strNavn
end if


response.write "<table border=0 width=280 cellspacing=0 cellpadding=4 style='border: solid 1px #000000; margin-bottom: 6px;'>" & vbCrLf
response.write "<tr height=20 style='border-bottom: 1 solid #000000; width: 100%;'>" & vbCrLf
response.write "  <td background='grey.gif' width=431 style='border-bottom:1px solid #000000'>" & strEmail & " - " & strDato & "</td>" & vbCrLf
response.write "</tr>" & vbCrLf
response.write "<tr>" & vbCrLf
response.write "  <td width=100% height=19 colspan=2>" & vbCrLf
response.write "  <table width=100% border=0 cellspacing=0 cellpadding=3 align=center>" & vbCrLf
response.write "    <tr>" & vbCrLf
response.write "    <td>" & strKommentar & "</td>" & vbCrLf
'Udskriv slet linket ret koden i if sætningen
if (Request.Servervariables("REMOTE_ADDR") = adminIP1 or Request.Servervariables("REMOTE_ADDR") = adminIP2) then
  response.write "    <td><a href=""?mode=slet&id=" & rs("id") & """>slet</a></td>" & vbCrLf
end if
response.write "    </tr>" & vbCrLf
response.write "  </table>" & vbCrLf
response.write "  </td>" & vbCrLf
response.write "</tr>" & vbCrLf
response.write "</table>" & vbCrLf & vbCrLf

rs.movenext
loop

else
response.write "Der er ikke nogen indlæg i databasen."

end if

set rs = nothing
conn.close
set conn = nothing
%>
<style>
.texten2 {
        width: 100%;
        filter:progid:DXImageTransform.Microsoft.DropShadow(color=black,offx=1,offy=1), glow(color=#000000, strength=0);
        color: #FEFEFE;
        font-family: Verdana; font-size: 11px;
        color: #ff9900;
}
</style>
<style>
{TEXT-DECORATION:none}
</style>

ja og det virker self :P takker accepter lige dit svar :P r 2taal glad for det

hvis du vil tjene 200 mere så skal du bare lave en ret funktion :P skriv lige hvis du vil så opretter jeg et nyt