[Resolvido] função Infosession

[xanburzum 169]

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

nomes de uma variável session e seus respectivos valores.

 

A função Infosession é útil somente durante a depuração.

 

sintaxe:

array = Infosession

example usage:

<%
 ' declare variables
Dim x, i

 ' definir algumas variáveis sessão para e
Session("Autorizado")	= False
Session("IP")		= Request.ServerVariables("REMOTE_ADDR")
Session("Pag_atual")	= Request.ServerVariables("SCRIPT_NAME")

 ' chama function
x = Infosession 

'Loop através dos resultados da função (2 array dimensional )
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 address

Session("Pag_atual") = /path /page.asp

 

code:

<%
Private Function Infosession ()
	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
	Infosession = Stuff
End Function
%>