Corsi di Cultura - ASP e PHP ed. 2002

	Corsi di Cultura Informatica (edizione 2002) CICAIA Centro Interdipartimentale di Calcolo Automatico e Informatica Applicata dell'Università di Modena e Reggio Emilia CEDOC Centro Documentazione della Provincia di Modena
ASP e PHP

argomenti ASP

presentazione

Inclusione lato server

Bibliografia e siti web

Elenchi e dettagli

Negli esempi precedenti abbiamo eseguito delle istruzioni SQL su DataBase e abbiamo mostrato a video la lista dei dati.
In questo esempio vedremo come effettuare un elenco di elementi dal quale scegliere di visualizzare il dettaglio di una riga precisa.

Esempio di elenco e dettaglio

ES31

nome del file: es31.asp

<html>
<head> <title> La mia pagina ASP 31 </title>
</head>
<body>
Questa è la mia pagina ASP 31
<br>
<pre>
<% 
'
'connessione al data base definito guida nei DSN-ODBC del server
'
 dim dbconn
 set dbconn = Server.CreateObject("ADODB.Connection")
 dbconn.ConnectionString = ("DSN=guida")
 dbconn.Open
 '
 'interrogazione dati
 '
 dim tabfac
 set tabfac = Server.CreateObject("ADODB.Recordset")
 tabfac.open "Select nome from facolta order by nome", dbconn
 '
 ' visualizzazione dati con sorpresa
 '
 do while not tabfac.eof 
 response.write chr (13) & "<li>" 
 response.wrire "<a href=""es32.asp?fac=" & tabfac.fields("nome") & """>
 response.write tabfac.fields("nome") & "</a>"
 tabfac.movenext
 loop
 '
 ' chisura connessione e cancellazione oggetti ADO
 '
 tabfac.close
 set tabfac=nothing
 dbconn.close
 set dbconn=nothing
%>
</pre>
</body>
</html>

Visualizza l'esempio

Questa pagina visualizza l'elenco delle facoltà tutte cliccabili e ad ogni link associa la pagina es32.asp seguita dal parametro fac (nome facoltà).
Il funzionamento della pagina es32.asp è mostrato di seguito: ES32

nome del file: es32.asp

<html>
<head> <title> La mia pagina ASP 32 </title>
</head>
<body>
Questa è la mia pagina ASP 32
<br>
<pre>
<% 
'controllo la variabile FAC
if request.querystring("FAC")= "" then
 response.write ("nessuna richiesta effettuata")
else 
'
'connessione al data base definito guida nei DSN-ODBC del server
'
 dim dbconn
 set dbconn = Server.CreateObject("ADODB.Connection")
 dbconn.ConnectionString = ("DSN=guida")
 dbconn.Open
 '
 'interrogazione dati
 '
 dim tabfac
 set tabfac = Server.CreateObject("ADODB.Recordset")
 tabfac.open "SELECT * from facolta WHERE nome=" & request.querystring("fac"), dbconn
 '
 ' visualizzazione dati con sorpresa
 '
 response.write "<br> ID=" & tabfac.fields("ID") 
 response.write "<br> nome=" & tabfac.fields("nome")  
 response.write "<br> preside=" & tabfac.fields("preside")  
 '
 ' chisura connessione e cancellazione oggetti ADO
 '
 tabfac.close
 set tabfac=nothing
 dbconn.close
 set dbconn=nothing
 end if
%>
</pre>
</body>
</html>

Visualizza l'esempio