Søg
Avatar billede Wezio Juniormester
11. november 2004 - 21:57 Der er 14 kommentarer og
1 løsning

Gæstebog med mulighed for godkendelse af indlæg

Jeg har en gæstebog på min hjemmeside, men er efterhånden ved at være ret træt af at folk spammer, flooder og skriver alt muligt andet mere eller mindre useriøst i den. Det er en ganske simpel en i ASP, hvor den gemmer det ned i en access database.


Det jeg godt kunne tænke mig, er en gæstebog, hvor folk skriver beskeder som hidtil, men istedet for at deres beskeder bliver gemt ned i den database, hvorfra beskederne bliver vist i gæstebogen, skal den gemme dem i en anden database/tabel og derefter skal jeg så via en login-side kunne læse beskederne og trykke "godkend" for at flytte dem over i den database/tabel hvorfra de bliver vist på sitet..


Er det muligt, i så fald, hvordan? Jeg søger meget grundig hjælp, idet jeg er lidt dum til det her med ASP.
Avatar billede henninghabor Nybegynder
11. november 2004 - 22:00 #1
Du kan også vælge at oprette en kolonne i din database der er en nummer kolonne.

Når en bruger gemmer sit indlæg i databasen puttes et 0 i nummer kolonnen.

Når du så har læst og accepteret indlægget kan du skifte 0'et til 1 eller anden værdi.

På siden hvor du viser indlæggene kan du så vælge kun at vise de indlæg hvor værdien er den du vælger.
Avatar billede kalp Novice
11. november 2004 - 22:01 #2
det er let nok...

gør følgende..

opret en ny tabel i din database..

kald den for "godkend" datatype feltet skal sættes til tal.. og default value "0"

din mysql sætning skal se sådan ud frem over

strSQL = "SELECT * FROM DINTTABEL WHERE godkendt=1"

så skal der selvfølgelig laves noget mere så når du siger godkend så bliver tingene sat til 1 ellers bliver de ikke vist...
Avatar billede Wezio Juniormester
11. november 2004 - 22:40 #3
Okay.. der er vel ikke en af jer der kan hjælpe mig lidt mere detaljeret, om hvordan jeg gør? Jeg kan godt tilrette ASP lidt og sådan, men det med at programmere noget op, er jeg ikke så sikker i! Men jeg tænkte nok at det ikke var så svært at lave. Er der evt. nogle af jer der vil kigge på det sammen med mig i morgen? Jeg kan evt. sende gæstebogen (fylder 3 filer) hvis det er?
Avatar billede Wezio Juniormester
11. november 2004 - 22:42 #4
.. jeg tænker mere på hvordan jeg får lavet en side, hvor jeg kan trykke "godkend" og få den til at ændre værdien i databasen fra "0" til "1"  :-)
Avatar billede henninghabor Nybegynder
11. november 2004 - 22:44 #5
Da jeg normalt ikke programmere i asp, må jeg lade andre hjælpe dig...

Held og lykke.
Avatar billede kalp Novice
11. november 2004 - 22:54 #6
adasdasdasd@hotmail.com

send alt jeg skal bruge så ser jeg om jeg kan sætte det sammen til dig.. husk databasen.. slet evt indholdet så den fylder mindre.. skal bare bruge tabellerne..
Avatar billede Wezio Juniormester
12. november 2004 - 22:01 #7
kalp>>> Den er sendt afsted til dig nu, på din mail! :-)
Avatar billede kalp Novice
13. november 2004 - 02:57 #8
Så vil jeg sove!!! fik endelig ordnet det til dig: ) så her får du et svar!
Avatar billede Wezio Juniormester
14. november 2004 - 21:50 #9
Jeg siger mange tusinde tak!! Det var lige sådan jeg havde tænkt mig det :-) Det er helt kanon!!
Avatar billede Slettet bruger
14. november 2004 - 21:54 #10
Ehm, er der ikke en regel om at svar skal være tilgængelige for andre brugere, for at der må uddeles point?

kalp...> Du kan evt. lægge koden her på siden, så andre brugere kan få glæde af det.
Avatar billede kalp Novice
14. november 2004 - 23:38 #11
kfisker:

jeg kan smide den del af koden op jeg har lavet... men kan naturligvis ikke smide det hele op eftersom jeg integrede det i servermanns asp script som han måske ønsker at holde privat.
Avatar billede kalp Novice
14. november 2004 - 23:39 #12
til slet

<%option explicit%>

   
<%
    dim connection,id,SQLstringK

    Set Connection = Server.CreateObject("ADODB.Connection")
    Connection.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ="&Server.MapPath("guestbook.mdb")
   

   

id    =        Trim(Request.QueryString("id"))
           
    SQLstringK="DELETE FROM guestbook WHERE guest_id="&id
    Connection.Execute(SQLstringK)




   
    connection.close
    set connection= nothing

    response.buffer=true
    response.clear
    response.redirect "overview.asp"
    response.end
%>
Avatar billede kalp Novice
14. november 2004 - 23:41 #13
til slet


<%option explicit%>

   
<%
    dim connection,id,SQLstringK

    Set Connection = Server.CreateObject("ADODB.Connection")
    Connection.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ="&Server.MapPath("guestbook.mdb")
   
    id    =        Trim(Request.QueryString("id"))
           
    SQLstringK="UPDATE guestbook SET godkendt=(1) WHERE guest_id=" & id
    Connection.Execute(SQLstringK)
    response.buffer=true
    response.clear
    response.redirect "viewguest.asp"
    response.end
    %>
