%@LANGUAGE = JScript%> <% /* Autore: Lorenz */ // ----- ----- ----- ----- ----- ----- ----- ----- ----- ----- ----- ----- ----- ----- ----- ----- ----- ----- ----- ----- // PASSWORD DI AMMINISTRATORE var admin_password = "bookpass"; // ----- ----- ----- ----- ----- ----- ----- ----- ----- ----- ----- ----- ----- ----- ----- ----- ----- ----- ----- ----- Response.Buffer = true; // APRO LA CONNESSIONE VERSO IL DATABASE // SE SUL TUO SERVER HAI NECESSITA' DI SPOSTARE IL DATABASE IN UNA CARTELLA DI SISTEMA DEDICATA // DEVI MODIFICARE IL PERCORSO NELLA PORZIONE DI CODICE Server.MapPath("percorso/guestbook.mdb") var connessione = new ActiveXObject("ADODB.Connection"); var stringa = "driver={Microsoft Access Driver (*.mdb)};dbq=" + Server.MapPath("mdb-database/guestbook.mdb"); connessione.Open(stringa); var azione = new String(Request.QueryString("azione")); // CONTO I MESSAGGI PREDENTI SUL DATABASE var conta = connessione.Execute("SELECT COUNT(*) AS id FROM messaggi"); // EFFETTUO LA PAGINAZIONE PER MOSTRARE SOLO UN CERTO NUMERO DI MESSAGGI A VIDEO // IN QUESTO CASO 10 var quanti = 10; var Mostra = new ActiveXObject("ADODB.Recordset"); Mostra.Open("SELECT * FROM messaggi ORDER BY id DESC",connessione,1); var pagina = parseInt(Request.QueryString("pagina")); if (isNaN(pagina) || pagina < 1) pagina = 1; if (!Mostra.EOF) { Mostra.PageSize = quanti; Mostra.AbsolutePage = pagina; } var i = 0; var colore = 0; %>
|
Benvenuto su DeadLikeMe.it - Il sito dedicato alla serie televisiva omonima... |
|
|
GuestbookCi sono <%=conta("id")%> messaggi - Firma anche tu <% if (azione == "undefined") { %>
"); // CASO IN CUI TUTTE LE CONDIZIONI SONO STATE SODDISFATTE // QUINDI PROCEDO CON LA REGISTRAZIONE DEL MESSAGGIO var recordset = new ActiveXObject("ADODB.Recordset"); recordset.Open("messaggi",connessione,3,3); recordset.AddNew(); recordset("nome") = nome; recordset("email") = email; recordset("avatar") = avatar; recordset("homepage") = homepage; recordset("titolo") = titolo; recordset("messaggio") = rrrr_messaggio; recordset("data") = data; recordset("ora") = ora; recordset.Update(); recordset.Close(); Response.Redirect("messaggi.asp"); } } else if (azione == "errore") { // GESTIONE DEI MESSAGGI DI ERRORE var codice = parseInt(Request.QueryString("codice")); var correggi = " "; if (codice == "1") { Response.Write(" Inserisci il tuo nome per favore " + correggi); } else if (codice == "2") { Response.Write("Inserisci la tua email per favore " + correggi); } else if (codice == "2") { Response.Write("Inserisci la tua email per favore " + correggi); } else if (codice == "3") { Response.Write("Inserisci il titolo del messaggio per favore " + correggi); } else if (codice == "4") { Response.Write("Inserisci un messaggio per favore " + correggi); } else { Response.Redirect("messaggi.asp"); } } else if (azione == "Login") { // LOGIN PER L'AMMINISTRATORE var password = new String(Request.Form("password")); if (password == admin_password) { Session("amministratore") = "OK"; } Response.Redirect("messaggi.asp"); } else if (azione == "Logout") { // LOGOUT PER L'AMMINISTRATORE Session.Abandon(); Response.Redirect("guestbook.asp"); } else if (azione == "Cancella") { // EFFETTUO LA CANCELLAZIONE DEL MESSAGGIO (SOLO SE AUTENTICATO) if (Session("amministratore") != null) { var id = parseInt(Request.QueryString("id")); connessione.Execute("DELETE * FROM messaggi WHERE id LIKE '" + id + "'"); } Response.Redirect("messaggi.asp"); } else { Response.Redirect("messaggi.asp"); } %>
<%
// CREO LA BARRA DI NAVIGAZIONE PER VISITARE "TUTTE LE PAGINE" CONTENENTI I VECCHI MESSAGGI
for (var x=0; x
| |
|
La serie Dead Like Me è Copyrights Metro-Goldwyn-Mayer Studios Inc Tutto il materiale presente nel sito è qui disponibile per consultazione gratuita |
<%connessione.Close()%>