[Resolvido] retorna um array bidimensional com nomes e valores

[xanburzum 169]

A função Session_Info retorna um array bidimensional contendo os pares de

variável de sessão,sendo nomes e seus respectivos valores.

 

O SessInfo função é útil somente durante a depuração.

 

sintaxe:

 

array = Session_Info

exemplo:

 

<%
 ' declara variaveis
Dim x, i

 ' Definir algumas variáveis sessão para exibir
Session("Autorizado")	= False
Session("IP")		= Request.ServerVariables("REMOTE_ADDR")
Session("CurrentPage")	= Request.ServerVariables("SCRIPT_NAME")

 ' chamar a função SessInfo
x = Session_Info

 ' loop através dos resultados da função (2 dimensional array)
For i = 0 to UBOUND(x, 1)
	response.write "Session(""" & _
		x(i, 0) & """) = " & x(i, 1) & "<BR>"
Next
%>

Este exemplo grava a seguinte seqüência para o browser:

Session("AUTORIZADO") = False

Session("IP") = seu IP

Session("CURRENTPAGE") = /path to/this asp page.asp

 

código:

<%
Private Function Session_Info()
	Dim Item, tmp1, tmp2, a, b, i, ct
	Dim Stuff()
	For Each Item In Session.Contents
		tmp1 = tmp1 & Item & "]["
		tmp2 = tmp2 & Session(Item) & "]["
	Next
	ct = CLng( CLng( Session.Contents.Count ) - 1 )
	Redim Stuff(ct, 1)
	a = split(tmp1, "][")
	b = split(tmp2, "][")
	For i = 0 to ubound(a) - 1
		Stuff(i, 0) = CStr( a(i) )
		Stuff(i, 1) = CStr( b(i) )
	Next
	Session_Info= Stuff
End Function
%>