25 novembre 2002 alle 15:34:26 Io lo sto usando come intranet, con Rubrica e pagine che puntano ad altri database SQL. E funziona benino.
--------------- ;-)>
saxon Principiante
17 Discussioni
26 novembre 2002 alle 08:43:45 Grazie della vostra disponibilità,
ora sto studiandomi la struttura del sistema per poter intervenire in modo corretto ed efficace,
a tale proposito chiedo a Mrok se può passarmi istruzioni su come ha potuto inserire nuovi moduli nel sistema, rubrica, pagine nuove, ecc...
per ora vi ringrazio e vi farò sapere quando sarò pronto.
Mrok Amatore
39 Discussioni
26 novembre 2002 alle 17:13:30 Ciao, Innanzitutto ho creato un database nuovo per la rubrica nella cartella db,e ho aggiunto nel file configuration-inc.asp la
costante 'Const DB_RUBRICA = "Rubrica"'. Ho pensato di rendere la Rubrica accessibile solo agli utenti registrati quindi nel codice che ti proporro vedrai l'utilizzo
della funzione AccessOnly.
Ho usato un form per la ricerca all'interno della rubrica che usa metodi di ricerca per Cognome, Nome, Indirizzo, Città o
Nome Società, come puoi vedere dal codice qui sotto. Nella stessa pagina ho inserito un link per l'aggiunta di un nuovo 'Contatto' (Record della rubrica).
<% CreateTopTable "Rubrica", "Risultato della Ricerca:" %>
<% Dim dbConn Dim rs Dim TestoSql Dim TestoOriginale Dim TestoDaCercare Dim TipoRicerca Dim CampoRicerca
TestoOriginale=Request.QueryString("Testo") TestoDaCercare=Replace(TestoOriginale,"'","''") TipoRicerca=Request.QueryString("Tipo") CampoRicerca=Request.QueryString("Campo") TestoSql="SELECT * FROM Contatti" Set dbConn=DBConnexion(DB_RUBRICA)
'******** Creo la stringa Sql per la ricerca nel db in base alla selezione effettuata nel form
Select Case CampoRicerca Case "Cognome" If TipoRicerca="Contenuto" Then TestoSql=TestoSql & " WHERE Cognome LIKE '%" & TestoDaCercare & "%'" else TestoSql=TestoSql & " WHERE Cognome LIKE '" & TestoDaCercare & "%'" end if
' ****** etc. etc. etc.
Case else
End Select
TestoSql=TestoSql & " ORDER BY NomeSocietà "
dbConn.open Set rs=Server.CreateObject("ADODB.Recordset") rs.Open TestoSql, dbConn %>
'************** Creo le intestazioni della tabella dei risultati
' **** Ora controllo se l'utente ha i permessi per modificare o eliminare i record della rubrica ' **** e in caso affermativo creo due link che puntano alle pagine di modifica o eliminazione
<% If iRole >= ROLE_NEWS then %> <td> <a href="itg-frmAddRubrica.asp?IDC=<%=Rs("IDContatto")%>">Mod</a>-<a
href="itg-DelRubrica.asp?IDC=<%=Rs("IDContatto")%>">Del</a></td> <% End If %> </tr><tr><td></td></tr>
'***** Questa riga serve per variare il colore di sfondo da una riga all'altra (per una migliore lettura)
Per l'aggiunta di un nuovo record ( o modifica) ho usato un'altro form che viene riempito o meno a seconda che venga chiamato
dal pulsante 'Nuovo Contatto' o 'Mod' tramite un IF .
L'inserimento o modifica viene quindi inviato al database tramite il codice
Dim objConn
Set objConn=DBConnexion(DB_RUBRICA)
DBexecute objConn, strsql
If err.number>0 then response.write"<p> Attenzione Errore Nello Script</p>"
elseif objConn.errors.count>0 then response.write "<p>I dati inseriti non sono corretti</p>" else response.write "<p>Dati Registrati</p>"
end if
dove strsql è la stringa costruita che contiene:
'INSERT INTO NomeTabella (NomeCampo, ...) Values('" & Valore & "', ...) etc etc' per inserire un nuovo record
oppure
'UPDATE NomeTabella SET NomeCampo='" & Valore & "', .... WHERE ID=" & Valore ID & " etc. etc' per modificare un record
esistente
Il Click su Del (per l'eliminazione del record) causa invece la chiamata di un apposito file .asp al quale viene passato l'ID
<% CreateTopTable "Rubrica", "Risultato della Ricerca:" %>
<%
Dim IDC,strsql
IDC=Request.QueryString("IDC")
strsql="DELETE FROM Contatti WHERE IDContatto=" & IDC Dim objConn
Set objConn=DBConnexion(DB_RUBRICA)
DBexecute objConn, strsql
If err.number>0 then response.write"<p> Attenzione Errore Nello Script</p>"
elseif objConn.errors.count>0 then response.write "<p>I dati inseriti non sono corretti</p>" else response.write "<p>Dati Eliminati</p>"
Viene mostrata dopo ogni operazione una pagina che indica l'esatta esecuzione delle operazioni sulla quale c'è un OK che ci
rimanda alla form di ricerca della rubrica.
A questo punto puoi creare una voce nel Menu che punti al form di ricerca della rubrica seguendo le istruzioni sul sito, e magari pensare anche al file pages-inc.asp.
Naturalmente tutto quello che qui ho presentato è una versione molto spartana di una Rubrica in ASP-Nuke, molte cose
potrebbero essere migliorate. Visto che le mie spiegazioni sono sempre un po' contorte, Se c'è qualcosa che non ti è chiaro fammi sapere.
Spero comunque di esserti stato d'aiuto, e aspetto correzioni e consigli dai frequentatori di ASP-Nuke.it.
P.S. (Anna) Fammi sapere se i miei post sono troppo lunghi.
--------------- ;-)>
saxon Principiante
17 Discussioni
28 novembre 2002 alle 10:24:09 Grazie Mrok proverò al più presto la tua soluzione e ti farò sapere
saxon Principiante
17 Discussioni
28 novembre 2002 alle 13:51:17 Mrok SEI UN MITO! Ho eseguito el tue istruzioni e dopo un paio di prove per aggiustamenti dovuti a mia scarsa (per ora) conoscenza della struttura di ASPNUK, ho sistemato tutto e funziona perfettamente, almeno la parte di ricerca, quella di modifica ed inserimento non lo ancora implementata, ma se tanto mi da tanto....
Grazie ancora, ti farò sapere se è andato tutto ok
28 novembre 2002 alle 14:24:37 saxon ... quando riesci, se riesci mi puoi mandare un pmessage per avvisarmi e vedere se puoi passsarmi questo "aspnuke.it elaborato"? vorrei provare a testarlo un po' ... no nsi sa mai potrebbe servire
31 luglio 2003 alle 11:17:08 Dai anche io ho avuto la vs stessa idea/necessità. La mia situazione al momento richiede la necessità di creare: 1) un database per la gestione di una biblioteca interna alquanto voluminosa con la possibilità di essere consultata da tutti e modificata solo da pochi; 2) un database come sopra ma per la gestione di una biblioteca di riviste; 3) un indirizzario enorme; 4) la possibilità di utilizzare questo indirizzario come base per la gestione dell'invio di posta elettronica a gruppi di persone; e tante altre belle cosine...... chi si vuole cimentare un pochino.....io al momento sto realizzando la struttura dei 2 database.....di asp ne so ancora poca chi mi vuole aiutare?? (r) CIAO e grazie in anticipo
Log in
Cerca
Sostieni AspNuke
Un piccolo gesto per aiutarci a mantenere AspNuke.it online
Promo
MusicWebItalia.it Video Testi Traduzioni Spot Colonne sonore Accordi e Spartiti gratis.
Visitatori
Visitatori Correnti : 124 Membri : 0
Anna
Iscritti
Utenti: 18940
Ultimo iscritto : glauco Lista iscritti Messaggi privati: 3373Commenti: 2210Immagini: 39Downloads: 144Articoli: 49Pagine: 101Siti web: 425Notizie: 180Sondaggi: 11Preferiti: 201210Post sui forum: 51195Libro degli ospiti: 4Eventi: 7
Anna
Versione stampabile | Questa pagina è stata eseguita in 0,4804688 secondi.
PROPOSTE
ASP NUKE Come "intranet"
22 novembre 2002 alle 16:45:01 
![[feu]](/smileys/feu.gif)
22 novembre 2002 alle 18:07:45 
![[lo]](/smileys/coucou.gif)
28 novembre 2002 alle 13:51:17 