---
title: "Admin sida"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/51898-admin-sida"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "jwradhe"
published: "2002-09-01T15:54:19.000Z"
updated: "2002-09-03T15:31:25.000Z"
replies: 23
views: 556
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/51898-admin-sida"
---

# Admin sida

_Sida 1 av 2._

## #1 — jwradhe, 2002-09-01T15:54Z

hur gör man en admin sida till en gb????

jag vill veta hur jag ska göra för att kunna svara på inlägg och ta bort oönskade inlägg.

nån som vet hur man gör just det..?

Permalänk: https://www.webforum.nu/p/51898

## #2 — Jymdis, 2002-09-01T16:37Z

ja?
vad är det du behöver veta?
börja göra en sida som har lösenordskydd... 
fortsätt med att göra en kopia av gästboken, fast med möjligheten att kunna radera och svara.. dvs två knappar där du hämtar ID:et på på gästboksinlägget..
du kanske får lägga till ett till fält i databasen som heter nånting liknande SvarID.. 

vet inte exakt vad du är ute efter men men

Permalänk: https://www.webforum.nu/p/770007

## #3 — alj, 2002-09-01T16:43Z

Skrev ihop ett script åt dig som tar bort inlägg..

*Delete.asp* 

```
<!-- #include file="adovbs.inc" -->
<%	Set Connect = Server.CreateObject("ADODB.Connection")
	Connect.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & server.mappath ("db.mdb")

	Set RecSet = Server.CreateObject("ADODB.Recordset")
   Radera = "SELECT * FROM tblGastbok WHERE ID = " & Request.QueryString("id_nr") & " "

   RecSet.Open Radera, Connect, adOpenStatic, adLockOptimistic 

   RecSet.Delete

	RecSet.Close
	Connect.Close
	Set RecSet = nothing
	Set Connect = nothing 
	%>
Posten är nu borttagen...
```

*Admin.asp* 

```
<!-- #include file="adovbs.inc" -->
<%

Set Connect = Server.CreateObject("ADODB.Connection") 
Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("db.mdb")&";"

Set RecSet = Server.CreateObject("ADODB.Recordset")
Visa = "SELECT * FROM tblgastbok ORDER BY Id DESC"
RecSet.Open Visa, Connect, adOpenStatic, adLockOptimistic 
%>

<% Do Until RecSet.EOF%>
  <b>
    <a href="Delete.asp?id_nr=<%=RecSet("Id") %>">
     <%=Recset("Rubrik") %>
           </a>
   
 <%	RecSet.MoveNext
	Loop%>
	RecSet.Close
	Connect.Close
	Set RecSet = nothing
	Set Connect = nothing
```

Orkar inte förklara så mycket..
Men du får ändra databasens namn, tabellernas namn samt kolumnernas namn till dina namn på allt  :D 

Har inte orkat testat det ännu emn jag tror det ska fungera..

Permalänk: https://www.webforum.nu/p/770010

## #4 — CatZ, 2002-09-01T16:44Z

```
<%
Select Case = Request("cmd")

Case ""

If Session.Contents("Admin") = Empty Then
Response.Redirect("gb.asp")

SQL=" select titel, innehall, id from gb order by id DESC
set rs = Conn.Execute(SQL)

Dim id, titel, innehall
id = rs("id")
titel = rs("titel")

Response.write "Här är listan på alla inlägg"
While NOT rs.EOF
response.write titel &" ||| "_
"<a href=""admin.asp?cmd=tabort&id=" & id & ">kasta</a> | "_
"<a href=""admin.asp?cmd=svara&id=" & id & ">svara</a>"
rs.movenext
wend
```

Det kanske hjälper dig att komma igång ?

Permalänk: https://www.webforum.nu/p/770012

## #5 — CatZ, 2002-09-01T16:45Z

alj man ska inte öppna ett recordset när man updaterar eller tar bort ur databasen ;)

Permalänk: https://www.webforum.nu/p/770014

## #6 — alj, 2002-09-01T16:49Z

Huh?!
Har jag alltid gjort , visserligen är jag ganska ny på asp, men berätta vad är det för del med det?!

Edit:
Eller menar du att man bara kan göra en Execute sats?
Jo, det vet jag emn jag envisas med att göra recordset's  :P

Permalänk: https://www.webforum.nu/p/770017

## #7 — Pace, 2002-09-01T16:59Z

Lite skillnad blir det (om man bortser från prestandavinsten): ;) 

```
[b]Recordset-variant[/b]
<!-- #include file="adovbs.inc" -->
<%	Set Connect = Server.CreateObject("ADODB.Connection")
	Connect.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & server.mappath ("db.mdb")

	Set RecSet = Server.CreateObject("ADODB.Recordset")
   Radera = "SELECT * FROM tblGastbok WHERE ID = " & Request.QueryString("id_nr") & " "

   RecSet.Open Radera, Connect, adOpenStatic, adLockOptimistic 

   RecSet.Delete

	RecSet.Close
	Connect.Close
	Set RecSet = nothing
	Set Connect = nothing 
	%>
Posten är nu borttagen...
```

```
[b]Utan recordset[/b]
<%
Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & server.mappath ("db.mdb")
Connect.Execute("DELETE FROM tblGastbok WHERE ID = " & Request.QueryString("id_nr")),,128
Connect.Close
Set Connect = nothing 
%>
Posten är nu borttagen...
```

Permalänk: https://www.webforum.nu/p/770029

## #8 — alj, 2002-09-01T17:01Z

Jaha då har jag lärt mig något nytt idag då.
Tack alla :)

Permalänk: https://www.webforum.nu/p/770030

## #9 — Jymdis, 2002-09-02T06:33Z

Men frågan är hur mycket han som skrev inlägget har lärt sig, igenom att skriva hela lösningen kommer han bara komma och fråga nästa gång också... Tycker man iaf får försöka själv, och sen kan man komma hit och fråga om kodspecifika fel eller lösningar, men inte få dom upp och ner.

/Ni kanske inte skrev hela lösningen men ändå =)

Permalänk: https://www.webforum.nu/p/770274

## #10 — voigtann1, 2002-09-02T07:47Z

> **Pace skrev:**
>
> ```
> [b]Utan recordset[/b]
> <%
> Set Connect = Server.CreateObject("ADODB.Connection")
> Connect.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & server.mappath ("db.mdb")
> Connect.Execute("DELETE FROM tblGastbok WHERE ID = " & Request.QueryString("id_nr")),,128
> Connect.Close
> Set Connect = nothing 
> %>
> Posten är nu borttagen...
> ```

Häftigt.. ska testa detta också.. yey lärt mej något nytt idag :)

Permalänk: https://www.webforum.nu/p/770330

## #11 — OveRRidE, 2002-09-02T07:50Z

Pace:s andra kod-exempel är väl att föredra i alla lägen när det gäller borttagning av data? Både prestanda- och kodmässigt.

Permalänk: https://www.webforum.nu/p/770332

## #12 — voigtann1, 2002-09-02T07:59Z

det fungera väll med update också?

Permalänk: https://www.webforum.nu/p/770338

## #13 — OveRRidE, 2002-09-02T10:49Z

Ja, det fungerar med update också. :)

Permalänk: https://www.webforum.nu/p/770430

## #14 — voigtann1, 2002-09-02T11:28Z

Blir sidan fortare?

Permalänk: https://www.webforum.nu/p/770444

## #15 — OveRRidE, 2002-09-02T12:39Z

```
Connect.Execute("DELETE FROM tblGastbok WHERE ID = " & Request.QueryString("id_nr")),,128
```

Om man gör på ovanstående sätt (utdrag ur Pace:s kod), så har iallafall jag den bestämda uppfattningen och erfarenheten av att sidan exekveras snabbare, ja. 

Detta med tanke på att execute är mer effektiv än update-metoden samt att ,,128 används, som gör att inget tomt recordset skapas, som det annars gör.

Permalänk: https://www.webforum.nu/p/770474

## #16 — voigtann1, 2002-09-02T13:10Z

vad betyder ),,128 då?

Permalänk: https://www.webforum.nu/p/770490

## #17 — solbulle, 2002-09-02T13:17Z

<http://www.webforum.nu/showthread.php?s=&threadid=48387&highlight=128>

Permalänk: https://www.webforum.nu/p/770495

## #18 — trexter.com, 2002-09-02T13:18Z

> **voigtann1 skrev:**
>
> vad betyder ),,128 då?

"Att inget tomt recordset skapas, som det annars gör."
Det ger en prestandavinst eftersom RecordSet:et ändå inte används.

 :)

Permalänk: https://www.webforum.nu/p/770497

## #19 — voigtann1, 2002-09-02T13:24Z

okey.. :) du OveRRidE sidan går inte fortare :( tror jag inte.. har timer.. tror jag får samma tid..

Permalänk: https://www.webforum.nu/p/770507

## #20 — @nders, 2002-09-02T13:26Z

Skillnaden är försumbar vid låg belastning. Att man ser till att den kod man använder är hyfsat optimerad på de flesta ställen kan vara skillnaden mellan liv och död på en välanvänd applikation.

Skriv bra kod, och du skall belönas. ;)

Permalänk: https://www.webforum.nu/p/770508

---

Tråden på webben: https://www.webforum.nu/amne/asp/51898-admin-sida  
Nästa sida: https://www.webforum.nu/amne/asp/51898-admin-sida/page2.md