pensando.it (d)blog

Era da qualche settimana che il mio blog aveva subito un incredibile rallentamento.
Le ho provate un pò tutte ma alla fine credevo fosse un calo delle prestazioni dovuto ad access e/o alla rete.

Quando mi ero dato quasi per vinto ho deciso di farmi una sorta di tracert ovvero un log per capire se il problema era da attribuibile al software (moduli installati) o alla rete o al db.

Cosi ho modificato la Sub GeneraPagina contenuta in inc_funzioni.asp nel seguente modo:

originale:

For I = 0 To UBound(TemplateDiviso, 1)
EseguiModulo TemplateDiviso(I), METATitlePagina, METAKeywordPagina, METADescriptionPagina
Next

modificato:

'log
Set FSO = CreateObject("Scripting.FileSystemObject")
Set Documento = FSO.OpenTextFile(Server.MapPath(Path_DirPublic & "log.txt"), 2, True)
ContenutoFile = now() & " - Start Log " & vbCrLf

For I = 0 To UBound(TemplateDiviso, 1)
ContenutoFile = ContenutoFile & now() & " - Modulo " & TemplateDiviso(I) & vbCrLf
EseguiModulo TemplateDiviso(I), METATitlePagina, METAKeywordPagina, METADescriptionPagina
ContenutoFile = ContenutoFile & "___________________________________________________"& vbCrLf
ContenutoFile = ContenutoFile & ""& vbCrLf
Next

ContenutoFile = ContenutoFile & now() & " - End Log " & vbCrLf
Documento.Write ContenutoFile
Documento.Close
set Documento = nothing

L'ouput (trace) viene creato nel file log.txt nella cartella /public/ del server.

Il risultato è stato "illuminante"....un plugin (modulo) installato da poco rallentava incredibilmente il caricamento della pagina, questo l'output:

___________________________________________________
13/11/2007 18.01.49 - Modulo [#TOPUSERS#]
___________________________________________________
13/11/2007 18.02.20 - Modulo

Mentre per tutti gli altri moduli l'esecuzione era quasi istantanea, per questo (TOP USER di pukos), il caricamento era di circa 31 secondi.

Ho cosi tolto il plugin ed ora il blog è tornato a tempi di caricamento quasi istantanei.

Alla fine dell'operazione di monitoraggio ho commentato il codice relativo al "trace" e ricaricato la pagina inc_funzioni.asp nel seguente modo:

'log
'Set FSO = CreateObject("Scripting.FileSystemObject")
'Set Documento = FSO.OpenTextFile(Server.MapPath(Path_DirPublic & "log.txt"), 2, True)
'ContenutoFile = now() & " - Start Log " & vbCrLf
For I = 0 To UBound(TemplateDiviso, 1)
'ContenutoFile = ContenutoFile & now() & " - Modulo " & TemplateDiviso(I) & vbCrLf
EseguiModulo TemplateDiviso(I), METATitlePagina, METAKeywordPagina, METADescriptionPagina
'ContenutoFile = ContenutoFile & "___________________________________________________"& vbCrLf
'ContenutoFile = ContenutoFile & ""& vbCrLf
Next
'ContenutoFile = ContenutoFile & now() & " - End Log " & vbCrLf
'Documento.Write ContenutoFile
'Documento.Close
'set Documento = nothing

Non so se pukos ha notato anche lui un rallentamento relativo al suo plugin....nel qual caso, visto che il plugin era molto interessante, lo pregherei di farmi avere eventuali upgrade migliorativi.