<%@LANGUAGE = JScript%> <% /* Autore: Luca Ruggiero - http://www.lukeonweb.net Fonte: freeAsp.it - http://freeasp.html.it */ // ----- ----- ----- ----- ----- ----- ----- ----- ----- ----- ----- ----- ----- ----- ----- ----- ----- ----- ----- ----- // QUESTA E' LA PASSWORD DI AMMINISTRATORE PER ELIMINARE MESSAGGI INDESIDERATI... CAMBIALAAAAAAAAAAAAAAA :-) var admin_password = "franco"; // ----- ----- ----- ----- ----- ----- ----- ----- ----- ----- ----- ----- ----- ----- ----- ----- ----- ----- ----- ----- /* ASPETTI DELLA CONFIGURAZIONE DELL'APPLICAZIONE NON CONTEMPLATI NEI SINGOLI PASSAGGI DI CODICE Pur trattandosi di un semplice Guestbook, questo singolo file consente di effettare tutte le operazioni possibili. A tal proposito necessario puntualizzare alcune cose: 1. E' importante, qualora dovessi decidere di rinominare questo file, modificare tutti i punti in cui si fa riferimento al file guestbook.asp sostituendo col nome del file che hai utilizzato per la rinomina. 2. La grafica personalizzabile in tutti i minimi particolari, ma importante non confondere alcuna condizione del codice Asp evitando che generino errori. Gli altri punti cardine dell'applicazione sono contemplati seguendo i vari passi del codice. */ // ----- ----- ----- ----- ----- ----- ----- ----- ----- ----- ----- ----- ----- ----- ----- ----- ----- ----- ----- ----- 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("public/guestbook.mdb"); connessione.Open(stringa); // UTILIZZEREMO UN SOLO FILE PER ESEGUIRE TUTTE LE OPERAZIONI POSSIBILI // INSERIMENTO DEI MESSAGGI, VISUALIZZAZIONE DEI MESSAGGI, CANCELLAZIONE DI MESSAGGI DA PARTE DELL'AMMINISTRATORE, ECC... // QUINDI DICHIARO UNA VARIABILE QUERYSTRING PER OTTENERE RISULTATI DIVERSI A SECONDA DEL LORO VALORE 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; // IMPOSTO IL COLORE DI SFONDO DELLE CELLE CHE CONTENGONO I MESSAGGI var colore = 0; %> Franco Cavazzoli Guestbook
 

Franco Cavazzoli Guestbook

Per evitare continui inserimenti di messaggi derivanti da fonti false

chi desidera lasciare un messaggio

invii una mail al webmaster indicando :

1) data

2) destinatario (Effeci Website)

3) mittente (nome, cognome, luogo, e-mail, pagina web...)

4) messaggio

che sar poi pubblicato online : leggi il Guestbook.

<%connessione.Close()%>