Ciao
nei miei programmi intranet utilizzo il metodo di includere in testa ai file ASP, una include di connessione e alla fine del file ASP una include di Disconnessione tipo questa
queste righe nel file ASP
La prima include verifica che l'utente sia correttamente loggato (security)<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<!--#include file="check.asp" -->
<!--#include file="Connessioni.asp" -->
...
<%
file check.asp
la seconda che posto sotto, definisce la connessione al database e la definizione di alcuni Recordset che poi utilizzo<%
If Session("Authenticated") = 0 Then
Session("LASTMSG")="CONNESSIONE IN TIME OUT O ATTIVAZIONE PAGINA SENZA PERMESSO, RIESEGUIRE IL LOGIN..."
Response.Redirect ("Login.asp")
End If
%>
in questo file di include
Connessioni.asp
dopo aver elaborato le istruzioni del programma a fine ASP<%
Public conn, SQL, SQL1, SQL2, RS, RS1, RS2, conn_string, DB
Session.LCID=1040
DB="database/DB.mdb" 'questo è il database DATI
Set conn = Server.CreateObject("ADODB.Connection")
conn_string = "Provider = Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source=" & Server.MapPath(DB)
conn.Open conn_string
Set RS = Server.CreateObject("ADODB.Recordset")
Set RS1 = Server.CreateObject("ADODB.Recordset")
Set RS2 = Server.CreateObject("ADODB.Recordset")
%>
includo il file
Disconnessioni.asp qui sotto
Chiaramente l'apertura e la chiusura dei recordset la eseguono le subroutine del programma dove servono che siano usate<%
conn.Close
Set conn = nothing
Set RS = nothing
Set RS1 = nothing
Set RS2 = nothing
%>
Posto i file qui sopra cosi l'amico ci puo lavorare su e macinare anche lui un po di ore davanti al PC...
ciao
Questo permette di tenere pulite la pagine ASP e siano piu leggibili


Rispondi quotando