Newsgroup: it.comp.www.asp
Titolo: catturare il risultato ASP

Mi spiego meglio.
Diciamo che ho realizzato un sito del quale l'home page è composta da dati
provenienti da un db (immagini, testi) molto variabili; nell'ordine di una
decina di volte al giorno.
Vorrei sapere se in qualche modo riesco a fare questo: una procedura che
automaticamente mi prenda il contenuto della pagina già elaborata (l'html
quindi) la ficchi in un file e lo salvi nel mio server WEB.
Non è che sono un pazzo, ma avendo circa 5000 utenti al giorno che visitano
il sito, e quindi l'home page, se riuscissi a dargli in pasto una pagina
html anziché ASP farei risparmiare un bel lavoro al mio server WEB. Non
posso farlo manualmente perché il frutto dei dati composti in prima pagina è
dato dal lavoro di gruppo di una redazione distribuita che lavora in
ambiente extranet, dovrei quindi realizzare questa procedura che simuli
l'apertura della pagina ASP ne catturi l'html e lo risalvi in una pagina
HTML.
Qualche santo bevitore in giro?
Stefano Peppucci
--
Posted from [151.4.125.130] 
via Mailgate.ORG Server - 
http://www.Mailgate.ORG

 wrote in message
000901c02d35$aea6af90$0600...@assofutura.it...

Si: devi usare i server-include per caricare un pezzo di file di testo
dentro la pagina.
Poi devi crearti un pezzo di codice (non nella homepage ^___^) che ogni
volta che viene attivato va a riscrivere l'include.
Ad es:
<html>
<head><title> Homepage</title>
</head>
<body>
<!--#INCLUDE FILE="path/file.inc" -->
<body>
</html>
Mentre la funzione che scrive la pagina va messa in punti strategici che
dovrai individuare tu, in modo che il file incluso sia aggiornato quando
necessario:
dim provider
 dim strquery
 dim numeroRacconti
 dim lastTale
 application("bribeTime")=5
 application("provider")="DRIVER=Microsoft Access Driver (*.mdb);
DBQ="&Server.MapPath("/path/database.mdb")
 application("provider2")="DRIVER=Microsoft Access Driver (*.mdb);
DBQ="&Server.MapPath("/path/database2.mdb")
 set conn = server.createobject("adodb.connection")
 conn.open application("provider")
 set rec = server.createobject("adodb.recordset")
 strQuery="Select Count(*) FROM miatabella WHERE campo='argomento'
 application("miavar")=Rec(0)
 Set Rec=nothing
 Dim ClassificaHeader
 Dim ClassificaRow
 Dim ClassificaFoot
 ClassificaHeader="<table border='1' cellspacing='0' cellpadding='0'
width='100%' align='center'><tr><td valign='top' colspan='4'><hr
color='#BA7C31'></td></tr>"
 ClassificaHeader=ClassificaHeader&"<tr><td valign='top' colspan='4'><hr
noshade color='#000000'></td></tr>"
 WHILE Not (condizione) AND Cont<20
     ClassificaRow=ClassificaRow&"<tr><td valign='top' colspan=1> Ciao
</td><td valign='top' colspan=2> come va </td><td valign='top' colspan=2>
bene grazie </td></tr>"
        Rec.MoveNext
        Cont=Cont+1
        WEND
  Conn.close
  classificaFoot="<tr><td colspan='3'><br><br><small>Ultimo aggiornamento il
"&day(date())&"/"&month(date())&"/"&Year(date())&" <br></td></tr></table>"
  dim classifica
classifica=ClassificaHeader&ClassificaRow&ClassificaFoot
' eppoi scrivo il file
MyFile=Server.MapPath("/path/file.inc")
   Set FileObject=CreateObject("Scripting.FileSystemObject")
   Set InStream=FileObject.OpenTextFile(MyFile,2,true)
   InStream.Write(Classifica)
   InStream.close
   set FileObject = nothing
   set Instream = nothing
Come esempio non e' un granche' (non funzionera' mai se non lo studi e lo
modifichi ad hoc) pero' potra' esserti ugualmente d'aiuto.
Ciao
Nettuno

 quindi) la ficchi in un file e lo salvi nel mio server WEB
XML potrebbe essere una soluzione ragionevole.
Crei una pagina XLS che descrive la tua home page e che prende i dati da un
file XML
che viene generato ad intervalli regolari da un componente che accede al
database
in cui sono memorizzati i dati.
In questo modo viene generata la pagina in html puro che può quindi essere
letta da
qualsiasi browser.
--
Stefano Tempesta
ste...@tempesta.org

 decina di volte al giorno.
Se vuoi che la pagina sia non + vecchia di 2 ore fai un default.asp cosi'
(e' schematico, poi lo realizzi tu)
Chiedi ultima modifica di default.txt
If ultima modifica < (Now() - 2ore) Then
    Elabora la pagina dinamicamente
    Scrivila su default.txt
    Leggi default.txt e presentalo
Else
    Leggi default.txt e presentalo
End If
Saluti.
Stefano.

 qualsiasi browser.
Gia' se non fosse che per rendere il tutto automatico occorre usare la
tecnica del "Data Shaping" e quindi utilizzare una server che abbia il
processore Sml-Xsl installato e ADO aggiornato per gestire i comandi SHAPE e
APPEND.
Oltretutto scatta l'incubo dei caratteri speciali: quando il processore XML
incontra una &, per esempio, succede il finimondo.
Insomma: e' una buona idea (l'ho anche messa in pratica, ma lavorandoci da
meta' luglio a ieri), pero' a meno di non avere migliaia di accessi al sito,
ogni ora, e' meglio servirsi delle server include ancora per un po'.
Ciao
Nettuno
(PS: Il lavoro svolto 'anche' da me sara' visibile su 
www.deanet.it
 a
partire dal mese di gennaio)


Moderatore di it.comp.www.asp
Sito di supporto: 
http://www.aspitalia.com/newsgroup/
Tutto su WindowsNT? Su 
http://www.aspitalia.com
Libri ITA o ENG con sconti del 15% su 
http://store.aspitalia.com/
Tech Leader per 
http://www.e-conomy.it