Brugernavn:



Kodeord: Husk
Forside Forum Artikler Downloads Søg
 

Lær at lave en Gæstebog (med Mysql som db)

Forord

I denne artikel gennemgår jeg hvordan man laver en gæstebog med Mysql som database. Vi vil ikke bruge nogle avancerede funktioner da den er henvendt til ekstremt nybegyndere, eventuelt folk der ikke har anden baggrund end mine foregående artikler.

Hej,
Dette er min fjerde artikel om ASP. Hvis du ikke har så stor erfaring med ASP kan jeg anbefale at du læser mine tidligere artikler:
1: http://rowl.dk/Articles/1
2: http://rowl.dk/Articles/8
3: http://rowl.dk/Articles/36

For at kunne lave en Gæstebog..
..er det vigtigt at man gør sig klart at man behøver et sted at lægge sine gæstebogsbeskeder henne. Det kunne fx være en tekstfil, Acces database eller Mysql database. I denne artikel vil jeg bruge en Mysql database, men det burde ikke vare længe at omskrive den til Accesbrugere også.

De filer vi skal bruge for at lave gæstebogen er:
gb.sql " filen med vores databaseinformationer
read.asp " læser gæstebogsbeskederne, med skrivform
write.asp " skriver gæstebogsbeskederne

Jeg laver artiklen så personer der har læst mine tidligere artikler kan være med, derfor er det kun det mest basale jeg vil lave.

GB.SQL
  1. CREATE TABLE `gb` (
  2.   `navn` varchar(100) NOT NULL default "",
  3.   `email` varchar(100) NOT NULL default "",
  4.   `www` varchar(100) NOT NULL default "",
  5.   `besked` text NOT NULL,
  6.   `ip` varchar(100) NOT NULL default "",
  7.   `id` int(11) NOT NULL auto_increment,
  8.   `dato` varchar(100) NOT NULL default "",
  9.   PRIMARY KEY  (`id`)
  10. ) TYPE=MyISAM AUTO_INCREMENT=2 ;
Denne kode opretter den Mysqltabel som vi skal bruge til at lagre vores data. Du kan fx indsætte koden i phpmyadmin så laver den tabellen for dig.

