ASP – Creazione di un Guestbook per un sito | Pignatelli.com - programmazione e social media marketing

Home > ASP > ASP – Creazione di un Guestbook per un sito

ASP – Creazione di un Guestbook per un sito

4 Agosto 2008 Nicola Lascia un commento Vai ai commenti

Requisiti :

Server con IIS ( Internet Information Service), o PWS (Personal Web Server), installato;
Creazione file .mdb (formato Access) per inserire i messaggi creati dai visitatori;

Vi piacerebbe che i visitatori del vostro sito vi lasciassero dei messaggi di saluto o commenti sul vostro lavoro ? Ora con questo tutorial sarà possibile.

Per prima cosa dobbiamo creare il file di Access guestbook.mdb che conterrà il database. Creaiamo una tabella di nome guestbook con i seguenti campi :

ID : campo di tipo Contatore, univoco;
Nome : campo di tipo Testo contenente il nome del visitatore, lungo 255 caratteri;
Data : campo di tipo Data;
Ora : campo di tipo Orario;
Testo : campo di tipo Memo;
Email : campo di tipo testo, lungo 50 caratteri.

In questo tutorial si inserirà anche il codice per la paginazione dei risultati, cioè sarà possibile visualizzare un certo numero di record alla volta, ma si può anche tralasciare se non lo si vuole utilizzare.

le prime righe di codice ASP da inserire nella pagina di visualizzazione dei record esistenti , che io chiamerò index.asp, sono le seguenti :

1. <%
2. DIM valore, contatore, SqlString, ObjConn, ObjRS
3. valore=Request(”valore”)
4. if valore = “” then
5. valore = 1
6. end if
7. Set ObjConn = Server.CreateObject(”ADODB.Connection”)
8. ObjConn.Open “DRIVER={Microsoft Access Driver (*.mdb)};DBQ=” &
server.MapPath(”/database/guestbook.mdb”)
9. SqlString = “SELECT * FROM guestbook ORDER BY ID DESC”
10. Set ObjRS = Server.CreateObject(”ADODB.Recordset”)
11. ObjRS.open SqlString, ObjConn, 1, 3
12. ObjRS.PageSize = 4
13. ObjRS.AbsolutePage = CInt(valore)
14. if (CInt(valore) > 1) then
15. %>
16. << indietro |
17. <% end if
18. if (CInt(valore) < ObjRS.PageCount) then %>
19. avanti >>
20. <%
21. end if
22. For contatore=1 To 4
23. if not ObjRS.EOF then
24. %>
25. [qui inseriamo la visualizzazione dei record, spiegata più avanti]
26. <%
27. ObjRS.MoveNext
28. end if
29. next
30. ObjRS.Close
31. SET ObjRS = NOTHING
32. ObjConn.Close
33. SET ObjConn = NOTHING
34. %>