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") %>
Uomo
politico cinese. Nacque
a Hsiang-t'an, Hunan, nel 1893.Nato
da un modesto proprietario terriero,si
diplomò presso l'istituto normale
di Ch' angsha impiegandosi poi come
bibliotecario (1918) presso l'università
di Pechino.Quando Ch' en Tu-hsin fondò
il partito comunista cinese (1921),
Mao Tse-tung era presente quale delegato.Egli
dedicò la sua attività
politica all'organizzazione del movimento
comunista contadino nello Hunan dove,
dopo una parentesi di collaborazione
con il Kuomintang (1925/26), conclusasi
con l'eccidio di migliaia di comunisti
(1927), proclamò la prima Repubblica
Cinese (1931).Per quanto perseguitato
dalle truppe nazionaliste del Kuomintang,
l'armata rossa si rafforzò; ma
nel 1934, per sfuggire all'accerchiamento,
si spostò nelle regioni nord-occidentali,con
una memorabile lunga marcia.Finalmente,
nel 1937, si ricostituì il fronte
comune tra il P.C.C. e il Koumintang,
per combattere l'invasione giapponese.Dopo
la guerra,risultati vani i tentativi
di accordo tra Mao Tse-tung e Chiang
Kai-Shek,capo del Koumintang, riprese
la guerra civile, che terminò
con la vittoria comunista (1949) e l'elezione
di Mao Tse-tung a presidente della Repubblica
Popolare Cinese. Mao Tse-tung ricoprì
la carica per 10 anni.Nel 1959, si dimise,
per assumere la carica del Comitato
centrale del Partito Comunista Cinese
e dedicarsi esclusivamente all'elaborazione
ideologica della linea del partito comunista.Nell'
agosto del 1966 fece approvare dal comitato
centrale del partito la Grande rivoluzione
culturale,intesa come una campagna per
ridare slancio allo spirito rivoluzionario.
<%
'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%>
| 
Ritorna "
