Dall'archivio script > Classic ASP

Un datagrid con ordinamento con ASP

di Daniele BochicchioDaniele Bochicchio, in Classic ASP, Database, Tips,

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

Visualizza/aggiungi commenti

| Condividi su: Twitter, Facebook, LinkedIn
Aggiorna

Per inserire un commento, devi avere un account.

Fai il login e torna a questa pagina, oppure registrati alla nostra community.

Approfondimenti

I più letti di oggi