login  Naam:   Wachtwoord: 
Registreer je!
 Scripts:
Scripts > ASP > Gastenboeken > Gastenboek (smilies, HTML-filter, geen admin)

Gastenboek (smilies, HTML-filter, geen admin)

Auteur: JoWannes - 18 augustus 2007 - 11:57 - Gekeurd door: Abbas - Hits: 4232 - Aantal punten: 4.50 (2 stemmen)



Een simpel gastenboek, met smilies, een HTML-filter, maar geen admin.

Dit gastenboek is een aangepaste versie van het "Gastenboek(met smilies)(zonder admin)" dat je in deze rubriek kan vinden. Credits to J.Z.N./WebPaulsky dan ook. 

De aanpassingen zijn:
* HTML-filter
* 'enters' zijn mogelijk
* berichten kunnen langer zijn (255 tekens, (acces) database aanpassing)
* volledig gecentreerde opmaak

Het HTML-filter houdt HTML en JavaScript scriptjes tegen, en vergroot daardoor de veiligheid. En simpel javascriptje als <scr!pt>alert("Boe!")</scr!pt> laat dus al geen popup meer zien. ;)

(Het voorbeeld is op mijn echte, gebruikte site; dus graag geen reacties over dit gastenboek in mijn gastenboek! )
Geen voorbeeld meer vanwege de onzinnige reacties in m'n gastenboek, hoewel ik explicitiet vraag om dit niet te doen! :( 

Download de zip, dan heb je ineens de database en de smilies! ;)
Link: klik!

Code:
Sla op als index.asp:

asp code - Bekijk de code zonder highlighting - Klap code in 
  1. <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
  2. <html xmlns="http://www.w3.org/1999/xhtml">
  3. <%
  4. function addSmileys(strBericht)
  5.   strBericht = replace(strBericht, ":buig", "<img src=""images/worshippy.gif"">", 1, -1, 1)
  6.   strBericht = replace(strBericht, ":P", "<img src=""images/tongue.gif"">", 1, -1, 1)
  7.   strBericht = replace(strBericht, ":)", "<img src=""images/smile1.gif"">", 1, -1, 1)
  8.   strBericht = replace(strBericht, ":nerd", "<img src=""images/nerd.gif"">", 1, -1, 1)
  9.   strBericht = replace(strBericht, ":mond", "<img src=""images/mond.gif"">", 1, -1, 1)
  10.   strBericht = replace(strBericht, ":@", "<img src=""images/mad.gif"">", 1, -1, 1)
  11.   strBericht = replace(strBericht, ":lijst", "<img src=""images/lijstje.gif"">", 1, -1, 1)
  12.   strBericht = replace(strBericht, ":king", "<img src=""images/koning.gif"">", 1, -1, 1)
  13.   strBericht = replace(strBericht, ";)", "<img src=""images/knipoog.gif"">", 1, -1, 1)
  14.   strBericht = replace(strBericht, ":heilig", "<img src=""images/hypo.gif"">", 1, -1, 1)
  15.   strBericht = replace(strBericht, ":evil", "<img src=""images/evil.gif"">", 1, -1, 1)
  16.   strBericht = replace(strBericht, ":cry", "<img src=""images/cry.gif"">", 1, -1, 1)
  17.   strBericht = replace(strBericht, ":8", "<img src=""images/cool.gif"">", 1, -1, 1)
  18.   strBericht = replace(strBericht, ":cheer", "<img src=""images/cheer.gif"">", 1, -1, 1)
  19.   strBericht = replace(strBericht, ":#", "<img src=""images/bloos.gif"">", 1, -1, 1)
  20.   strBericht = replace(strBericht, ":bigg", "<img src=""images/biggrin.gif"">", 1, -1, 1)
  21.   strBericht = replace(strBericht, ":bier", "<img src=""images/bier.gif"">", 1, -1, 1)
  22.   addSmileys = strBericht
  23. end function
  24.  
  25. function addHtml(strBericht)
  26.   strBericht = replace(strBericht, "<", "&#60;", 1, -1, 1)
  27.   strBericht = replace(strBericht, ">", "&#62;", 1, -1, 1)
  28.   strBericht = replace(strBericht, Chr(13) & Chr(10), "<br />", 1, -1, 1)
  29.   strBericht = replace(strBericht, Chr(10), "<br />", 1, -1, 1)
  30.   addHtml = strBericht
  31. end function
  32. %>
  33. <head>
  34. <meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
  35. <title>Gastenboek - Berichten bekijken</title>
  36. <style type="text/css">
  37. * {text-align:center;}
  38. </style>
  39. </head>
  40.  
  41. <body>
  42. <h1>Gastenboek</h1>
  43. <form>
  44.   <div>
  45.     <table width="100%">
  46.     <tr>
  47.     <td width="100%">
  48.       <div style="text-align:center"><a href="index.asp">Gastenboek Home</a> - <a href="schrijven.asp">Bericht Schrijven</a> - <a href="mailto:***@***.be">Contact</a></div></td></tr>
  49.   </table>
  50.   <table width="60%" align="center">
  51.   	<tr>
  52.     <td width="100%" valign="top" height="150"><%
  53. 'Variabelen toekennen
  54. Dim adoCon 'Dit doet de Connectie met de Database
  55. Dim rsGuestbook 'Dit doet de records uit de database halen
  56. Dim strSQL 'En dit doet hoe je de recrods uit de database wilt halen
  57.  
  58. 'Hier maken we een ADO connection odject
  59. Set adoCon = Server.CreateObject("ADODB.Connection")
  60.  
  61. 'Nou, hier zetten we een DSN-less connectie op met de pad van de database
  62. adoCon.ConnectionString="PROVIDER=Microsoft.Jet.OLEDB.4.0;DATA SOURCE="&Server.MapPath("gastenboek.mdb") &";Persist Security Info=False"
  63. adoCon.Open 
  64.  
  65. 'Set an active connection to the Connection object using DSN connection
  66. 'adoCon.Open "DSN=guestbook"
  67.  
  68. 'Recordset openen
  69. Set rsGuestbook = Server.CreateObject("ADODB.Recordset")
  70.  
  71. 'De variablelen van de SQL openen. En de tabbelen uit de database
  72. strSQL = "SELECT gastenboek.naam, gastenboek.email, gastenboek.bericht FROM gastenboek;"
  73.  
  74. 'Alle troep openen
  75. rsGuestbook.Open strSQL, adoCon
  76.  
  77. 'En steeds overnieuw beginnen
  78. Do While not rsGuestbook.EOF
  79.  
  80. 'En dan alles opschrijven op de HTML pagina
  81. Response.Write ("<br>")
  82. Response.Write (addHtml(rsGuestbook("Naam")))
  83. Response.Write ("<br>")
  84. Response.Write (addHtml(rsGuestbook("Email")))
  85. Response.Write ("<br>")
  86. Response.Write (addSmileys(addHtml(rsGuestbook("Bericht"))))
  87. Response.Write ("<hr>")
  88.  
  89. 'En ga naar de volgende record
  90. rsGuestbook.MoveNext
  91.  
  92. Loop
  93.  
  94. 'En alle troep sluiten
  95. 'Reset server objects
  96. rsGuestbook.Close
  97. Set rsGuestbook = Nothing
  98. Set adoCon = Nothing
  99. %></td></tr>
  100.   </table>
  101.   </div>
  102. </form>
  103. </body>
  104. </html>


