Nello script #372 abbiamo visto come costruire un primo rudimentale clone del datagrid di ASP.NET con Classic ASP.
Ora vediamo come aggiungere una funzionalità in più e per la precisione l'ordinamento in base alla colonna specificata.
<% Sub DataGrid(tabella) SQLConn = ""' stringa di conn set conn = server.createobject("ADODB.Connection") conn.open sqlconn strSQL = "SELECT * FROM " & tabella if len(Request("OrderBy"))>0 then strSQL = strSQL & " ORDER BY [" & Request("OrderBy") & "]" end if Set rs = conn.Execute(strSQL) ' ricavo il nome dei campi For i = 0 to RS.Fields.Count - 1 intestazione = intestazione & "<th bgcolor=gray>" intestazione = intestazione & "<a href=""datagrid.asp?OrderBy=" & RS(i).Name & """>" intestazione = intestazione & RS(i).Name & "</a></th>" Next ' prendo i dati dal db strResults = rs.GetString(, ,"</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.