[ASP | XML]Utenti OnLine, Profano di xml

[ianstilo]

ciao ciao..sto iniziando a usare xml...

AIUTOOO...

dunque mi scrivo gli utenti online....quindi ho una lista tipo:

pippo, minni, paperino


il fatto è che uso la popup in onunload per decrementare gli utenti poicè quasi nessuno clicca su disconnetti....

e il nome mi rimane...

e cosa ancor più grave...se si rilogga...me ne vengono due..

pippo, minni, paperino, pippo

come risolvere?
Help!

Grazie.

[dotty78]

cosa usi x interagire con il file xml???

[ianstilo]

asp

[ianstilo]

e poi la sessione che mi dovrebbe durare 20 min mi svanisce dpop un minuto...forse meno....e quando scade non mi decrementa i nomi utenti mentre invece il numero si...

[dotty78]

da quello che mi dici .. credo che il problema nn sia tanto di XML.. bensì del codice ASP che hai scritto..

ti sposto sull'altra sezione!

[Jacqui]

posta un po' di codice

[ianstilo]

Dim objXMLdoc
set objXMLdoc = Server.CreateObject ("Microsoft.XMLDOM")
objXMLdoc.async = False
Set objXMLroot = objXMLdoc.createElement("UtentiConnessi")
objXMLdoc.appendchild (objXMLroot)
objXMLdoc.Save Application("dirProtetta") & ("utenti.xml")
Set objXMLdoc =nothing
Set objXMLroot=nothing

End Sub


Sub Session_OnStart

Session.Timeout = 20

Application.Lock

Application("online") = Application("online") + 1

Application.UnLock

On Error Resume Next
Session.Timeout=1
Session("Login")=False


Dim objXMLdoc
Dim root
Dim newElem

set objXMLdoc = server.createobject("Microsoft.XMLDOM")
objXMLdoc.async = false
objXMLdoc.load Application("dirProtetta") & ("utenti.xml")

Set root = objXMLdoc.documentElement
Set newElem = objXMLdoc.createElement("Session_" & Session.SessionID)
root.appendchild newElem
newelem.setattribute "Data",FormatDateTime(now,2)
newelem.setattribute "Ora",FormatDateTime(now,4)

objXMLdoc.Save Application("dirProtetta") & ("utenti.xml")

set newElem=nothing
set root=nothing
set objXMLdoc=nothing

End Sub

Sub Session_OnEnd
On Error Resume Next
Dim objXMLdoc
Dim root
Dim currNode

Application.Lock

set objXMLdoc = server.createobject("Microsoft.XMLDOM")
objXMLdoc.async = false
objXMLdoc.load Application("dirProtetta") & ("utenti.xml")

Set root = objXMLdoc.documentElement

Set currNode = root.getElementsByTagName("Session_" & Session.SessionID)
root.removeChild(currNode.item(0))
objXMLdoc.Save Application("dirProtetta") & ("utenti.xml")

set currNode=nothing
set root=nothing
set objXMLdoc=nothing
Application("online") = Application("online") - 1

Application.UnLock

End Sub



questo nel global asa

[ianstilo]

AggiornaXML "Session_" & Session.SessionID, "username", Session("username")
AggiornaXML "Session_" & Session.SessionID, "iduser", Session("id")


questo nel login..

[ianstilo]

AggiornaXML "Session_" & Session.SessionID, "username", ""



questo nel logout..

[ianstilo]

e questo è il file che includo con le funzioni per aggiornare il file utenti.xml

<%

'************************************************
'--- AGGIORNA FILE XML ---
'************************************************
Sub AggiornaXML (byVal NomeTag, byVal NomeAttributo, byVal ValoreAttributo)
On Error Resume Next
Dim objXMLdoc
Dim root
Dim currNode


set objXMLdoc = server.createobject("Microsoft.XMLDOM")
objXMLdoc.async = false
objXMLdoc.load Application("dirProtetta") & ("Utenti.xml")

Set root = objXMLdoc.documentElement

Set currNode = root.getElementsByTagName(NomeTag)


currNode.item(0).setAttribute NomeAttributo,ValoreAttributo


objXMLdoc.Save Application("dirProtetta") & ("Utenti.xml")


set currNode=nothing
set root=nothing
set objXMLdoc=nothing

End Sub






'************************************************
'--- UTENTI ON-LINE ---
'************************************************
Function UtentiOnLine()
On Error Resume Next
Dim objXMLdoc
Dim root
Dim currNode
Dim Item

Dim ContatoreUtentiSemplici
Dim ContatoreUtentiRegistrati


Dim UtentiRegistrati



ContatoreUtentiSemplici=0
ContatoreUtentiRegistrati=0


set objXMLdoc = server.createobject("Microsoft.XMLDOM")
objXMLdoc.async = false
objXMLdoc.load Application("dirProtetta") & ("Utenti.xml")

Set root = objXMLdoc.documentElement

Set currNode = root.childNodes



For Each Item in currNode


' If Item.getAttribute("User")="" Then
' ContatoreUtentiSemplici=ContatoreUtentiSemplici+1
'
' Else
' ContatoreUtentiRegistrati=ContatoreUtentiRegistrat i+1
' UtentiRegistrati=UtentiRegistrati & "" & Item.getAttribute("Data") & "" & Item.getAttribute("Ora") & "" & Item.getAttribute("User") & ""
' End If
If Item.getAttribute("username")<>"" Then
UtentiRegistrati=UtentiRegistrati & "[img][/img]" & Item.getAttribute("username") &""
End If

Next

UtentiOnLine=UtentiRegistrati

set currNode=nothing
set root=nothing
set objXMLdoc=nothing

End Function
%>