READ.ASP
Som navnet lyder er det den fil der læser beskederne. Ud over det placerer vi også en formular som sender information til write.asp.
Jeg viser hele koden på én gang men jeg har forsøgt at kommentere de vigtige ting:
  1. <%
  2. " VORES DATABASE-CONNECT [UDSKIFT DEM MED DINE EGNE]
  3. Set Conn = Server.CreateObject("ADODB.Connection")
  4. Conn.ConnectionString="DRIVER={MySQL};SERVER=localhost;DATABASE=database;UID=userid;PWD=password;"
  5. Conn.Open
  6. %>

  8. <!-- FORMEN DER VIDEREGIVER BESKEDEN (START) -->
  9. <table>
  10. <form method="post" action="write.asp">
  11.  <tr>
  12.   <td>
  13. Navn:
  14.   </td>
  15.   <td>
  16. <input type="input" name="navn" style="width:150px;">
  17.   </td>
  18.  </tr>

  20.  <tr>
  21.   <td>
  22. Email:
  23.   </td>
  24.   <td>
  25. <input type="input" name="email" style="width:150px;">
  26.   </td>
  27.  </tr>

  29.  <tr>
  30.   <td style="padding-right:20px;">
  31. Hjemmeside:
  32.   </td>
  33.   <td>
  34. <input type="input" name="www" style="width:150px;">
  35.   </td>
  36.  </tr>

  38.  <tr>
  39.   <td valign="top">
  40. Besked:
  41.   </td>
  42.   <td>
  43. <textarea name="besked" style="width:250px;height:100px;"></textarea>
  44.   </td>
  45.  </tr>

  47.  <tr>
  48.   <td>
  49.   </td>
  50.   <td>
  51. <input type="submit" value="Skriv beskeden" style="width:150px;">
  52.   </td>
  53.  </tr>
  54. </form>
  55. </tr>
  56. </table>
  57. <!-- FORMEN DER VIDEREGIVER BESKEDEN (SLUT) -->
  58. <br>
  59. <%
  60. " VI HENTER BESKEDERNE UD, SORTERET MED NYESTE øVERST
  61. strSQL = "Select * from gb order by id desc"
  62. Set rs = Conn.Execute(strSQL)
  63. If rs.eof then
  64. Response.Write "Der er ingen beskeder i gæstebogen"
  65. Else
  66. " VI KøRER EN LøKKE FOR HVER AF BESKEDERNE
  67. Do

  69. " HVIS EMAILFELTET IKKE ER UDFYLDT
  70. " SKAL NAVNET IKKE VæRE ET LINK, ELLERS SKAL DET
  71. if rs("email") = "" then
  72. navn = "<b>" & rs("navn") & "</b>"
  73. else
  74. navn = "<a href="mailto:"& rs("email") &""><b>" & rs("navn") & "</b></a>"
  75. end if

  77. " HVIS WWWFELTET IKKE ER UDFYLDT
  78. " SKAL DER IKKE VæRE ET LINK, ELLERS SKAL DER
  79. if rs("www") = "" then
  80. www = ""
  81. else
  82. www = " - <a target="_blank" href="http://"& rs("www") &""><b>" & rs("www") & "</b></a>"
  83. end if

  85. " HER UDSKRIVES INFORMATIONERNE
  86.    Response.Write navn & www & " skrev d. "& rs("dato") &":<br>"
  87.    Response.Write rs("besked") & "<br><br>"
  88.   
  89. rs.MoveNext
  90. Loop While Not rs.EOF
  91. End if

  93. " LUKKER FOR ADGANGEN TIL DATABASEN
  94. Set RS = Nothing
  95. Conn.Close
  96. Set Conn = Nothing
  97. %>

