Un semplice Datagrid con ASP
Con ASP.NET ci siamo abituati ad avere un oggetto in grado di mostrarci, in una tabella, il contenuto di una query di un database in maniera per noi quai del tutto trasparente.
L'esempio di oggi è qualcosa che si avvicina, come risultato, al datagrid di ASP.NET ma con quello che Classic ASP e ADO ci mettono a disposizione.
Se ne potrebbe fare una classe, ma anche con una Sub non se ne perde certamente l'utilità.
In breve, lo script ricrea il nome dei campi della tabella e poi tramite GetString costruisce la tabella stessa, nel metodo più veloce che esista, emulando per certi versi il concetto di snapshot tipico dei dataset di ASP.NET.
Ecco lo script:
<%
Sub DataGrid(tabella)
SQLConn = ""' stringa di conn
set conn = server.createobject("ADODB.Connection")
conn.open sqlconn
Set rs = conn.Execute("SELECT * FROM " & tabella)
' ricavo il nome dei campi
For i = 0 to RS.Fields.Count - 1
intestazione = intestazione & "<th bgcolor=gray>" & RS(i).Name &"</th>"
Next
' prendo i dati dal db
strResults = rs.GetString(, 10,"</td><td>","</td></tr><tr><td>","-")
set rs = nothing
conn.Close
set conn = Nothing
' output
Response.Write ("<table border=1>")
Response.Write ("<tr>" & intestazione & "</tr>")
Response.Write ("<tr><td>" )
Response.Write (strResults)
Response.Write ("</td></tr></table>" )
End Sub
Call DataGrid("ordini")
%>Commenti
Per inserire un commento, devi avere un account.
Fai il login e torna a questa pagina, oppure registrati alla nostra community.
