Banconote & Monete
Links
Staff
Galleria
Contatore
N° Visite:
<%
Dim nomefile, filestream
Dim objFile
nomefile = Server.MapPath("/public/visite.txt")
Set objFile = CreateObject("Scripting.FileSystemObject")
'se il file non esiste, crealo
if not objFile.FileExists(nomefile) then
Set filestream = objFile.OpenTextFile(nomefile, 2, true)
filestream.WriteLine("0")
end if
'legge il numero attuale di visite
Set filestream = objFile.OpenTextFile(nomefile, 1, true)
Dim visite
visite = filestream.ReadLine()
filestream.Close
'se non θ ancora presente la variabile di sessione
visite = visite + 1 'incrementa di uno gli accessi al sito
'scrive nel file il valore aggiornato di visite
Set filestream = objFile.CreateTextFile(nomefile, true)
filestream.WriteLine(visite)
filestream.Close
Set filestream = Nothing
Set objFile = Nothing
'visualizza sul browser il numero totale di visite
Response.Write visite
%>
N° Utenti on-line: <%= Application("ActiveUsers") %>
(Abdera
460 ca. - 370 ca. a.C.), filosofo greco.
Sviluppò la teoria atomistica
dell'universo abbozzata dal suo maestro,
il filosofo Leucippo. Fu autore molto
prolifico e animato da molteplici interessi,
ma dei suoi numerosissimi scritti ci
sono giunti solo pochi frammenti. Secondo
l'esposizione democritea della teoria
atomistica della materia, ogni ente
è costituito da atomi, minuscole
particelle di materia pura, invisibili
e indistruttibili, eternamente in moto
in uno spazio infinito e vuoto. Gli
atomi sono composti della medesima materia,
ma differiscono per figura, ordine e
posizione. Pertanto, le differenze qualitative
nella percezione delle cose e dei fenomeni
naturali risalgono in ultima istanza
a caratteristiche quantitative degli
atomi. Democrito elaborò una
cosmologia nella quale l'universo è
formato da mondi che devono la loro
origine all'incessante moto vorticoso
degli atomi nello spazio: gli atomi
infatti si scontrano e ruotano, formando
aggregazioni di materia più vaste.
Secondo Democrito esistono due tipi
di conoscenza, la conoscenza oscura
che deriva dai cinque sensi e quella
autentica che deriva dalla mente.
Anche lanima e il pensiero sarebbero
costituiti da atomi, diffusi in tutto
il corpo; gli atomi della mente si troverebbero
invece nel cervello, secondo la dottrina
di Ippocrate. Democrito scrisse anche
di etica, indicando nella felicità
il bene umano più alto, condizione
ottenibile grazie a una serena moderazione
che libera dalla paura. Egli divenne
noto come il "filosofo del riso",
in contrapposizione al più cupo
e pessimista Eraclito, il "filosofo
del pianto".
<%
'Imposto la connessione
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("/mdb-database/dati.mdb")
'Imposto la stringa SQL di selezione dati
sSql="SELECT * FROM dati where id=7"
'Creo e apro il Set di Record
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open sSql, conn, 3, 3
%> N° Articoli: <%=rs.Fields("articoli").Value%>
N° Banconote: <%=rs.Fields("banconote").Value%>
N° Monete: <%=rs.Fields("monete").Value%>
Nazioni: <%=rs.Fields("nazioni").Value%><% 'Chiudo il recordset e libero la memoria
rs.Close
Set rs = Nothing
'Chiudo la connessione al database e libero la memoria
conn.Close
Set conn = Nothing
%><%
'Imposto la connessione
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("/mdb-database/utenti.mdb")
'Imposto la stringa SQL di selezione dati
sSql="SELECT * FROM tab_utenti"
'Creo e apro il Set di Record
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open sSql, conn, 3, 3
%>
N° Iscritti: <%=RS.recordcount%><%'Chiudo il recordset e libero la memoria
rs.Close
Set rs = Nothing
'Chiudo la connessione al database e libero la memoria
conn.Close
Set conn = Nothing%>