WRITE.ASP
Den sidste fil vi mangler er den fil som skriver beskeden (som vi fik fra formularen) ind i databasetabellen.
Også den er kommenteret:

  1. <%
  2. " VORES DATABASE-CONNECT [UDSKIFT DEM MED DINE EGNE]
  3. Set Conn = Server.CreateObject("ADODB.Connection")
  4. Conn.ConnectionString="DRIVER={MySQL};SERVER=localhost;DATABASE=database;UID=userid;PWD=password;"
  5. Conn.Open

  7. " HVIS NAVNFELTET IKKE ER UDFYLDT SæTTES VARIABLEN ALERT TIL 1
  8. " OG DER UDSKRIVES EN FEJLBESKED
  9. if request.form("navn") = "" then
  10. alert = 1
  11. response.write "- Feltet <b>navn</b> skal udfyldes<br>"
  12. end if

  14. " HVIS BESKEDFELTET IKKE ER UDFYLDT SæTTES VARIABLEN ALERT TIL 1
  15. " OG DER UDSKRIVES EN FEJLBESKED
  16. if request.form("besked") = "" then
  17. alert = 1
  18. response.write "- Feltet <b>besked</b> skal udfyldes"
  19. End if

  21. " HVIS VARIABLEN ALERT IKKE ER SAT TIL 1
  22. " INDSæTTER VI DEN NYE BESKED I DATABASEN
  23. if alert <> 1 then

  25. " VI UDSKIFTER " MED "" (SOM GIVER SAMME RESULTAT)
  26. " ELLERS BROKKER MYSQL SIG
  27. navn = replace(request.form("navn"), """, """")
  28. email = replace(request.form("email"), """, """")
  29. besked = replace(request.form("besked"), """, """")
  30. www = replace(request.form("www"), """, """")
  31. " VI FJERNER HTTP:// FRA WWW-FELTET
  32. www = replace(www, "http://", "")

  34. " VI UDSKIFTER < MED < Så MAN IKKE KAN BRUGE HTML
  35. navn = replace(navn, "<", "<")
  36. email = replace(email, "<", "<")
  37. besked = replace(besked, "<", "<")
  38. www = replace(www, "<", "<")


  41. strSQL = "Insert into gb ("

  43. strSQL = strSQL & "dato, "
  44. strSQL = strSQL & "ip, "
  45. strSQL = strSQL & "navn, "
  46. strSQL = strSQL & "email, "
  47. strSQL = strSQL & "www, "
  48. strSQL = strSQL & "besked) "

  50. strSQL = strSQL & "values( "

  52. strSQL = strSQL & """& Day(date) &"/"& month(date) &"-"& year(date) &"", "
  53. strSQL = strSQL & """& Request.ServerVariables("REMOTE_ADDR") &"", "
  54. strSQL = strSQL & """& navn &"", "
  55. strSQL = strSQL & """& email &"", "
  56. strSQL = strSQL & """& www &"", "
  57. strSQL = strSQL & """& besked &"")"
  58.  
  59. Conn.Execute(strSQL)

  61. " VI SENDER BRUGEREN TILBAGE TIL READ.ASP,
  62. " HVOR DEN NYE BESKED ER FREMKOMMET
  63. response.redirect "read.asp"
  64. end if

  66. " LUKKER FOR ADGANGEN TIL DATABASEN
  67. Set RS = Nothing
  68. Conn.Close
  69. Set Conn = Nothing
  70. %>

Jeg vil ikke råde jer til bare at copy/paste, men scriptet er testet igennem for fejl.
Det er en tro kopi af de filer vi har brugt her.

Det var alt for denne gang.
Sidst redigeret 22:12 28/06/2009
Oprettet af:
Micra

ASP

Point modtaget: 0

Rate:
20:51 13/01/2006

Kommentarer

Giv din mening tilkende om denne artikel, eller læs andres.
Har du spørgsmål eller brug for hjælp til denne artikel henvises du til forummet.
kan man ikke også godt skrive:
  1. day = Day(date)
  2. month = month(date)
  3. year = year(date)
  4. ip = Request.ServerVariables("REMOTE_ADDR")
  5. strSQL = "Insert into gb (dato, ip, navn, email, www, besked) values ("&day&", "&month&", "&year&", &"ip&", "&navn&", "&email&", "&www&", "&besked&"")
  6. Conn.Execute(strSQL)
i stedet for:
  1. #
  2. strSQL = "Insert into gb ("
  3. #

  5. #
  6. strSQL = strSQL & "dato, "
  7. #
  8. strSQL = strSQL & "ip, "
  9. #
  10. strSQL = strSQL & "navn, "
  11. #
  12. strSQL = strSQL & "email, "
  13. #
  14. strSQL = strSQL & "www, "
  15. #
  16. strSQL = strSQL & "besked) "
  17. #

  19. #
  20. strSQL = strSQL & "values( "
  21. #

  23. #
  24. strSQL = strSQL & """& Day(date) &"/"& month(date) &"-"& year(date) &"", "
  25. #
  26. strSQL = strSQL & """& Request.ServerVariables("REMOTE_ADDR") &"", "
  27. #
  28. strSQL = strSQL & """& navn &"", "
  29. #
  30. strSQL = strSQL & """& email &"", "
  31. #
  32. strSQL = strSQL & """& www &"", "
  33. #
  34. strSQL = strSQL & """& besked &"")"
  35. #

  37. #
  38. Conn.Execute(strSQL)
Oprettet af:
fyhring4
  Mail
18:38 22/10/2009
Forrige
Side af 2
Du skal være oprettet og logget ind for at kommentere en artikel
Copyright © Rowl.dk v/ Michael Raagaard | 2005-12 | Alle rettigheder forbeholdes