CIO Tech Eksperten IT-JOB IT-Kurser Events Podcast Søg
Cookie ikon
Avatar billede tsearex Nybegynder
18. oktober 2002 - 21:38 Der er 6 kommentarer og
1 løsning

Gæstbog med mulighed for godkendelse

Er der nogen som har en Gæstbog med mulighed for godkendelse liggende. Det jeg mener er at når folk skriver i gæstebogen skal det være muligt for webmaster at godkende dem før de bliver lagt på siden.
Avatar billede no_doubt Nybegynder
18. oktober 2002 - 21:44 #1
lav det sådan at vær indlæg for værdien nej og så lav en ja og nej boks, også på admin siden kan du ændre nej til ja, også på siden udskriver du alle sql = "select * from tabel where ja/nej = ja"
Avatar billede tsearex Nybegynder
18. oktober 2002 - 21:52 #2
Det kan godt være du har fat i noget, men jeg havde jo håbet at der var nogen som havde en færdig liggende
Avatar billede no_doubt Nybegynder
18. oktober 2002 - 21:54 #3
nej nu holder du, det er sådan set forholdsvis nej at gå til. standart værdien skal bare være nej også skal du udskrive med overstående
Avatar billede tsearex Nybegynder
18. oktober 2002 - 22:00 #4
Ja det er rigtigt hvis jeg havde en gæstebog med en admin side, men det har jeg ikke. Jeg har en gæstebog som jeg har downloadet, men der skal jeg først til at oprette en admin side koden kommer her.

default.asp
<html>

