Avatar billede steen Nybegynder
25. november 2003 - 11:12 Der er 4 kommentarer og
1 løsning

udskriv alle variabler

Hvordan udskriver jeg dynamisk alle variabler der er på en side?
Avatar billede hugopedersen Nybegynder
25. november 2003 - 13:31 #1
<%@ LANGUAGE=VBScript %>

<%
Session.Timeout = 30
Response.Buffer = True

If Session("SSS_Privilege") = "" Then
    Session("SSS_Privilege") = 0
End If
If Session("SSS_Privilege") < 5 Then                 ' If person is not administrator
    Response.Redirect ("default.asp")                 ' Send him / her back
End If
%>

<html>
<head>
    <meta http-equiv="Content-Language" content="en-us">
    <meta name="GENERATOR" content="Microsoft FrontPage 5.0">
    <meta name="ProgId" content="FrontPage.Editor.Document">
    <title>Jamo A/S - Session variables</title>

    <link rel="stylesheet" href="styles.css" type="text/css">
</head>

<body topmargin=0 leftmargin=5 marginheight=0 marginwidth=0>

<!--#include file="session_variables.inc" -->

<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" id="AutoNumber1">
    <td width="100%" border="0"><font size="4">List of all active session variables</font></td>
</table>

<br>

<table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" id="AutoNumber1">
    <td width="35%" style="margin-left: 5" >&nbsp;Variable name</td>
    <td width="100%" style="margin-left: 5" >&nbsp;Current value</td>
</table>

<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" id="AutoNumber1">
<%
For Each Item in Session.Contents
%>
  <tr>
    <td width="35%" >&nbsp;<%=Item%></td>
    <td width="100%" >&nbsp;<%=Session.Contents(Item)%></td>
  </tr>
<%
'    Response.Write (Item & "=" & Session.Contents(Item) & "<br>")
Next
%>
</table>
Avatar billede hugopedersen Nybegynder
25. november 2003 - 13:33 #2
Der er lidt af det der ikke er relevant for dig, men det kan du nok finde ud af at fjerne.

------------------------------------------------------------------------------
If Session("SSS_Privilege") = "" Then
    Session("SSS_Privilege") = 0
End If
If Session("SSS_Privilege") < 5 Then                ' If person is not administrator
    Response.Redirect ("default.asp")                ' Send him / her back
End If
------------------------------------------------------------------------------

------------------------------------------------------------------------------
<!--#include file="session_variables.inc" -->
------------------------------------------------------------------------------
Avatar billede thefatman Nybegynder
25. november 2003 - 18:01 #3
DU kan altså nøjes med:
<%
For Each Item in Session.Contents
response.write Session.Contents(item) & "<br>"
next
%>
Avatar billede hugopedersen Nybegynder
26. november 2003 - 06:55 #4
thefatman>  det har du sådan set ret i, men mit 'script' laver en tabelopstilling der gør det lidt mere overskueligt - synes jeg da selv.
Avatar billede steen Nybegynder
29. januar 2004 - 20:54 #5
Jeg er med på, hvordan man udskriver samtlige sessions.... men det jeg forespurgte var variabler. F.eks. Dim strMinvariabel1,  strMinvariabel1
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Kurser inden for grundlæggende programmering

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester