Förord

Jag har på många, många webbplatser läst enormt många dåliga artiklar om hur du skapar sin egna gästbok. Alla ser likadana ut med tråkig layout redan ifrån första början. Så nu tänkte jag skriva en artikel om hur just Du, får världens tuffaste gästbok.

Innehåll

  » Formuläret
  » Hämtnings och sparsidan
  » Slut för denna gång

Skapa en prydlig gästbok. Del 1 av 2

Jag har på många, många webbplatser läst enormt många dåliga artiklar om hur du skapar din egen gästbok. Alla ser likadana ut med tråkig layout redan ifrån första början. Så nu tänkte jag skriva en artikel om hur just Du, får världens tuffaste gästbok.
Vi börjar med att skapa databasen. Det ska vara en access databas som du döper till database och sedan placerar i en mapp som du döper till databases.

I denna databas skapar du en tabell som döps till guestbook. Där placerar du in dessa 7 fält:

ID - Räknare
Writer - Text
IP - Text
MessageDate - Datum/Tid
WriterEmail - Text
WriterHomepage - Text
Message - PM

Formuläret

Jag tänkte att vi skulle börja med att skapa formuläret som skall användas för att skriva i gästboken. Detta bästa med detta formuläret är att det är väl anpassat för att användas på smala sidor och i en iFrame, vilket till många kan vara en fördel.
Formuläret kommer att innehålla tre fält exkl. det man skriver meddelandet i. Alltså innehåller det fyra fält och är prydligt uppsatt. Ett fält för Namn, ett för e-post och ett för hemsidan.


<script language="JavaScript" type="text/javascript">

</script>

Guestbook

Here you can leave me a note or something...

>> Read in guestbook <<

Döp den här sidan till "guestbook.asp".

Hämtnings och sparsidan

Som du kanske upptäckte i formuläret så kommer själva gästboken att öppnas i en popup. Detta därför att det är lätt att styla en popup på ett snyggt sätt.
Men nu tänkte jag att vi skulle skapa sidan som både hämtar och sparar meddelanden. Denna sida ska du döpa till "theguestbook.asp".


<%
'Öppnar databasen
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("databases/database.mdb")
%>
<% If Request.Querystring("page") = "save" Then 'Öppnar querystringen som sparar meddelandet %>
<%
'Sparar meddelandet
Writer = Request.Form("Writer")
IP = Request.ServerVariables("REMOTE_ADDR")
MessageDate = Date
WriterEmail = Request.Form("WriterEmail")
WriterHomepage = Request.Form("WriterHomepage")
Message = Request.Form("Message")

SQL = "Insert into guestbook(Writer,IP,MessageDate,WriterEmail,WriterHomepage,Message) Values ('"& Writer &"','"& IP &"','"& MessageDate &"','"& WriterEmail &"','"& WriterHomepage &"','"& Message &"')"
Conn.Execute(SQL)
Response.Redirect "guestbook.asp" 'Skickar vidare till guestbook.asp
%>

<% Else %>
 
<% End If %>
<%
'Öppnar gästboks-tabellen
Set rs = Conn.Execute("Select * From guestbook order by ID desc")
%>

Läs i gästboken

Här läser du i gästboken. Vi får hoppas att det finns några trevliga meddelanden här ;o)



<%
'Kollar ifall meddelanden behöver loopas ut
If not rs.EOF Then
Do Until rs.EOF
%>

" TITLE="<%=rs("IP")%>"><%=rs("Writer")%> (" TARGET="_blank">www) - <%=rs("MessageDate")%> - ID: <%=rs("ID")%>

<%=rs("Message")%>

<%
'Loopar ut alla meddelanden
rs.movenext
loop
'Om det inte finns några meddelanden visas ett meddelande
Else
Response.Write "Databasen innehåller inte några meddelanden..."
End If
'Stänger databaskopplingen
rs.close
set rs = nothing
conn.close
set conn = nothing
%>

Slut för denna gång

Här slutar del 1. I nästa del så kommer jag att visa hur du gör ett admin system till din gästbok. Efter den kursen ska du kunna styra hela din gästbok över webben.
Ha det bra fram till dess och kom ihåg att gästboken nu är duglig för användning. Så om du absolut inte MÅSTE ha admin till gästboken så är det bara att lägga upp den på din webbplats. Du hämtar gästboken här.

/Christoffer Lejdborg

0 Kommentarer

Skriv en kommentar på artikeln

Ditt betyg på artikeln

UtmärktLäsvärdIntressantMindre braDålig

Kommentar: