Mahdi_110
یک شنبه 14 مهر 1392, 14:13 عصر
سلام دوستان
براي ديدن تمامي session ها و مقاديرشون در صفحه اي احتياج به قطعه كدي دارم كه خودش خودكار تمامي session ها را پيدا كرده و به همراه مقاديرش چاپ نمايد .
در اينترنت جستجو كردم و با اين قطعه كد كه به زبان asp هست برخوردم البته تست نكردم ، آيا كسي ميتواند اين قطعه كد را به php تغيير بدهد و بعد تستش كند و در صورت صحيح بودن كد را قرار دهد يا اگر قطعه كد ديگري داريد كه چنين كاري بتواند انجام دهد قرار دهيد.
با تشكر
<font face=arial size=1>
Session Variables - <% =Session.Contents.Count %> Found<br><br>
<%
Dim item, itemloop
For Each item in Session.Contents
If IsArray(Session(item)) then
For itemloop = LBound(Session(item)) to UBound(Session(item))
%>
<% =item %> <% =itemloop %> <font color=blue><% =Session(item)(itemloop) %></font><BR>
<%
Next
Else
%>
<% =item %> <font color=blue><% =Session.Contents(item) %></font><BR>
<%
End If
Next
%>
<hr>
Application Variables - <% =Application.Contents.Count %> Found<br><br>
<%
For Each item in Application.Contents
If IsArray(Application(item)) then
For itemloop = LBound(Application(item)) to UBound(Application(item))
%>
<% =item %> <% =itemloop %> <font color=blue><% =Application(item)(itemloop) %></font><BR>
<%
Next
Else
%>
<% =item %> <font color=blue><% =Application.Contents(item) %></font><BR>
<%
End If
Next
%>
</font>
براي ديدن تمامي session ها و مقاديرشون در صفحه اي احتياج به قطعه كدي دارم كه خودش خودكار تمامي session ها را پيدا كرده و به همراه مقاديرش چاپ نمايد .
در اينترنت جستجو كردم و با اين قطعه كد كه به زبان asp هست برخوردم البته تست نكردم ، آيا كسي ميتواند اين قطعه كد را به php تغيير بدهد و بعد تستش كند و در صورت صحيح بودن كد را قرار دهد يا اگر قطعه كد ديگري داريد كه چنين كاري بتواند انجام دهد قرار دهيد.
با تشكر
<font face=arial size=1>
Session Variables - <% =Session.Contents.Count %> Found<br><br>
<%
Dim item, itemloop
For Each item in Session.Contents
If IsArray(Session(item)) then
For itemloop = LBound(Session(item)) to UBound(Session(item))
%>
<% =item %> <% =itemloop %> <font color=blue><% =Session(item)(itemloop) %></font><BR>
<%
Next
Else
%>
<% =item %> <font color=blue><% =Session.Contents(item) %></font><BR>
<%
End If
Next
%>
<hr>
Application Variables - <% =Application.Contents.Count %> Found<br><br>
<%
For Each item in Application.Contents
If IsArray(Application(item)) then
For itemloop = LBound(Application(item)) to UBound(Application(item))
%>
<% =item %> <% =itemloop %> <font color=blue><% =Application(item)(itemloop) %></font><BR>
<%
Next
Else
%>
<% =item %> <font color=blue><% =Application.Contents(item) %></font><BR>
<%
End If
Next
%>
</font>