Visualizzare le dimensioni di una tabella di SQL Server con Classic ASP

Daniele Bochicchio

di , in Classic ASP, Database,

Abbiamo già visto in diversi script come creare delle funzionalità di amministrazione che permettano di tenere sotto controllo il nostro database.
Lo script di oggi è particolare perchè permette di vedere, in un'unica pagina, alcune informazioni relatie alle tabelle.
Funziona solo con SQL Server, perchè sfrutta una stored procedure di sistema, SP_spaceused, e mostra a video il nome della tabelle con l'occupazione (in KB) ed il numero di righe.

<table border="1">
<tr><th>Nome</th><th>Spazio</th><th>Righe</th></tr>
<!--METADATA Type="typelib" uuid="{00000205-0000-0010-8000-00AA006D2EA4}"--><% 
 SQLConn = ""' stringa di conn

 set conn = server.createobject("ADODB.Connection")
 conn.open sqlconn

' informazioni sul database
 set rs = conn.OpenSchema(adSchemaTables)

 Do while not rs.eof
   if rs("table_type") = "TABLE" then

     response.write "<tr><td>" & rs("table_name") & "</td>"
   
 ' calcolo spazio occupato
 set rsC = conn.Execute("EXEC sp_spaceused " & rs("table_name"))
    
     response.write "<td>" & rsC("data") & "</td>"
     response.write "<td>" & rsC("rows") & "</td></tr>"
     
 rsC.Close
 set rsC = Nothing

    end if
    rs.movenext
 loop

 rs.close
 set rs = Nothing
 conn.close
 set conn = Nothing

%>
</table>