Sla op als schrijven.asp:

asp code - Bekijk de code zonder highlighting - Klap code in 
  1. <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
  2. <html xmlns="http://www.w3.org/1999/xhtml">
  3. <head>
  4. <meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
  5. <title>Gastenboek - Bericht schrijven</title>
  6. </head>
  7.  
  8. <body>
  9. <h1>Gastenboek</h1>
  10. <form action="defSchrijven.asp" name="Forumulier1" id="Forumulier1" method="post">
  11.         <div align="center">
  12.           <table width="400">
  13.           <tr><td width="400" height="42" style="text-align:center"><a href="index.asp">Gastenboek Home</a> - <a href="schrijven.asp">Bericht 
  14.               Schrijven</a> - <a href="mailto:***@***.be">Contact</a></td></tr>
  15.           </table>
  16.           <table border="0" style="text-align:left">
  17.             <tr>
  18.               <td>Naam*:</td>
  19.               <td><input name="Naam" type="text" id="Naam" size="40" /></td>
  20.            </tr>
  21.            <tr>
  22.               <td>E-mail*:</td>
  23.            <td><input name="E-mail" type="text" id="E-mail" size="40" /></td>
  24.            </tr>
  25.            <tr>
  26.               <td>Bericht:</td>
  27.            <td>
  28.           <textarea name="textarea" cols="50" rows="7"></textarea></td>
  29.           </tr>
  30.             <tr>
  31.               <td colspan="2" style="text-align:center">
  32.                 <input name="Wis invoer" type="reset" id="Wis invoer" value="Wis invoer" />
  33.                 <input name="Verstuur" type="submit" id="Verstuur" value="Verstuur" />
  34.               </td>
  35.       </tr>
  36.                 </table>
  37.   </div>
  38.   <p style="text-align:center">Velden met een * erachter zijn verplicht!</p>
  39.   <div align="center">
  40.     <table width="288" border="0">
  41.       <tr>
  42.         <th colspan="4" scope="col">Smilies:</th>
  43.       </tr>
  44.       <tr>
  45.         <td width="75">:buig</td>
  46.         <td width="60"><img src="images/worshippy.gif" alt=":buig" /></td>
  47.         <td width="75">:heilig</td>
  48.         <td width="60"><img src="images/hypo.gif" alt=":heilig" /></td>
  49.       </tr>
  50.       <tr>
  51.         <td>:p</td>
  52.         <td><img src="images/tongue.gif" alt=":P" /></td>
  53.         <td>:evil</td>
  54.         <td><img src="images/evil.gif" alt=":evil" /></td>
  55.       </tr>
  56.       <tr>
  57.         <td>:)</td>
  58.         <td><img src="images/smile1.gif" alt=":)" /></td>
  59.         <td>:cry</td>
  60.         <td><img src="images/cry.gif" alt=":cry" /></td>
  61.       </tr>
  62.       <tr>
  63.         <td>;)</td>
  64.         <td><img src="images/knipoog.gif" alt=";)" /></td>
  65.         <td>:8</td>
  66.         <td><img src="images/cool.gif" alt=":8" /></td>
  67.       </tr>
  68.       <tr>
  69.         <td>:nerd</td>
  70.         <td><img src="images/nerd.gif" alt=":nerd" /></td>
  71.         <td>:cheer</td>
  72.         <td><img src="images/cheer.gif" alt=":cheer" /></td>
  73.       </tr>
  74.       <tr>
  75.         <td>:mond</td>
  76.         <td><img src="images/mond.gif" alt=":mond" /></td>
  77.         <td>:#</td>
  78.         <td><img src="images/bloos.gif" alt=":#" /></td>
  79.       </tr>
  80.       <tr>
  81.         <td>:@</td>
  82.         <td><img src="images/mad.gif" alt=":@" /></td>
  83.         <td>:bigg</td>
  84.         <td><img src="images/biggrin.gif" alt=":bigg" /></td>
  85.       </tr>
  86.       <tr>
  87.         <td>:lijst</td>
  88.         <td><img src="images/lijstje.gif" alt=":lijst" /></td>
  89.         <td>:bier</td>
  90.         <td><img src="images/bier.gif" alt=":bier" /></td>
  91.       </tr>
  92.       <tr>
  93.         <td>:king</td>
  94.         <td><img src="images/koning.gif" alt=":king" /></td>
  95.         <td>&nbsp;</td>
  96.         <td>&nbsp;</td>
  97.       </tr>
  98.       <tr>
  99.         <td colspan="4">&nbsp;</td>
  100.       </tr>
  101.       <tr>
  102.         <td colspan="4">Type de code om de smily in te voeren!</td>
  103.       </tr>
  104.       </table>
  105.   </div>
  106. </form>
  107. </body>
  108. </html>


