pcgraph
شنبه 18 شهریور 1385, 04:36 صبح
لطفا میتونین بگین این 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>
</code>
<code>
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 %>
</code>
<code>
test.asp
<%
application("dik").item(Session.SessionID)= request.ServerVariables("SCRIPT_NAME")
%>
این کد در سطح عمومی سایت باید کار کنن لطفا اگر ممکنه بگین چجوی مثلا بفهمم یه سشن خاص از سایت خارج شد بجای سشن آی دی و کلا بگین اینا چه ایرادی دارن رو سیستم من اجرا نمیشن
بازم اگه ممکنه بگین بجای سشن آی دی سشن یوزر جابجا بشه لطفا راهنمای کنید
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>
</code>
<code>
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 %>
</code>
<code>
test.asp
<%
application("dik").item(Session.SessionID)= request.ServerVariables("SCRIPT_NAME")
%>