Instance ASP: affichage instantané de la visionneuse de page actuelle

<! - # Inclure file = dbConn.asp ->

<%

onnenetimeout = 10 '' Définissez l'intervalle de temps pour l'activité en ligne

Fonction userip ()

GetClientip = request.servervariables (http_x_forwarded_for) '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '. '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' ''.

Si getClientip = ou isNull (getClientip) ou iSempty (getClientip) alors

GetClientip = request.servervariables (reote_addr) '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' Si vous n'utilisez pas de serveur proxy, vous obtiendrez l'adresse IP source

Terminer si

UserIp = getClientip

Fonction finale

SQL = SELECT O_ID FROM C_ONLINE WHERE O_IP = '' & userIp () & '' Trouvez l'ID de l'adresse IP obtenue dans la base de données

SET RS = Conn.Execute (SQL)

Si Rs.Eof et Rs.Bof alors

sql = insérer dans les valeurs c_online (o_ip) ('' & userip () & '') S'il n'y a pas dans la base de données, cela signifie qu'il s'agit d'une nouvelle IP, puis de l'opération d'insertion

Conn.execute (SQL)

Autre

sql = mise à jour c_online set o_ltime = now () où o_ip = '' & userip () & '' L'heure actuelle de la base de données

Conn.execute (SQL)

Terminer si

sql = supprimer de c_online où dataeadd ('s' ', & onlinetimeout * 60 &, o_ltime) <maintenant () définir dix minutes pour actualiser

Conn.execute (SQL)

Rs.Close

Définir RS = rien

Fonction allonline ()

TMPRS = Conn.Execute (SELECT COUNT (O_ID) FROM C_ONLINE)

allonline = TMPRS (0)

définir TMPRS = rien

fonction finale

%>

<% Response.Write Document.Write (Online & Allonline () & People)%>