Per cancellare un file dal server, ecco lo script:

<%

Dim objFSO

Set objFSO = Server.CreateObject(“Scripting.FileSystemObject”)

‘Il file viene cancellato

objFSO.DeleteFile(“c:\freeasp.txt”)

Set objFSO = Nothing

%>

E’ possibile comprimere un database Access direttamente dal programma stesso (Strumenti -> Utilità database -> Compatta database), oppure per mezzo di questo script ASP:

<%

Set db = CreateObject(“DAO.DBEngine.35”)

db.CompactDatabase “percorsoDatabase\database.mdb”,

percorsoDatabase\database_compresso.mdb”

%>

dove, ovviamente, percorsoDatabase è il percorso del file .mdb. Come potete vedere, è necessario inserire un nuovo nome per il db Access

Tramite il seguente script:

<%

‘Aggiungo il record

rs.AddNew

‘Inserisco i valori nei campi

rs(“nomeCampo”) = valore

‘Aggiorno i valori nel RecordSet

rs.Update

%>

è possibile aggiungere un nuovo record al database, inserire i nuovi valori per i campi ed aggiornare il tutto

A differenza di:

<% Response.Redirect “pagina2.asp” %>

il metodo Transfer dell’oggetto Server ci permette di inviare tutte le informazioni di una pagina ASP ad una seconda richiamata.

Sarà quindi possibile caricare una pagina ed inviare ad essa tutte le variabili di sessione e di applicazione generate nella prima:

<% Server.Transfer(“/pagina2.asp”) %>

La proprietà .ExpiresAbsolute dell’oggetto Response permette di impostare una scadenza, tramite data e/o ora, per la pagina ASP richiesta.

Ecco un esempio:

<% Response.ExpiresAbsolute=#July 7,2001 15:00:00# %>

In questo caso, la pagina verrà eliminata dalla cache il 7 luglio 2001 alle ore 15 in punto. Ogni richiesta di pagina prima di questa data, farà visualizzare la pagina in cache dell’utente

Con questo script è possibile conoscere il valore della dimensione in bytes di una cartella:

<%

Dim objFSO

Set objFSO = Server.CreateObject(“Scripting.FileSystemObject”)

‘Stabilisco il percorso della cartella

path = “c:\miaCartella”

‘Imposto l’istanza

Set mia = objFSO.GetFolder(path)

‘Visualizzo la dimensione della cartella

Response.write “La cartella è grande ” & mia.Size & ” bytes.”

Set objFSO = Nothing

%>