برای کنترل کاربران حاضر

[www.pcgraph.ir]

لطفا میتونین بگین این 3 صفحه چه ایرادی داری
حتما امیرلو جواب میده!
این کد در سطح عمومی سایت باید کار کنن لطفا اگر ممکنه بگین چه جوری مثلا بفهمم یه سشن خاص از سایت خارج شد بجای سشن آی دی و کلا بگین اینا چه ایرادی دارن رو سیستم من اجرا نمیشن؟
به جای یک سشن آی دی چجوری یک سشن معمولی رو تعقیب کنم

global.asa
<SCRIPT LANGUAGE="VBScript" RUNAT="Server">
Sub application_OnStart
set application("dik")=Server.CreateObject("Scripting. Dictionary")
End Sub
</SCRIPT>


<SCRIPT LANGUAGE="VBScript" RUNAT="Server">
Sub session_Onend
if application("dik").exists(session.SessionID) then
application.lock
application("dik").remove(Session.SessionID)
application.unlock
end if
End Sub
</SCRIPT>




viewpage.asp

<%@LANGUAGE="VBSCRIPT"%>




<!--#include file="test.asp"-->

<%
application.lock
set tempstats= application("dik")
application.unlock
%>
<br>
<%= tempstats.contents.count %>-
<%= tempstats.count %>
<% tempitem=tempstats.item
tempkeys=tempstats.keys
for i=0 to ubound(tempkeys)
%>


<% response.Write tempkeys(i) %>-<% response.Write tempitems(i) %><br>

<% next %>



test.asp
<%
application("dik").item(Session.SessionID)= request.ServerVariables("SCRIPT_NAME")
%>