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") %>
Personaggi
Cina
La Cina
si conosce da 2500 anni a.C., ma già
nel IV millennio è provata lesistenza
in Cina di una cultura neolitica . La
remotissima civiltà cinese appare
caratterizzata da un notevole sviluppo
delle scienze e delle industrie, mentre
politicamente era una monarchia feudale.
Si susseguirono numerose dinastie: a
Shi-Huang Ti, della dinastia dei Chin,
si deve la costruzione della muraglia
cinese, mentre sotto la dinastia Han
si ebbe un grande progresso in ogni
campo e una notevole estensione dellimpero.
Seguirono invasioni di Avari, Unni e
Tartari, una nuova fioritura con i Tang
e poi un periodo di decadenza. Tra il
XII e XIII secolo i mongoli conquistarono
la Cina e la capitale venne trasferita
a Pechino;cacciati i mongoli, regno
la dinastia dei Ming, sotto i quali
cominciarono le prime relazioni con
lEuropa e penetrò in Cina il
cristianesimo. Nel XVII secolo i Mancesi
invasero e conquistarono la Cina imponendo
una loro dinastia; nel XIX secolo avvenne
la penetrazione Europea. Nel 1911 una
rivoluzione repubblicana portava la
separazione della Cina del Sud; nel
1912 la rivoluzione si stendeva anche
alla Cina del Nord e abbatteva la dinastia
mancese, unificando la Cina sotto un
governo repubblicano. Dopo una nuova
guerra civile, nel 1928 il paese venne
nuovamente unificato, ma ben presto
ricominciò lo sgretolamento,
aggravato dallinvasione nipponica.
Una coalizione anti-giapponese riuscì
ad arrestare la loro avanzata, fino
alla resa giapponese agli Alleati nel
1945. La Cina fu riunificata ed entrò
a far parte delle Nazioni Unite. La
lotta tra le classi al potere e i comunisti,
attenuatasi durante la guerra, si riaccese
nel 1948: il governo nazionalista si
ritirò a Formosa, mentre Mao
Tze-tung, capo dei comunisti cinesi,
proclamava a Pechino la Repubblica Popolare
Cinese. Dopo la morte di Mao e Zhou
Enlai, nel 1976 si scatenò la
lotta per il potere tra moderati e radicali.
Al miglioramento delle situazione interna,
corrispose una nuova crisi con l'Unione
Sovietica. Ne corso degli anni '80 Deng
stabilì un controllo serrato
sul partito e sul paese; la fine degli
anni novanta vide un improvviso deterioramento
delle relazioni internazionali cinesi.
Con le modifiche costituzionali del
1999 la Cina riconobbe ufficialmente
il diritto alla proprietà privata
e la legalità del settore economico
privato, anche se queste modifiche rivestirono
solo un significato formale.
<%
'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%>