Archivio tag: asp

ASP – Numero di file presenti in una directory

Pubblicato il da

<% Set fso = CreateObject(“Scripting.FileSystemObject”) Set folderObject = fso.GetFolder(Server.MapPath(“dbstage”)) Set filesObject = folderObject.Files i=0 For Each file In filesObject i=i+1 Next response.write “Numero file: “& i & ” files uploadati!” Set fileObject = Nothing Set folderObject = Nothing Set fso = Nothing %>

DB – Query al volo

Pubblicato il da

Questo script, permette di eseguire una query al volo. Utile, ad esempio, per contare i records presenti in una determinata tabella. <% ‘CONNESSIONE AL DATABASE Set Conn = server.createobject(“ADODB.connection”) Conn.ConnectionString = “DRIVER={Microsoft Access Driver (*.mdb)};DBQ=” & server.MapPath(“/db/DATABASE.mdb”) Conn.open ‘QUERY DA ESEGUIRE strsql = “SELECT Count(*) as Tot from TABELLA” ‘ESEGUO LA QUERY set rs = conn.execute(strsql) ‘STAMPO IL RISULTATO response.write … Continua a leggere→

ASP – Verifica esistenza di un file in remoto

Pubblicato il da

Se dobbiamo visualizzare una foto dentro ad una pagina web, conviene sempre prima verificarne l’esistenza per evitare che venga visualizzata l’icona orribile di immagine mancante. Ecco il codice: <% StrURL = DBrec(“immagine”) copertina = DBrec(“immagine”) Set objXMLHTTP = Server.CreateObject(“Microsoft.XMLHTTP”) objXMLHTTP.Open “GET”, StrURL, false objXMLHTTP.Send statuscode = objXMLHTTP.Status Set objxml = Nothing if(statuscode = “404”) then copertina = “img/no_image.gif” end if … Continua a leggere→

ASP – Contatore di pagine viste

Pubblicato il da

<% Filedaleggere=server.mappath(“contatore.txt”) Set file = CreateObject(“Scripting.FileSystemObject”) Set Filedaleggere = file.OpenTextFile(Filedaleggere, 1, False) counter=0 do while not Filedaleggere.AtEndOfStream counter=counter+1 Rigadelfile=Filedaleggere.readline response.write Rigadelfile & “ “ loop Filedaleggere.Close set Filedaleggere=nothing set file=nothing %>