www.pcgraph.ir
Member
این 3 صفحه برای مشاهده یوزرهای اکتیوه
global.asa viewpage.asp test.asp
حالا خواهشی که من از شما دارم اینکه وقتی یک سشن به نام یوزر دارای مقدار میشه به صورت خودکار به جای سشن آی دی و صفحه موجودش در دیکشنری ذخیره بشه تا کسی نتونه با همون یوزر و پسورد وارد بشه.
ضمنا این صفحات خودشون هم تو سیستم من ایراد میدن
پیشا پیش ممنون از راهنمایی شما دوست عزیز
global.asa viewpage.asp test.asp
حالا خواهشی که من از شما دارم اینکه وقتی یک سشن به نام یوزر دارای مقدار میشه به صورت خودکار به جای سشن آی دی و صفحه موجودش در دیکشنری ذخیره بشه تا کسی نتونه با همون یوزر و پسورد وارد بشه.
ضمنا این صفحات خودشون هم تو سیستم من ایراد میدن
پیشا پیش ممنون از راهنمایی شما دوست عزیز
کد:
[B]global.asa[/B]
<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>
[B]viewpage.asp[/B]
<%@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 %>
[B]test.asp[/B]
<%
application("dik").item(Session.SessionID)= request.ServerVariables("SCRIPT_NAME")
%>
آخرین ویرایش: