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
Lost focus Af bsn i ASP 0 07/11/202415:34 -
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
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
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 11:40 Fjerne mappe i stifinder Af Peter Olsen i Andet software
I dag 11:27 renteberegning Af Pil i Excel
I går 22:30 Underlig meddelelse på skærmen Af Jordegern i E-mail programmer
I går 15:56 Navigation i Peugeot 3-2008 fra 2017 Af arnepedersen i Andet software
I går 14:10 Outlook henter ikke mails Af TTA i Office & Kontorpakker
White papers
Flere white papers »


Premium
Teaser billede
Vil købe tele-løsninger til det offentlige for 370 millioner kroner
Læs mere »
Efterspørgslen på AI-regnekraft er enorm - og det smitter af på priserne: "Vi kan sælge næsten alt, hvad vi får ind"
Nyt værtøj fra Microsoft: Snart kan du reparere nedbrudte Windows-enheder på distancen
Politiet skriver kontrakt på 75 millioner kroner med dansk it-firma: Medarbejdere skal flytte ind hos politiet
Se alle »
Computerworld
Teaser billede
Microsofts nye pc er ekstrem billig – men kan blive ekstrem sikker og fleksibel
Læs mere »
Test: Prøv kun disse B&O-hovedtelefoner, hvis du har råd
Kæmpe datalæk på hospital: 750.000 patienters fortrolige data lækket
Telegigant klar med AI-baseret mormor: Holder telefon-svindlere fast i røret med sniksnak og dumme spørgsmål
Se alle »
CIO
Teaser billede
Konsulenthus vil rulle Microsoft 365 Copilot ud til 200.000 ansatte
Læs mere »
Kæmpe-opgave for Danske Bank har banet vej for fuldautomatiseret migrering til cloud: Nu udbredes metoden i hele AWS
Microsofts store årlige event: De tre vigtigste nøglebudskaber fra Satya Nadella om Microsofts fremtid
Tre vigtige erkendelser, som Computerworld tog med hjem fra Gartners store topmøde i Barcelona
Se alle »
Job & Karriere
Teaser billede
Microsoft klar med ny direktion for den danske forretning: Her er de nye direktører
Læs mere »
Efter skelsættende møde med sportscoach: Stor dansk it-arbejdsplads indfører fredags-fri og isbade i arbejdstiden
Linus Torvalds giver russiske Linux-udviklere sparket: Vil ikke have noget med dem at gøre
Topchef Sara Green mener, at der er brug for et radikalt nyt syn på it-ledelse - særligt én ny trend hader hun som pesten
Se alle »
White paper
Teaser billede
Styrk compliance, sikkerhed og overblik med ét hug
Læs mere »
Governance, Risk & Compliance: Knyt stærke bånd mellem forretning og sikkerhed
Sikkerhed uden grænser: Cisco Hypershield
Sådan gør du: Elektronisk dokumentudveksling i praksis
Se alle »

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