<head>
<title>Gæstebog</title>
<style>
<!--
        A:link {text-decoration: none; color: #808080;}
        A:visited {text-decoration: none; color: #808080;}
        A:active {text-decoration: none; color: #000000;}
        A:hover {text-decoration: none; color: #000000;}
-->
BODY {SCROLLBAR-FACE-COLOR: FFFFFF; SCROLLBAR-HIGHLIGHT-COLOR: #808080; SCROLLBAR-3DLIGHT-COLOR: #000000; SCROLLBAR-ARROW-COLOR: #000000; SCROLLBAR-DARKSHADOW-COLOR: #5b6470; SCROLLBAR-BASE-COLOR: #000000}
</style>
</head>
<body bgcolor="#FF0000">
<table cellSpacing="0" cellPadding="0" width="100%" border="0" height="1">
  <tr>
    <td class="boxText" width="100%" height="1" colspan="2">
      <p align="center"><b><font face="Verdana" size="2">Danskfront</font></b>
    </td>
  </tr>
  <tr>
    <td class="boxText" width="50%" height="1"><font face="Verdana" size="1">Der
      er i alt&nbsp;<%
  Set Rs = Server.CreateObject("ADODB.Connection")
  DBPath = "DBQ=" & server.mappath("database.mdb")
  Rs.Open "DRIVER={Microsoft Access Driver (*.mdb)}; " & DBPath
  Sql = "Select count(*) as Found from kommentarer"
  Set Record =  Rs.Execute(Sql)

  Ialt = Record("found")
                        %>
                        <b><% =ialt %></b> indlæg.</font></td>
    <td class="boxText" width="10%" height="1">
      <p align="left"><font face="Verdana" size="1"><b><img border="0" src="images/index.gif" width="16" height="16">
        L&aelig;s i g&aelig;stebogen<br>
        <img border="0" src="images/svar.gif" width="16" height="16"> </b><a href="opret.asp" target="_self">Skriv i
      gæstebogen</a></font></td>
  </tr>
  <tr>
    <td class="boxText" width="100%" height="1" colspan="2">
    <%
Set connect = Server.CreateObject("ADODB.Connection")
Connect.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("database.mdb")
sql = "select * from kommentarer ORDER BY id desc"
Set rs = Server.CreateObject("ADODB.Recordset")
set rs = Connect.execute(SQL)

count = 25
While not rs.eof and count > 0
count = count -1
%>
<table align="center" cellSpacing="0" cellPadding="0" width="460" border="0" height="1">
  <tr>

    <td class="boxText" width="50%" height="1"><font face="Verdana" size="1">Skrevet
      af: <% if rs ("HP") <> "" then %><a href="http://<%= rs("HP")%>" target="_blank"><%= rs("navn")%></a><% else %><%= rs("navn")%><% end if %></font></td>
    <td class="boxText" width="50%" height="1">
      <p align="left"><font face="Verdana" size="1">Dato:<%= rs("dato")%></font></p>
    </td>
  </tr>
  <tr>
    <td class="boxText" width="50%" height="1"><font size="1" face="Verdana">Stjerner:<img border="0" src="images/<%= rs("star")%>.gif"></font></td>
    <td class="boxText" width="50%" height="1"><font size="1" face="Verdana">E-mail:<% if rs ("email") <> "" then %><a href="mailto:<%= rs("email")%>"><%= rs("email")%></a><% else %>Ikke oplyst<% end if %></font></td>
  </tr>
  <tr>
    <td class="boxText" width="100%" height="1" colspan="2"><font size="1" face="Verdana"><%= rs("kommentar")%></font></td>
  </tr>
  <tr>
    <td class="boxText" width="100%" height="1" colspan="2"><font size="1" face="Verdana">&nbsp;</font></td>
  </tr>
</table>
<%
rs.MoveNext
Wend
%>
    </td>
  </tr>
  <tr>
    <td class="boxText" width="100%" height="1" colspan="2">
      <p align="center">&nbsp;
    </td>
  </tr>
</table>

</body>

</html>


opret.asp
<%
mode = Request("mode")
Response.Buffer = True

%>
<html>

<head>
<style>
<!--
        A:link {text-decoration: none; color: #808080;}
        A:visited {text-decoration: none; color: #808080;}
        A:active {text-decoration: none; color: #000000;}
        A:hover {text-decoration: none; color: #000000;}
-->
BODY {SCROLLBAR-FACE-COLOR: FFFFFF; SCROLLBAR-HIGHLIGHT-COLOR: #808080; SCROLLBAR-3DLIGHT-COLOR: #000000; SCROLLBAR-ARROW-COLOR: #000000; SCROLLBAR-DARKSHADOW-COLOR: #5b6470; SCROLLBAR-BASE-COLOR: #000000}
</style>
<title>Tilføj til gæstebogen</title>
</head>
<body bgcolor="#FF0000">
<% if mode = "" then %>
<form method=post action=opret.asp?mode=gem>
<table cellSpacing="0" cellPadding="0" width="100%" border="0" height="1">
  <tr>
    <td class="boxText" width="100%" height="1" colspan="2">
      <table cellSpacing="0" cellPadding="0" width="100%" border="0" height="1">
        <tr>
          <td class="boxText" width="100%" height="1" colspan="2">
              <p align="center"><b><font face="Verdana" size="2">Danskfront</font></b>
            </td>
        </tr>
        <tr>
    <td class="boxText" width="50%" height="1"><font face="Verdana" size="1">Der
      er i alt&nbsp;<%
  Set Rs = Server.CreateObject("ADODB.Connection")
  DBPath = "DBQ=" & server.mappath("database.mdb")
  Rs.Open "DRIVER={Microsoft Access Driver (*.mdb)}; " & DBPath
  Sql = "Select count(*) as Found from kommentarer"
  Set Record =  Rs.Execute(Sql)

  Ialt = Record("found")
                        %>
                        <b><% =ialt %></b>  indlæg.</font></td>
    <td class="boxText" width="10%" height="1">
              <p align="left"><font face="Verdana" size="1"><b><img border="0" src="images/index.gif" width="16" height="16">
                </b><a href="default.asp">L&aelig;s i g&aelig;stebogen</a><b><br>
                <img border="0" src="images/svar.gif" width="16" height="16">
      Skriv i
      gæstebogen </b></font></td>
        </tr>
      </table>
      <p align="left"><b><font face="Verdana" size="1">Tilføj til gæstebogen:</font></b></td>
  </tr>
  <tr>
    <td class="boxText" width="7%" height="1"><font face="Verdana" size="1">Navn:<font color="#FF0000">*</font></font></td>
    <td class="boxText" width="93%" height="1"><font face="Verdana" size="1"> <input type=text name=navn style="BORDER-RIGHT: #000000 1px solid; PADDING-RIGHT: 4px; BORDER-TOP: #000000 1px solid; PADDING-LEFT: 4px; FONT-SIZE: 10px; PADDING-BOTTOM: 1px; BORDER-LEFT: #000000 1px solid; COLOR: #000000; PADDING-TOP: 1px; BORDER-BOTTOM: #000000 1px solid; FONT-FAMILY: Verdana; BACKGROUND-COLOR: #FFFFFF"></font></td>
  </tr>
  <tr>
    <td class="boxText" width="7%" height="1"><font face="Verdana" size="1">Stjerner:<font color="#FF0000">*</font></font></td>
    <td class="boxText" width="93%" height="1"><font face="Verdana" size="1"><select onchange="person.src='images/'+this.value+'.gif'" name="star" class="bottom" size="1"  style="BORDER-RIGHT: #000000 1px solid; PADDING-RIGHT: 4px; BORDER-TOP: #000000 1px solid; PADDING-LEFT: 4px; FONT-SIZE: 10px; PADDING-BOTTOM: 1px; BORDER-LEFT: #000000 1px solid; COLOR: #000000; PADDING-TOP: 1px; BORDER-BOTTOM: #000000 1px solid; FONT-FAMILY: Verdana; BACKGROUND-COLOR: #FFFFFF">
  <option value="0" selected>(Vælg)</option>
  <option value="1">1</option>
  <option value="2">2</option>
  <option value="3">3</option>
  <option value="4">4</option>
  <option value="5">5</option>
</select><IMG id=person src="images/0.gif"></font></td>
  </tr>
  <tr>
    <td class="boxText" width="7%" height="1"></td>
    <td class="boxText" width="93%" height="1"></td>
  </tr>
  <tr>
    <td class="boxText" width="7%" height="1"><font face="Verdana" size="1">E-mail:</font></td>
    <td class="boxText" width="93%" height="1"><font face="Verdana" size="1"> <input type=text name=email  style="BORDER-RIGHT: #000000 1px solid; PADDING-RIGHT: 4px; BORDER-TOP: #000000 1px solid; PADDING-LEFT: 4px; FONT-SIZE: 10px; PADDING-BOTTOM: 1px; BORDER-LEFT: #000000 1px solid; COLOR: #000000; PADDING-TOP: 1px; BORDER-BOTTOM: #000000 1px solid; FONT-FAMILY: Verdana; BACKGROUND-COLOR: #FFFFFF">
</font></td>
  </tr>
  <tr>
    <td class="boxText" width="7%" height="1"><font face="Verdana" size="1">Hjemmeside:</font></td>
    <td class="boxText" width="93%" height="1"><font face="Verdana" size="1"><input type=text name=HP size="20"  style="BORDER-RIGHT: #000000 1px solid; PADDING-RIGHT: 4px; BORDER-TOP: #000000 1px solid; PADDING-LEFT: 4px; FONT-SIZE: 10px; PADDING-BOTTOM: 1px; BORDER-LEFT: #000000 1px solid; COLOR: #000000; PADDING-TOP: 1px; BORDER-BOTTOM: #000000 1px solid; FONT-FAMILY: Verdana; BACKGROUND-COLOR: #FFFFFF">
      Skriv ikke &quot;http://&quot;
</font></td>
  </tr>
  <tr>
    <td class="boxText" width="7%" height="1">
      <p align="left"><font face="Verdana" size="1">Kommentar:<font color="#FF0000">*</font></font></p>
    </td>
    <td class="boxText" width="93%" height="1"><font face="Verdana" size="1"><textarea name=kommentar col=10 rows=4 cols="59"  style="BORDER-RIGHT: #000000 1px solid; PADDING-RIGHT: 4px; BORDER-TOP: #000000 1px solid; PADDING-LEFT: 4px; FONT-SIZE: 10px; PADDING-BOTTOM: 1px; BORDER-LEFT: #000000 1px solid; COLOR: #000000; PADDING-TOP: 1px; BORDER-BOTTOM: #000000 1px solid; FONT-FAMILY: Verdana; BACKGROUND-COLOR: #FFFFFF"></textarea></font></td>
  </tr>
  <tr>
    <td class="boxText" width="7%" height="1"></td>
    <td class="boxText" width="93%" height="1"><font face="Verdana" size="1">
<input type=submit value=Tilføj  style="BORDER-RIGHT: #000000 1px solid; PADDING-RIGHT: 4px; BORDER-TOP: #000000 1px solid; PADDING-LEFT: 4px; FONT-SIZE: 10px; PADDING-BOTTOM: 1px; BORDER-LEFT: #000000 1px solid; COLOR: #000000; PADDING-TOP: 1px; BORDER-BOTTOM: #000000 1px solid; FONT-FAMILY: Verdana; BACKGROUND-COLOR: #FFFFFF">
</font></td>
  </tr>
  <tr>
    <td class="boxText" width="7%" height="1"></td>
    <td class="boxText" width="93%" height="1"><font face="Verdana" size="1"><font color="#FF0000">*</font> betyder at feltet skal
udfyldes</font>
    </td>
  </tr>
</table>
  <p align="center"><font face="Verdana" size="1"><br>
<font face="Verdana" color=red size=1><%=Request.Querystring("error")%></font>
</font>
</form>
<% end if %>

<% if mode = "gem" then
'//Tjecker om brugernavn kodeord og email er udfyldt!
if Request.form("navn") = "" then Response.Redirect("opret.asp?error=Udfyld brugernavn") end if
if Request.form("star") = "0" then Response.Redirect("opret.asp?error=Du skal give mindst en stjerne") end if
if Request.form("kommentar") = "0" then Response.Redirect("opret.asp?error=Du skal skrive en kommentar") end if
'//Connection
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "PROVIDER=MSDASQL;DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("database.mdb") & ";UID=admin;PWD=;"
Set rs = Server.CreateObject("ADODB.RecordSet")
strSQL = "Select * From kommentarer where navn = '" & Request.form("navn") & "'"
rs.Open strSQL, Conn, 1, 3

'//Tilføjer brugeren til databasen!
rs.addnew
rs("navn") = Request.form("navn")
rs("star") = Request.form("star")
rs("email") = Request.form("email")
rs("HP") = Request.form("HP")
rs("kommentar") = Request.form("kommentar")
rs.update
Response.Write("<font face='Verdana' color=red size=1>Dit indlæg er tilføjet. <a href='default.asp'>Tryk her</a> for at komme til index</font>")

rs.Close
Set rs = Nothing
Conn.Close
set Conn = Nothing
end if %>

</body>
</html>

Hvis du kan fortælle mig hvordan jeg gør det her får du dine point.
Avatar billede no_doubt Nybegynder
18. oktober 2002 - 22:06 #5
rs.addnew
rs("navn") = Request.form("navn")
rs("star") = Request.form("star")
rs("email") = Request.form("email")
rs("HP") = Request.form("HP")
rs("kommentar") = Request.form("kommentar")
rs("ja/nej") = nej

sådan skal de se ud og udtrækket

Sql = "Select count(*) as Found from kommentarer where ja/nej = "ja""

hvordan du ændre et nej til ja må du vente med.
Avatar billede tsearex Nybegynder
18. oktober 2002 - 22:08 #6
ok, du får dine point
Avatar billede no_doubt Nybegynder
18. oktober 2002 - 22:09 #7
ok
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
Classic - filer vist med sidste fil først Af bsn i ASP 5 23/05/202409:56 24/05/202400:02
Optimer MySql table med ASP Af poulmadsen i ASP 4 26/04/202417:16 26/04/202418:37
JSON Af ingeman i ASP 3 07/04/202417:53 08/04/202412:09
Vis detaljeret fejlkoder Af poulmadsen i ASP 6 09/03/202418:16 10/03/202417:59
IIS virker ikke på asp sider... Af bsn i ASP 10 15/10/202313:12 18/10/202308:48
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 20:17 vlc viser kegle-icon Af casablanca i Andet software
I dag 14:01 Oprette / gemme et par fotos i en mappe - Samsung Galaxy A 14 5G ? Af Ikke-ekspert i Mobiltelefoner
I dag 11:14 Bærbar til Sims 3? Af idamarie i PC
I dag 10:49 Adobe til excel Af densortehingst i Andet software
I dag 09:26 Chrome Af fjorbak i Andet netværk
White papers
Flere white papers »


Premium
Teaser billede
5.000 flyafgange i verden blev aflyst som følge af Crowdstrike-nedbrud: Vil Københavns Lufthavn søge erstatning?
Læs mere »
Hackere udnytter CrowdStrike-nedbruddet: Spreder malware ved hjælp af falske løsninger
Microsoft skyder dele af skylden for CrowdStrike-nedbrud på 15 år gammel EU-aftale
Derfor står Danske Bank foran en kæmpe AWS-transformation: Ellers skulle vi bygge en ny infrastruktur for at følge med
Se alle »
Computerworld
Teaser billede
Microsoft-nedbrud spreder sig: It-systemer i lufthavne verden over er ramt
Læs mere »
Test: Denne mikro-pc er smartere end de stærkeste desktop-maskiner - men flopper alligevel
Elon Musk dropper CrowdStrike efter kæmpe nedbrud
Hundredevis af flyafgange ramt af stort Microsoft-nedbrud
Se alle »
CIO
Teaser billede
Microsoft er på sagen: I gang med at løse kæmpe nedbrud efter katastrofal Crowdstrike-fejl
Læs mere »
Så mange Microsoft-enheder blev ramt af gigantisk Crowdstrike-koks
Telenor skrotter ældre it-system: Nyt system er en hyldevare
Peter Lüth udlever CTO-drømmen: Bygger et system fra bunden og tjener kassen på det
Se alle »
Job & Karriere
Teaser billede
Efter 12 år er NNIT's hovedkvarter i Søborg nu ryddet og tomt - alle arbejder hjemme: "Det er med et vist vemod"
Læs mere »
Norlys skal splittes op i fem selskaber: Nu bliver flere ansatte og ledere fyret
Dansk top-profil trækker sig fra Microsoft: Skal være direktør i TDC Erhverv
KMD-direktør forlader selskabet: Det skal hun nu
Se alle »
White paper
Teaser billede
Det behøver ikke at gøre ondt: Sådan gør du livet lettere for kunder med multicloud
Læs mere »
MDR: Transparent sikkerhed og overvågning i realtid
SASE: Træf det rette valg – første gang
Nemmere overblik, styring og omkostningskontrol i dit multicloud-miljø
Se alle »

Events
Flere events »
White papers
Flere white papers »
IT-Kurser
Se alle vores it-kurser »