login  Naam:   Wachtwoord: 
Registreer je!
 Scripts:
Scripts > ASP > Gastenboeken > Gastenboek(met smilies)(zonder admin)

Gastenboek(met smilies)(zonder admin)

Auteur: J.Z.N./WebPaulsky - 21 december 2004 - 18:51 - Gekeurd door: Dennisvb - Hits: 4121 - Aantal punten: 4.50 (3 stemmen)




Lees alles hieronder,

Veel plezier ermee

Code:
**schrijven.asp**
php code - Bekijk de code zonder highlighting - Klap code in 
  1. <html>
  2. <head>
  3. <title>Berichten versturen</title>
  4. </head>
  5. <body>
  6. <form action="defSchrijven.asp" name="Forumulier1" id="Forumulier1" method="post"> 
  7. <table width="600" height="30">
  8.       <td width="327"> <a href="index.asp">Gastenboek Home</a> - <a href="schrijven.asp">Bericht 
  9.         Schrijven</a> - <A href="mailto:vis@websitenet.nl">Contact</A></td>
  10. </table>
  11.   <table width="30%" border="0">
  12.     <tr>
  13.       <td width="27%">Naam*:</td>
  14.       <td width="73%"><input name="Naam" type="text" id="Naam"></td>
  15.     </tr>
  16.     <tr>
  17.       <td>E-mail*:</td>
  18.       <td><input name="E-mail" type="text" id="E-mail"></td>
  19.     </tr>
  20.     <tr>
  21.       <td>Bericht:</td>
  22.       <td><textarea name="textarea" cols="40" rows="4"></textarea>
  23.       </td>
  24.     </tr>
  25.     <tr>
  26.       <td colspan="2"><div align="right">
  27.           <input name="Wis invoer" type="reset" id="Wis invoer" value="Wis invoer">
  28.           <input name="Verstuur" type="submit" id="Verstuur" value="Verstuur">
  29.         </div></td>
  30.     </tr>
  31.   </table>
  32.   <br>
  33.   <font color="#FF0000">Velden met een * erachter zijn verplicht</font>
  34.   <br>
  35.   :buig <img src="images/worshippy.gif"> | :P  <img src="images/tongue.gif"> | :) <img src="images/smile1.gif"> | :nerd <img src="images/nerd.gif"> | :mond <img src="images/mond.gif"> | :@ <img src="images/mad.gif"> | :lijst <img src="images/lijstje.gif""> | :king <img src="images/koning.gif"> | ;) <img src="images/knipoog.gif"> | :heilig <img src="images/hypo.gif"> | :evil <img src="images/evil.gif"> | :cry <img src="images/cry.gif"> | :8 <img src="images/cool.gif"> | :cheer <img src="images/cheer.gif"> | :# <img src="images/bloos.gif""> | :bigg <img src="images/biggrin.gif"> | :bier <img src="images/bier.gif"> 
  36.   <br>&copy; by <A href="http://webpaulsky.flance-hosting.com" target="_blank">WebPaulsky's 
  37.   Webscript's</a> 
  38. </form>
  39. </body>
  40. </html>


