<%@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; %> Dead Like Me - GuestBook

Messaggi degli utenti su deadlikeme.it - lascia un messaggio anche tu ..!

Benvenuto su DeadLikeMe.it - Il sito dedicato alla serie televisiva omonima...

Guestbook

Ci sono <%=conta("id")%> messaggi - Firma anche tu

<% if (azione == "undefined") { %> <% // MOSTRO I MESSAGGI A VIDEO if (Mostra.EOF) { Response.Write("

Non ci sono messaggi...

"); } else while (!Mostra.EOF && i <% i++; colore++; Mostra.MoveNext(); } %>
" style="border-bottom: Dashed 1px #CCCCCC;"> <%=Mostra("titolo")%><%Session("amministratore") == "OK" ? Response.Write(" (cancella)") : Response.Write("")%>
Autore: "><%=Mostra("nome")%>
" width="80" height="80">
Data: <%=Mostra("data")%> ore <%=Mostra("ora")%>

<%=Mostra("messaggio")%> <%Mostra("homepage") == "http://" || Mostra("homepage") == "" || Mostra("homepage") == "undefined" ? Response.Write("") : Response.Write("

" + Mostra("homepage") + "")%>
<% } else if (azione == "Inserisci") { // RECUPERO I DATI DAL MODULO PER EFFETTUARE LA REGISTRAZIONE var nome = new String(Request.Form("nome")); var email = new String(Request.Form("email")); var avatar = new String(Request.Form("avatar")); var homepage = new String(Request.Form("homepage")); var titolo = new String(Request.Form("titolo")); var messaggio = new String(Request.Form("messaggio")); // ESPRESSIONE REGOLARE PER LA VERIFICA DELL'INDIRIZZO EMAIL var verifica = /^([a-zA-Z0-9_\.\-])+\@(([a-zA-Z0-9\-]{2,})+\.)+([a-zA-Z0-9]{2,})+$/; // CREO LA DATA var oggi = new Date(); var data = oggi.getDate() + "/" + (oggi.getMonth() + 1) + "/" + oggi.getFullYear(); var ora = oggi.getHours() + ":" + oggi.getMinutes(); // VALIDAZIONE DEI DATI INSERITI DALL'UTENTE var errore = "guestbook.asp?azione=errore&codice="; if (nome == "" || nome == "undefined" || nome.charAt(0) == " ") { Response.Redirect(errore + "1"); } else if (!verifica.test(email)) { Response.Redirect(errore + "2"); } else if (titolo == "" || titolo == "undefined" || titolo.charAt(0) == " ") { Response.Redirect(errore + "3"); } else if (messaggio == "" || messaggio == "undefined" || messaggio.charAt(0) == " ") { Response.Redirect(errore + "4"); } else { var r_messaggio = messaggio.replace(//g, ">"); var rrr_messaggio = rr_messaggio.replace(/&/g, "&"); var rrrr_messaggio = rrr_messaggio.replace(/\n/g, "
"); // 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" + (x + 1) + "] "); } else { Response.Write("[" + (x + 1) + "] "); } } %>



home page

La serie Dead Like Me è Copyrights Metro-Goldwyn-Mayer Studios Inc

Tutto il materiale presente nel sito è qui disponibile per consultazione gratuita 

Statistiche web e counter web <%connessione.Close()%>