Un datagrid con ordinamento con ASP
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.
Approfondimenti
Nessuna risorsa collegata
