Gæstebog

hvordan gemmer du dataerne i din gæstebog??

i en database eller i en fil

<% mode = request(\"mode\") %>
                  <%
Const adOpenKeyset = 1
Const adLockOptimistic = 3
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 jwgbog\"
    rs.Open strSQL, Conn, adOpenKeyset, adLockOptimistic
%>
                  <% if mode =\"\" then %>
                <form action=\"add.asp?mode=tilfojet\" method=\"post\">
                  <center>
                    <font face=tahoma size=2>
                    <div align=\"center\">
              <table width=\"400\" border=\"0\" cellspacing=\"1\" cellpadding=\"3\" class=\"bottom\" align=\"center\" bgcolor=\"#f7f7f7\">
                <tr>
                  <td width=\"134\"><font size=\"1\" face=\"Verdana, Arial, Helvetica, sans-serif\">Dit
                    Navn <span class=\"rot\"> <font color=\"#FF0000\">*</font></span></font><br>
                    <input type=\"text\" name=\"navn\" maxlength=\"100\" class=\"bottom\">
                  </td>
                  <td width=\"251\"><font size=\"1\" face=\"Verdana, Arial, Helvetica, sans-serif\">Alder</font><span class=\"rot\"><br>
                    <input type=\"text\" name=\"alder\" maxlength=\"100\" class=\"bottom\">
                    </span></td>
                </tr>
                <tr>
                  <td width=\"134\"><font size=\"1\" face=\"Verdana, Arial, Helvetica, sans-serif\">Land</font><br>
                    <input type=\"text\" name=\"land\" maxlength=\"100\" class=\"bottom\">
                  </td>
                  <td width=\"251\"><font size=\"1\" face=\"Verdana, Arial, Helvetica, sans-serif\">
                    Icq</font><span class=\"rot\"><br>
                    <input type=\"text\" name=\"icq\" maxlength=\"100\" class=\"bottom\">
                    </span></td>
                </tr>
                <tr>
                  <td colspan=\"2\" height=\"2\"><font size=\"1\" face=\"Verdana, Arial, Helvetica, sans-serif\">Billder:</font>
                    <input type=\"radio\" value=\"1\" checked name=\"pic\">
                    <img src=\"1.gif\" align=\"middle\">
                    <input type=\"radio\" name=\"pic\" value=\"2\">
                    <img src=\"2.gif\" align=\"middle\">
                    <input type=\"radio\" name=\"pic\" value=\"3\">
                    <img src=\"3.gif\" align=\"middle\">
                    <input type=\"radio\" name=\"pic\" value=\"4\">
                    <img src=\"4.gif\" align=\"middle\">
                    <input type=\"radio\" name=\"pic\" value=\"5\">
                    <img src=\"5.gif\" align=\"middle\"></td>
                </tr>
                <tr>
                  <td colspan=\"2\" height=\"167\"><font size=\"1\" face=\"Verdana, Arial, Helvetica, sans-serif\">
                    Kommetare<span class=\"rot\"><font color=\"#FFFFFF\"> <font color=\"#FF0000\">*</font></font></span><font color=\"#FF0000\">
                    </font></font><font color=\"#FF0000\"><br>
                    </font>
                    <textarea name=\"kommetare\" cols=\"50\" rows=\"8\" class=\"bottom\"></textarea>
                  </td>
                </tr>
                <tr>
                  <td width=\"134\"><font size=\"1\" face=\"Verdana, Arial, Helvetica, sans-serif\">Email<span class=\"rot\">
                    </span></font><span class=\"rot\"><br>
                    <input type=\"text\" name=\"email\" maxlength=\"100\" class=\"bottom\" size=\"15\">
                    </span></td>
                  <td width=\"251\"><font size=\"1\" face=\"Verdana, Arial, Helvetica, sans-serif\">Hjemmeside</font><span class=\"rot\"><font face=\"Verdana, Arial, Helvetica, sans-serif\"><br>
                    <input type=\"text\" name=\"url\" value=\"http://\" maxlength=\"100\"  class=\"bottom\" size=\"15\">
                    </font></span></td>
                </tr>
                <tr>
                  <td colspan=\"2\"><font size=\"1\" face=\"Verdana, Arial, Helvetica, sans-serif\"><span class=\"rot\">
                    </span></font>
                    <table border=\"0\" cellspacing=\"0\" cellpadding=\"0\" width=\"200\">
                      <tr>
                        <td align=\"left\">
                          <div align=\"left\"><font size=\"1\" face=\"Verdana, Arial, Helvetica, sans-serif\"><span class=\"rot\">
                            <font color=\"#FF0000\">*</font></span><font color=\"#666666\">
                            = Skal indtastes</font></font></div>
                        </td>
                      </tr>
                    </table>
                  </td>
                </tr>
              </table>
              <br>
              <b><font size=\"2\" face=\"Verdana, Arial, Helvetica, sans-serif\" class=\"mehr_platz\">
              </font></b> <br>
              <table border=\"0\" cellspacing=\"0\" cellpadding=\"0\" width=\"400\">
                <tr>
                  <td>
                    <div align=\"center\"><font face=\"Verdana, Arial, Helvetica, sans-serif\"><b>
                      <input type=\"Submit\" value=\"Tilf&oslash;j\" name=\"Submit\">
                      <input type=\"Reset\" value=\"Slet Alt\" name=\"Reset\">
                      </b></font></div>
                  </td>
                </tr>
              </table>
              <br>
                    </div>
                    </font>
                  </center>
                  <br>
                </form>
                <% end if %>
                <% if mode =\"tilfojet\" then

      rs.AddNew
      rs(\"navn\") = Request.form(\"navn\")
      rs(\"alder\") = Request.form(\"alder\")
      rs(\"email\") = Request.form(\"email\")
      rs(\"icq\") = Request.form(\"icq\")
      rs(\"pic\") = Request.form(\"pic\")
      rs(\"url\") = Request.form(\"url\")
      rs(\"kommetare\") = Request.form(\"kommetare\")
      rs(\"land\") = Request.form(\"land\")
      rs(\"dato\") = date()
      rs(\"kl\") = time()
      rs(\"Ip\") = Request.ServerVariables(\"REMOTE_ADDR\")
      rs.Update
%>
                <p class=\"menuoverskrift2\">Tak for din kommetare.</p>
                <p><span class=\"skriftype\"></span><br>
                  <br>
                  <% end if %></p></div>

Jeg vil godt lave den admin-del for 300 points!

philip > okay...men man kan redigere/slette :o)

også lige en ting..at man kan slette det hele på en knap :o)

det hele mener jeg det hele i gæstbogen :o)

Altså:

Slet 1 indlæg
Slet alle indlæg
Rediger 1 indlæg

Så send mig lige al den kode du har!
fun4you@fun4you.dk

øh...hvad mener du alle dine kode..

du kan bare lave en eks til mig....

Så jeg laver bare et eksempel, og sender det til dig.....

bare med nogle felter, og så kan du indsætte resten!

jeps :o)

håber du bliver færdig med den idag :o)

Jeg er hvad jeg kan gøre.... ellers har du den i morgen eller i over morgen!

Jeg laver den nu.... Bare en demo

Rediger.asp
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
<% response.buffer = true %>
<%
set conn = Server.CreateObject(\"ADODB.Connection\")
conn.Open \"Driver={Microsoft Access Driver (*.mdb)}; DBQ=\" & Server.MapPath(\"database.mdb\")
SQL = \"select * from tabel\"
Set RS = Conn.Execute(SQL)
Do While Not RS.EOF
          Response.Write \"<a href=\'rediger2.asp?id=\" & RS(\"id\") & \"\'>\" & RS(\"username\") & \"<br></td>\"
RS.MoveNext
Loop
RS.Close
Conn.Close
%>
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
I filen rediger.asp udskriver vi alle posterne, som et link, til selve rediger-siden.
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
REDIGER2.asp
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
<%
response.buffer = true
%>
<%
set conn = Server.CreateObject(\"ADODB.Connection\")
conn.Open \"Driver={Microsoft Access Driver (*.mdb)}; DBQ=\" & Server.MapPath(\"database.mdb\")
id=Trim(Request(\"id\"))
SQL = \"select * from tabel where id=\" &id
Set RS = Conn.Execute(SQL)

session(\"id\") = rs(\"id\")

Do While Not RS.EOF

    Response.Write(\"<font face=\'Verdana\'>Ændre informationer:\")

    Response.Write(\"<form action=\'doupdate.asp\' method=\'post\'>\")
    Response.Write(\"Username<br>\")
    Response.Write(\"<input type=\'text\' name=\'username\' size=\'20\' value=\'\" & rs(\"username\") &\"\' class=\'text\' readonly>\")
    Response.Write(\"<p>\")
    Response.Write(\"Password<br>\")
    Response.Write(\"<input type=\'text\' name=\'password\' size=\'12\' value=\'\" & RS(\"password\") &\"\' class=\'text\'>\")
    Response.Write(\"<p>\")
    Response.Write(\"<input type=\'submit\' value=\'Send\'> <input type=\'reset\' value=\'Fortryd\'></font>\")
    Response.Write(\"</form>\")
RS.MoveNext
Loop
RS.Close
Conn.Close
%>
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
I rediger 2.asp, henter vi dataene fra det ønskede post, og trækker det ud i nogle input-felter.
¨~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
doupdate.asp
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
<%
response.buffer = true
set conn = Server.CreateObject(\"ADODB.Connection\")
conn.Open \"Driver={Microsoft Access Driver (*.mdb)}; DBQ=\" & Server.MapPath(\"database.mdb\")
SQL = \"select * from tabel\"
Set RS = conn.Execute(SQL)
sqlstmt = \"UPDATE brugerne SET password = \'\" & request.form(\"password\") &\"\'\"
sqlstmt = sqlstmt & \", username= \'\" & request.form(\"username\") &\"\'\"
sqlstmt = sqlstmt & \"WHERE id=\" & session(\"id\")& \";\"
Set rs = Server.CreateObject(\"ADODB.Recordset\")
rs.Open sqlstmt, conn, 3, 3
Response.Redirect \"admin.asp\"
%>

~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
I doupdate.asp opdaterer vi dataene
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Slet.asp
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
<% response.buffer = true %>
<%
set conn = Server.CreateObject(\"ADODB.Connection\")
conn.Open \"Driver={Microsoft Access Driver (*.mdb)}; DBQ=\" & Server.MapPath(\"database.mdb\")
SQL = \"select * from tabel\"
Set RS = Conn.Execute(SQL)

Do While Not RS.EOF

          Response.Write \"<a href=\'slet_data.asp?id=\" & RS(\"id\") & \"\'>\" & RS(\"felt\") & \"<br></td>\"

RS.MoveNext
Loop

RS.Close
Conn.Close

%>
¨~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
~Her udskriver vi dataene, så vi kan vælge hvilken en vi vil slette
¨~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Sletdata.asp
<%
response.buffer = true
Set Conn = Server.CreateObject(\"ADODB.Connection\")
Conn.Open \"DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=\" & server.MapPath(\"database.mdb\")
id=Trim(Request(\"id\"))
SQLstmt = \"delete * from tabel where id=\" &id
Conn.Execute (SQLstmt)
conn.Close
Set conn = nothing
Set SQLstmt = nothing
response.redirect (\"admin.asp\")
%>
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Her sletter vi et post
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Sletalle.asp
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
<%
response.buffer = true
Set Conn = Server.CreateObject(\"ADODB.Connection\")
Conn.Open \"DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=\" & server.MapPath(\"database.mdb\")
id=Trim(Request(\"id\"))
SQLstmt = \"delete * from tabel\"
Conn.Execute (SQLstmt)
conn.Close
Set conn = nothing
Set SQLstmt = nothing
response.redirect (\"admin.asp\")
%>

~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

SLUT

Det var det!

hej igen..

jeg kigger på dit script iaften...jeg skal til fodbold om lidt.. :o)

Okay :o)

du har ik lavet det hele færdig :(

der er noget galt med filen dropdate.asp

og jeg kan ik skifte på username....

og hvorfor kan jeg ik slette hele gæstebogen på engang :o)

går iseng kommer igen imorgen :o)

hvis det ik er færdig idag...så slutter vores aftale

http://www.eksperten.dk/spm/73322