Corsi di Cultura - ASP e PHP ed. 2001

	Corsi di Cultura Informatica (edizione 2001) CICAIA Centro Interdipartimentale di Calcolo Automatico e Informatica Applicata dell'Università di Modena e Reggio Emilia CEDOC Centro Documentazione della Provincia di Modena in collaborazione con: NEXTRA Internet at work
ASP e PHP

argomenti ASP

presentazione

Inclusione lato server

Cenni di configurazione IIS e ODBC

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 dal quale scegliere di visualizzare il dettaglio di una riga precisa.

Esempio di elenco e dettaglio

ES031

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 guida00 nei DSN-ODBC del server
'
 dim dbconn
 set dbconn = Server.CreateObject("ADODB.Connection")
 dbconn.ConnectionString = ("DSN=guida00")
 dbconn.Open
 '
 'interrogazione dati
 '
 dim tabfac
 set tabfac = Server.CreateObject("ADODB.Recordset")
 tabfac.open "facolta", dbconn
 '
 ' visualizzazione dati con sorpresa
 '
 do while not tabfac.eof 
 response.write "<li>" & tabfac.fields("ID") & " - "
 response.wrire "<a href=""es32.asp?id=" & tabfac.fields("ID") & """>
 response.write tabfac.fields("nomef") & "<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 es31.asp seguita dal parametro ID. 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 ID
if request.querystring("ID")= "" then
 response.write ("nessuna richiesta effettuata")
else 
'
'connessione al data base definito guida00 nei DSN-ODBC del server
'
 dim dbconn
 set dbconn = Server.CreateObject("ADODB.Connection")
 dbconn.ConnectionString = ("DSN=guida00")
 dbconn.Open
 '
 'interrogazione dati
 '
 dim tabfac
 set tabfac = Server.CreateObject("ADODB.Recordset")
 tabfac.open "SELECT * from facolta WHERE ID=" & request.querystring("id"), 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