Avatar billede kalp Novice
14. november 2004 - 23:41 #14
oversigt


<%option explicit%>



<%
    dim Connection,SQLstringK,KRS

    Set Connection = Server.CreateObject("ADODB.Connection")
    Connection.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ="&Server.MapPath("guestbook.mdb")
    SQLstringK="SELECT * FROM guestbook WHERE godkendt=0 ORDER by guest_id"
    SET KRS=Connection.Execute(SQLstringK)


%>

<html>
<head>
<title></title>
</head>
<body bgcolor="#FFFFFF" text="#000000" link="#0066FF" vlink="#0066FF" alink="#0066FF">
<font color="#000000"> </font>
<div align="center">
  <center>
    <p align="center"><br>
      <br>
    <table border="0" width="700" bgcolor="#000000" cellspacing="1" cellpadding="0" align="center">
      <tr>
        <td width="100%" bgcolor="#FFFFFF" valign="top">
          <table width="100%" border="0" cellspacing="0" cellpadding="3">
            <tr bgcolor="#000000">
              <td width="50%" bgcolor="#FFFFFF"><font size="5"><b>Administration</b></font></td>
              <td align="right" valign="bottom" nowrap width="50%" bgcolor="#FFFFFF">
                <div align="right"></div>
              </td>
            </tr>
          </table>
        </td>
      </tr>
    </table>
    <table border='0' cellspacing='0' cellpadding='0' width='700' align="center" height="19">
      <tr>
        <td width='1' valign='top' bgcolor='#000000'><img src="images/intet.gif" width='1'></td>
        <td width='698' valign='top' bgcolor='#f7f7f7'>&nbsp; </td>
        <td width='1' valign='top' bgcolor='#000000'><img src="intet.gif" width='1'></td>
      </tr>
    </table>
  </center>
</div>
<table border="0" width="700" bgcolor="#FFFFFF" cellspacing="1" cellpadding="3" align="center">
  <tr>
    <td bgcolor="#FFFFFF" valign="top" colspan="2">
      <div align="center"> <br>
        <p>
        <table border="0" width="637" bgcolor="#FFFFFF" cellspacing="1" cellpadding="0" align="center">
          <tr>
            <td bgcolor="#FFFFFF" valign="top" class="menuoverskrift" width="452" align="center">
              <table border="0" cellpadding="2" cellspacing="0" width="95%" align="center">
                <tr bgcolor="#FFFFFF">
                  <td width="482"><font color="#000000"><b>Oversigt</b></font></td>
                  <td width="113" align="center"><b><font color="#000000">Tilf&oslash;j</font></b></td>
                  <td width="113" align="center"><b><font color="#000000">Slet</font></b></td>
                </tr>
                <%

   

while not KRS.EOF%>
                <tr bgcolor="#FFFFFF">
                  <td width="482" nowrap height="8"><font color="#000000"><b>Fra:</b>
                    <%=KRS("guest_name")%> <br>
                    <b>-</b> <%=KRS("comments")%></font><br><br></td>
                  <td width="113" align="center" height="8">
                    <p align="center"><font color="#000000"><a href="approveit.asp?id=<%=KRS("guest_id")%>">Godkend</a></font>
                  </td>
                  <td width="113" align="center" height="8">
                    <p align="center"><font color="#000000"><a href="del.asp?id=<%=KRS("guest_id")%>">Fjern</a></font>
                  </td>
                </tr>
                <%
   
    KRS.MoveNext
wend
   
KRS.close
set KRS =nothing
connection.close
set connection = nothing
   

    %>
              </table>
            </td>
          </tr>
        </table>
        <br>
      </div>
    </td>
  </tr>
</table>
<p>&nbsp;</p>
Avatar billede kalp Novice
14. november 2004 - 23:42 #15
så det var det jeg lavede... ud over det rettede jeg hans script til så det nu have feltet godkend med... ellers kan mit jo ikke bruges
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
Programmeringssprog kurser
Kurser inden for grundlæggende programmering
Se alle Programmeringssprog kurser

Flere spørgsmål fra ASP kategorien

Titel Indlæg Oprettet Seneste aktivitet
Jeg bakser med noget Database og If Then med ASP - hvad gør jeg galt? Af Peer i ASP 9 25/06/202622:20 29/06/202621:55
Tjek alle checkbox i form Af bsn i ASP 4 18/05/202601:57 19/05/202613:33
Lost focus Af bsn i ASP 1 07/11/202415:34 01/01/202514:58
ASP classic Af bsn i ASP 8 28/10/202423:11 30/10/202422:51
Classic - filer vist med sidste fil først Af bsn i ASP 5 23/05/202409:56 24/05/202400:02
Se alle spørgsmål i kategorien Opret spørgsmål

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.

Opret Log ind

Du kan også logge ind via nedenstående tjenester

Alle kategorier på Eksperten
Seneste spørgsmål Seneste aktivitet
I dag 14:53 TV4ever 3.0 Af valby i Diverse
I går 16:21 Installere Ubuntu på Virtuel Maskine Af Uvanga i Andet software
I går 09:38 Microsoft har igen ødelagt mit højreklik Af valby i Windows
30/0714:41 To mails fra YouSee - Jeg tror ikke altid på tilfældigheder Af mort1 i Andet sikkerhed
27/0714:34 Hjælp til at kunne skanne negativer på Plustek 8300i SE Af Mariann i Foto & video
White papers
Flere white papers »