**INDEX.ASP**
php code - Bekijk de code zonder highlighting - Klap code in 
  1. <%
  2. function addSmileys(strBericht)
  3.   strBericht = replace(strBericht, ":buig", "<img src=""images/worshippy.gif"">", 1, -1, 1)
  4.   strBericht = replace(strBericht, ":P", "<img src=""images/tongue.gif"">", 1, -1, 1)
  5.   strBericht = replace(strBericht, ":)", "<img src=""images/smile1.gif"">", 1, -1, 1)
  6.   strBericht = replace(strBericht, ":nerd", "<img src=""images/nerd.gif"">", 1, -1, 1)
  7.   strBericht = replace(strBericht, ":mond", "<img src=""images/mond.gif"">", 1, -1, 1)
  8.   strBericht = replace(strBericht, ":@", "<img src=""images/mad.gif"">", 1, -1, 1)
  9.   strBericht = replace(strBericht, ":lijst", "<img src=""images/lijstje.gif"">", 1, -1, 1)
  10.   strBericht = replace(strBericht, ":king", "<img src=""images/koning.gif"">", 1, -1, 1)
  11.   strBericht = replace(strBericht, ";)", "<img src=""images/knipoog.gif"">", 1, -1, 1)
  12.   strBericht = replace(strBericht, ":heilig", "<img src=""images/hypo.gif"">", 1, -1, 1)
  13.   strBericht = replace(strBericht, ":evil", "<img src=""images/evil.gif"">", 1, -1, 1)
  14.   strBericht = replace(strBericht, ":cry", "<img src=""images/cry.gif"">", 1, -1, 1)
  15.   strBericht = replace(strBericht, ":8", "<img src=""images/cool.gif"">", 1, -1, 1)
  16.   strBericht = replace(strBericht, ":cheer", "<img src=""images/cheer.gif"">", 1, -1, 1)
  17.   strBericht = replace(strBericht, ":#", "<img src=""images/bloos.gif"">", 1, -1, 1)
  18.   strBericht = replace(strBericht, ":bigg", "<img src=""images/biggrin.gif"">", 1, -1, 1)
  19.   strBericht = replace(strBericht, ":bier", "<img src=""images/bier.gif"">", 1, -1, 1)
  20.   addSmileys = strBericht
  21. end function
  22. %>
  23. <html>
  24. <head>
  25. <title>Berichten bekijken</title>
  26. </head>
  27. <body>
  28. <form>
  29. <table width="400" height="30">
  30. <td width="392">
  31. <a href="index.asp">Gastenboek Home</a> - <a href="schrijven.asp">Bericht Schrijven</a> - <a href="mailto:vis@websitenet.nl">Contact</A>
  32. </td>
  33. </table>
  34. <table width="401" height="121">
  35. <td width="393" valign="top"><%
  36. 'Variabelen toekennen
  37. Dim adoCon 'Dit doet de Connectie met de Database
  38. Dim rsGuestbook 'Dit doet de records uit de database halen
  39. Dim strSQL 'En dit doet hoe je de recrods uit de database wilt halen
  40.  
  41. 'Hier maken we een ADO connection odject
  42. Set adoCon = Server.CreateObject("ADODB.Connection")
  43.  
  44. 'Nou, hier zetten we een DSN-less connectie op met de pad van de database
  45. adoCon.ConnectionString="PROVIDER=Microsoft.Jet.OLEDB.4.0;DATA SOURCE="&Server.MapPath("gastenboek.mdb") &";Persist Security Info=False"
  46. adoCon.Open 
  47.  
  48. 'Set an active connection to the Connection object using DSN connection
  49. 'adoCon.Open "DSN=guestbook"
  50.  
  51. 'Recordset openen
  52. Set rsGuestbook = Server.CreateObject("ADODB.Recordset")
  53.  
  54. 'De variablelen van de SQL openen. En de tabbelen uit de database
  55. strSQL = "SELECT gastenboek.naam, gastenboek.email, gastenboek.bericht FROM gastenboek;"
  56.  
  57. 'Alle troep openen
  58. rsGuestbook.Open strSQL, adoCon
  59.  
  60. 'En steeds overnieuw beginnen
  61. Do While not rsGuestbook.EOF
  62.  
  63. 'En dan alles opschrijven op de HTML pagina
  64. Response.Write ("<br>")
  65. Response.Write (rsGuestbook("Naam"))
  66. Response.Write ("<br>")
  67. Response.Write (rsGuestbook("Email"))
  68. Response.Write ("<br>")
  69. Response.Write (addSmileys(rsGuestbook("Bericht")))
  70. Response.Write ("<hr>")
  71.  
  72. 'En ga naar de volgende record
  73. rsGuestbook.MoveNext
  74.  
  75. Loop
  76.  
  77. 'En alle troep sluiten
  78. 'Reset server objects
  79. rsGuestbook.Close
  80. Set rsGuestbook = Nothing
  81. Set adoCon = Nothing
  82. %></td>
  83. </table>
  84.  &copy; by <A href="http://webpaulsky.flance-hosting.com" target="_blank">WebPaulsky's Webscript's</a>
  85. </form>
  86. </body>
  87. </html>


**defSchrijven.asp**
php code - Bekijk de code zonder highlighting - Klap code in 
  1. <%
  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. %>


Verander het email adres even in de index en schrijf pagina en laat de copyirght staan staat de copyirght erniet ?? dan verleen ik geen hulp

Download de database hier
http://i.domaindlx.com/test99/gastenboek.mdb zelf even leeg maken 

Demo:
hierzoDownload code! Download code (.txt)

 Bekijk een voorbeeld van dit script!
 Stemmen
Niet ingelogd.

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