9 messaggi dal 19 gennaio 2002
Sto cercandodi mettere un contatore nel mio sito.
All'interno del global.asa nella sub session onstart ho messo questo codice:
Application.Lock
Dim strLinea, FileObject, Instream, intVisite, intTipo, OutStream

strFile = Server.MapPath("visite.txt")

' creo l'oggetto
Set FileObject = Server.CreateObject("Scripting.FileSystemObject")

' apro il file
intTipo = 1 ' lettura
Set InStream = FileObject.OpenTextFile(strFile, intTipo, true)

' ciclo che legge tutte le linee
intVisite = InStream.ReadLine()
intVisite = Cint(intVisite) + 1

' libero risorse
InStream.Close
Set InStream = Nothing

intTipo = 2 ' scrittura
Set OutStream = FileObject.OpenTextFile(strFile, intTipo, true)
OutStream.WriteLine (intVisite)

' libero risorse
OutStream.Close
Set OutStream = Nothing

Set FileObject = Nothing
Session("counter")=intVisite
Application.UnLock


All'interno della pagina asp questo:
<nobr>
<%

for i = 1 to Len(Session("counter"))
Response.write "<IMG src=images/" & Mid(Session("counter"), i, 1) &".gif>"
next

%>
</nobr>

Nel server locale il PWS funziona, ma nel hosting che uso,Unix,che sfrutta il chiliasp...aime' no.
Chi sa darmi un aiuto???
Grazie.


9 messaggi dal 19 gennaio 2002
mi da errore Vbscripts di runtime '800a004c'
Path not found
booooo
Helppp


server.mappath non funzione nel global.asa

temo anche che su chili!asp le cose sia diverse da come funzionano su PWS.

<hr color="#31659C" noshade size=1>
Daniele Bochicchio
<b>Content manager di http://www.aspitalia.com</b>

ASP 3 per esempi il mio libro

Daniele Bochicchio | ASPItalia.com
I libri su Windows 8, HTML5, ASP.NET, VS, Entity Framework
Lead Software Architect@icubed
Microsoft Regional Director for Italy
9 messaggi dal 19 gennaio 2002
E come posso risolvere il problema,dato che ho scaricato il manuale del chiliasp,ma ahime,e' in inglese,ed io di inglese,non so niente....???
Conosci qualche cosa,manuale,sito o alttro...pero' in italiano che tratti il chiliasp?
Grazie


9 messaggi dal 19 gennaio 2002
Incredibile ho risolto.
nella riga incriminata:
Set InStream = FileObject.OpenTextFile(strFile, intTipo, true)
mii e' bastato sostituire intTipo con 1.
Boh....

Torna al forum | Feed RSS

ASPItalia.com non è responsabile per il contenuto dei messaggi presenti su questo servizio, non avendo nessun controllo sui messaggi postati nei propri forum, che rappresentano l'espressione del pensiero degli autori.