Sla op als defschrijven.asp:

asp code - Bekijk de code zonder highlighting - Klap code in 
  1. <title>defSchrijven</title><%
  2.  
  3. 'Dimension variables
  4. Dim adoCon       'Holds the Database Connection Object
  5. Dim rsAddComments    'Holds the recordset for the new record to be added to the database
  6. Dim strSQL      'Holds the SQL query for the database
  7.  
  8. 'Create an ADO connection odject
  9. Set adoCon = Server.CreateObject("ADODB.Connection")
  10.  
  11. 'Set an active connection to the Connection object using a DSN-less connection
  12. adoCon.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("gastenboek.mdb")
  13.  
  14. 'Set an active connection to the Connection object using DSN connection
  15. 'adoCon.Open "DSN=guestbook"
  16.  
  17. 'Create an ADO recordset object
  18. Set rsAddComments = Server.CreateObject("ADODB.Recordset")
  19.  
  20. 'Initialise the strSQL variable with an SQL statement to query the database
  21. strSQL = "SELECT gastenboek.naam, gastenboek.email, gastenboek.bericht FROM gastenboek;"
  22.  
  23. 'Set the cursor type we are using so we can navigate through the recordset
  24. rsAddComments.CursorType = 2
  25.  
  26. 'Set the lock type so that the record is locked by ADO when it is updated
  27. rsAddComments.LockType = 3
  28.  
  29. 'Open the tblComments table using the SQL query held in the strSQL varaiable
  30. rsAddComments.Open strSQL, adoCon
  31.  
  32. 'Tell the recordset we are adding a new record to it
  33. rsAddComments.AddNew
  34.  
  35. 'Add a new record to the recordset
  36. rsAddComments.Fields("naam") = Request.Form("Naam")
  37. rsAddComments.Fields("email") = Request.Form("E-mail")
  38. rsAddComments.Fields("bericht") = Request.Form("textarea")
  39.  
  40. 'Write the updated recordset to the database
  41. rsAddComments.Update
  42.  
  43. 'Reset server objects
  44. rsAddComments.Close
  45. Set rsAddComments = Nothing
  46. Set adoCon = Nothing
  47.  
  48. 'Redirect to the guestbook.asp page
  49. Response.Redirect "index.asp"
  50. %>
Download code! Download code (.txt)

Download dit script!
 Stemmen
Niet ingelogd.

 Reacties
Post een reactie
Lees de reacties (5)
© 2002-2024 Sitemasters.be - Regels - Laadtijd: 0.041s