Første fil hedder index.asp og er et frameset(denne side opdatere IKKE sig selv):
<html>
<head>
<title>Entale Multiplayer Online Portale</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<meta http-equiv="Page-Enter" content="revealTrans(Duration=3.0,Transition=15)">
<script>
<!-- denne funktion "CleanUserOnline()" der kaldes når browseren lukkes åbner et nyt vindue -->
<!-- som sletter den aktuelle bruger fra OnlineNames tabellen i databasen -->
function CleanUserOnline()
{
iwin = window.open("ClearUser.asp", "iwin", "status=no, toolbar=no, location=no, menu=no, width=5,height=5,top=5,left=5'");
}
</script>
</head>
<!-- Topframe indeholder kun grafisk-topbar -->
<!-- OnUnLoad kalder en Javascriptfunktion "CleanUserOnline()" når browseren lukkes med krydset øverst i højre hjørne... -->
<frameset rows="104,470" frameborder="NO" border="0" framespacing="0" cols="*" onunload="CleanUserOnline();">
<frame name="topFrame" scrolling="NO" noresize src="TopFrame.htm" >
<!-- Udskrift af "antal online" og deres ChatHandle i 2 frames -->
<frameset cols="250,600" frameborder="NO" border="0" framespacing="0">
<frameset rows="98,600" frameborder="NO" border="0" framespacing="0">
<frame name="OnlineNumbers_frame" scrolling="NO" noresize src="ShowOnlineNum.asp" >
<frame name="OnlineNames_frame" scrolling="NO" noresize src="ShowOnlineNames.asp">
</frameset>
<!-- CHAT HOVEDET. Øverste del af de ialt 3 frames som udgøre selve chatten -->
<frameset cols="260,300" frameborder="NO" border="0" framespacing="0">
<frameset rows="55,500" frameborder="NO" border="0" framespacing="0">
<frame name="ChatTOP_frame" scrolling="NO" noresize src="chat_header.asp" >
<!-- Chat READ henter chat-tekst fra databasen -->
<frameset rows="160,98" frameborder="NO" border="0" framespacing="0">
<frame name="ChatREAD_frame" scrolling="NO" no resize src="Chat_read.asp">
<!-- Chat WRITE - Skriver chat-tekst til databasen,
her ligger også muligheden foe at ændre ChatHandle -->
<frame name="ChatWRITE_frame" scrolling="NO" noresize src="Chat_write.asp">
</frameset>
</frameset>
<!-- GameList er en liste over de spil som bliver "oprettet" udbudt af entale -->
<frame name="GameList_frame" scrolling="NO" noresize src="GameList.asp">
</frameset>
</frameset>
</frameset>
<noframes>
<body bgcolor="#FDFCF0">
</body></noframes>
</html>
********************************************************************
********************************************************************
Et af de dokumenter der loades ind i framesettet(index.asp) hedder
ShowOnlineNum.asp(sidden viser hvor mange brugere der er online)
SIDEN OPDATERE IKKE SIG SELV men henter et andet dokument ind
med <!-- #include file="inc_onlineusers.asp" --> (linie 3):
<!-- Her inkluders filen der opregner antallet af brugere og lægger dem i en applikation -->
<!-- #include file="inc_onlineusers.asp" -->
<style><!--#include file="../CSS/bodyLinks.css" --></style>
<body rightmargin="0" topmargin="0" bottommargin="0">
<table bgcolor=#EDEDD9 border="0" width=175 height=75 align="right" align="top" cellspacing="0" cellpadding="0"><tr valign="bottom"><td>
<%
'*************************************************************
' Hvor mange Brugere er online *
'*************************************************************
if application("usersonline") = "" then
application("usersonline") = 1
end if
'En løkke der tæller hvor mange brugere der "ligger" i applikationen
For i = 1 to application("usersonline")
if len(application("usersonline_"&i)) then
if DateDiff("s",application("usersonline_"&i),Now) > timeout_sek then
application("usersonline_"&i) = ""
else
usersonline = usersonline+1
end if
max_i = i
end if
next
application("usersonline") = max_i
' Gramatisk tilrettelse i udskrift af hvor mange brugere der er online samt udskrivning af selvsamme
response.write" <table bgcolor=#EDEDD9 Nowrap border='0' width=100% cellspacing='0' cellpadding='0'><tr valign='bottom'><td width='6'></td>"
response.write" <td>"
If max_i = "1" Then
response.write "<p class='o4'>" & usersonline & " GAMER ONLINE </P>"
Else
response.write "<p class='o4'>" & usersonline & " GAMERS ONLINE</P>"
End If
response.write "</td><td></td><tr><td>"
response.write"</td><td height='2'></td><td></td></tr></table>"
response.write"<table bgcolor=#EDEDD9 border='0' align='top' cellspacing='0' cellpadding='0'>"
response.write "<tr valign='bottom'><td width='1'></td><td Valign='bottom'><img src='../Grafik/TopV.gif' width='20' height='20' alt='' border='0'></td>"&_
"<td><img src='../Grafik/SideTop.gif' width='94' height='20' alt='' border='0'></td>"&_
"<td><img src='../Grafik/TopH.gif' width='20' height='20' alt='' border='0'></td></tr></table>"
%>
</td></tr></table>
</Body>
*******************************************************************
*******************************************************************
Det 3. dokument(som er det der SELV OPDATERE) hedder som nævnt ovenfor "inc_onlineusers.asp" og indeholder denne kode:
<%
timeout_sek = 70 ' timeout i sekunder
max_users = "500" ' max antal brugere der skal tælles
cookies_check = "no" ' skal der tjekkes om browseren accepterer cookies ["yes" / "no"]
Session.Timeout = 1
' Når siden loades af en ny bruger har Session("usernumber") endnu ikke nogen værdi
if session("usernumber") <> "" then
application("usersonline_" & session("usernumber")) = now
else
' Denne løkke sørge for en værdi i Session("usernumber")
For i = 1 to max_users
if IsDate(application("usersonline_"&i)) or application("usersonline_"&i) = "" then
if application("usersonline_"&i) = "" then
session("usernumber") = i
i = max_users
elseif DateDiff("s",application("usersonline_"&i),Now) > timeout_sek then
session("usernumber") = i
i = max_users
end if
end if
next
application("usersonline_" & session("usernumber")) = now
application("userinfo_" & session("usernumber")) = "[" & Request.ServerVariables("REMOTE_HOST") & "]</td><td nowrap>[" & Request.ServerVariables("HTTP_ACCEPT_LANGUAGE") & "]</td><td nowrap>[" & now & "]"
' Hvis værdien i Sessionen er større end værdien i applikationen
' Sættes applikationsværdien lig med sessionsværdien
' Og antallet af brugere online er øget med forskellen...
if application("usersonline") < session("usernumber") then
application("usersonline") = session("usernumber")
end if
end if
response.write "<meta HTTP-EQUIV=""REFRESH"" CONTENT=""5;URL="">"
%>
LÆG MÆRKE TIL LINIE 36 - Det er her opdateringskoden ligger
*******************************************************************
*******************************************************************
Eksemplet virker i IE 5.5 Netscape 6.0 og Opera 6.0
Der klikkes ikke ved refresh...
Venligst
Kristian Bjørn
Ny bruger
Nybegynder
Opret
Preview
