<%@ LANGUAGE="VBSCRIPT"%>
<% Response.Buffer=True%>
Dim I, J, Par1, Data1, Num1, Num2, CRLF Dim ReData CRLF = Chr(13) & Chr(10)
Num1 = Application.Contents.Count Response.Write "<P>Počet členů: " & Num1 & CRLF Response.Write "<TABLE WIDTH='100%' BORDER=1>" & CRLF Response.Write "<TR><TH ALIGN=LEFT VALIGN=TOP Width='30%'>Klíč</TH>" & CRLF Response.Write " <TH ALIGN=LEFT VALIGN=TOP Width='70%'>Hodnota</TH>" & CRLF Response.Write "</TR>" & CRLF For I=1 to Num1 Par1 = Application.Contents.Key(I) Response.Write "<TR><TD ALIGN=LEFT VALIGN=TOP Width='30%'>" & Par1 & "</TH>" & CRLF Data1 = Application.Contents(Par1) If Data1="" Then Data1 = " " Response.Write " <TD ALIGN=LEFT VALIGN=TOP Width='70%'>" & Data1 & "</TD>" & CRLF Response.Write "</TR>" Next Response.Write "</TABLE>"
Num1 = Application.StaticObjects.Count Response.Write "<P>Počet členů: " & Num1 & CRLF Response.Write "<TABLE WIDTH='100%' BORDER=1>" & CRLF Response.Write "<TR><TH ALIGN=LEFT VALIGN=TOP Width='30%'>Klíč</TH>" & CRLF Response.Write " <TH ALIGN=LEFT VALIGN=TOP Width='70%'>Hodnota</TH>" & CRLF Response.Write "</TR>" & CRLF For I=1 to Num1 Par1 = Application.StaticObjects.Key(I) Response.Write "<TR><TD ALIGN=LEFT VALIGN=TOP Width='30%'>" & Par1 & "</TH>" & CRLF Data1 = Application.StaticObjects(Par1) If Data1="" Then Data1 = " " Response.Write " <TD ALIGN=LEFT VALIGN=TOP Width='70%'>" & Data1 & "</TD>" & CRLF Response.Write "</TR>" Next Response.Write "</TABLE>"
Par1 = Request.TotalBytes 'If Par1=0 Then ' ReData = "" 'Else ' ReData = Request.BinaryRead(Par1) 'End If Response.Write "<TABLE WIDTH='100%' BORDER=1>" & CRLF Response.Write "<TR><TH ALIGN=LEFT VALIGN=TOP Width='30%'>Parametr</TH>" & CRLF Response.Write " <TH ALIGN=LEFT VALIGN=TOP Width='70%'>Hodnota</TH>" & CRLF Response.Write "</TR>" & CRLF Response.Write "<TR><TD ALIGN=LEFT VALIGN=TOP Width='30%'>TotalBytes</TD>" & CRLF Response.Write " <TD ALIGN=LEFT VALIGN=TOP Width='70%'>" & Par1 & "</TD>" & CRLF Response.Write "</TR>" & CRLF 'Response.Write "<TR><TD ALIGN=LEFT VALIGN=TOP Width='30%'>Obsah zjištěný metodou BinaryRead</TD>" & CRLF 'Response.Write " <TD ALIGN=LEFT VALIGN=TOP Width='70%'>" & Server.HTMLEncode(ReData) & "</TD>" & CRLF 'Response.Write "</TR>" & CRLF Response.Write "</TABLE>" & CRLF
Num1 = Request.QueryString.Count Response.Write "<P>Počet členů: " & Num1 & CRLF Response.Write "<TABLE WIDTH='100%' BORDER=1>" & CRLF Response.Write "<TR><TH ALIGN=LEFT VALIGN=TOP Width='30%'>Klíč</TH>" & CRLF Response.Write " <TH ALIGN=LEFT VALIGN=TOP Width='70%'>Hodnota</TH>" & CRLF Response.Write "</TR>" & CRLF For I=1 to Num1 Par1 = Request.QueryString.Key(I) Response.Write "<TR><TD ALIGN=LEFT VALIGN=TOP Width='30%'>" & Par1 & "</TH>" & CRLF If Request.QueryString(Par1).Count>1 Then Response.Write " <TD ALIGN=LEFT VALIGN=TOP Width='70%'>" & CRLF Num2 = Request.QueryString(Par1).Count Response.Write " Počet prvků: " & Num2 & CRLF For J=1 to Num2 Data1 = Request.QueryString(Par1)(J) Response.Write " <BR>" & Data1 & CRLF Next Response.Write " </TD>" & CRLF Else Data1 = Request.QueryString(Par1) If Data1="" Then Data1 = " " Response.Write " <TD ALIGN=LEFT VALIGN=TOP Width='70%'>" & Data1 & "</TD>" & CRLF End If Response.Write "</TR>" Next Response.Write "</TABLE>"
Num1 = Request.Form.Count Response.Write "<P>Počet členů: " & Num1 & CRLF Response.Write "<TABLE WIDTH='100%' BORDER=1>" & CRLF Response.Write "<TR><TH ALIGN=LEFT VALIGN=TOP Width='30%'>Klíč</TH>" & CRLF Response.Write " <TH ALIGN=LEFT VALIGN=TOP Width='70%'>Hodnota</TH>" & CRLF Response.Write "</TR>" & CRLF For I=1 to Num1 Par1 = Request.Form.Key(I) Response.Write "<TR><TD ALIGN=LEFT VALIGN=TOP Width='30%'>" & Par1 & "</TH>" & CRLF If Request.Form(Par1).Count>1 Then Response.Write " <TD ALIGN=LEFT VALIGN=TOP Width='70%'>" & CRLF Num2 = Request.Form(Par1).Count Response.Write " Počet prvků: " & Num2 & CRLF For J=1 to Num2 Data1 = Request.Form(Par1)(J) Response.Write " <BR>" & Data1 & CRLF Next Response.Write " </TD>" & CRLF Else Data1 = Request.Form(Par1) If Data1="" Then Data1 = " " Response.Write " <TD ALIGN=LEFT VALIGN=TOP Width='70%'>" & Data1 & "</TD>" & CRLF End If Response.Write "</TR>" Next Response.Write "</TABLE>"
Num1 = Request.Cookies.Count Response.Write "<P>Počet členů: " & Num1 & CRLF Response.Write "<TABLE WIDTH='100%' BORDER=1>" & CRLF Response.Write "<TR><TH ALIGN=LEFT VALIGN=TOP Width='30%'>Klíč</TH>" & CRLF Response.Write " <TH ALIGN=LEFT VALIGN=TOP Width='70%'>Hodnota</TH>" & CRLF Response.Write "</TR>" & CRLF For I=1 to Num1 Par1 = Request.Cookies.Key(I) Response.Write "<TR><TD ALIGN=LEFT VALIGN=TOP Width='30%'>" & Par1 & "</TH>" & CRLF If Request.Cookies(Par1).HasKeys Then Response.Write " <TD ALIGN=LEFT VALIGN=TOP Width='70%'>" & CRLF Num2 = Request.Cookies(Par1).Count Response.Write " Počet prvků: " & Num2 & CRLF For J=1 to Num2 Data1 = Request.Cookies(Par1).Key(J) & " = " & Request.Cookies(Par1)(J) Response.Write " <BR>" & Data1 & CRLF Next Response.Write " </TD>" & CRLF Else Data1 = Request.Cookies(Par1) If Data1="" Then Data1 = " " Response.Write " <TD ALIGN=LEFT VALIGN=TOP Width='70%'>" & Data1 & "</TD>" & CRLF End If Response.Write "</TR>" Next Response.Write "</TABLE>"
Num1 = Request.ClientCertificate.Count Response.Write "<P>Počet členů: " & Num1 & CRLF Response.Write "<TABLE WIDTH='100%' BORDER=1>" & CRLF Response.Write "<TR><TH ALIGN=LEFT VALIGN=TOP Width='30%'>Klíč</TH>" & CRLF Response.Write " <TH ALIGN=LEFT VALIGN=TOP Width='70%'>Hodnota</TH>" & CRLF Response.Write "</TR>" & CRLF For I=1 to Num1 Par1 = Request.ClientCertificate.Key(I) Response.Write "<TR><TD ALIGN=LEFT VALIGN=TOP Width='30%'>" & Par1 & "</TH>" & CRLF If Request.ClientCertifikate(Par1).Count>1 Then Response.Write " <TD ALIGN=LEFT VALIGN=TOP Width='70%'>" & CRLF Num2 = Request.ClientCertificate(Par1).Count Response.Write " Počet prvků: " & Num2 & CRLF For J=1 to Num2 Data1 = Request.ClientCertificate(Par1)(J) Response.Write " <BR>" & Data1 & CRLF Next Response.Write " </TD>" & CRLF Else Data1 = Request.ClientCertificate(Par1) If Data1="" Then Data1 = " " Response.Write " <TD ALIGN=LEFT VALIGN=TOP Width='70%'>" & Data1 & "</TD>" & CRLF End If Response.Write "</TR>" Next Response.Write "</TABLE>"
Num1 = Request.ServerVariables.Count Response.Write "<P>Počet členů: " & Num1 & CRLF Response.Write "<TABLE WIDTH='100%' BORDER=1>" & CRLF Response.Write "<TR><TH ALIGN=LEFT VALIGN=TOP Width='30%'>Klíč</TH>" & CRLF Response.Write " <TH ALIGN=LEFT VALIGN=TOP Width='70%'>Hodnota</TH>" & CRLF Response.Write "</TR>" & CRLF For I=1 to Num1 Par1 = Request.ServerVariables.Key(I) Response.Write "<TR><TD ALIGN=LEFT VALIGN=TOP Width='30%'>" & Par1 & "</TH>" & CRLF If Request.ServerVariables(Par1).Count>1 Then Response.Write " <TD ALIGN=LEFT VALIGN=TOP Width='70%'>" & CRLF Num2 = Request.ServerVariables(Par1).Count Response.Write " Počet prvků: " & Num2 & CRLF For J=1 to Num2 Data1 = Request.ServerVariables(Par1)(J) Response.Write " <BR>" & Data1 & CRLF Next Response.Write " </TD>" & CRLF Else Data1 = Request.ServerVariables(Par1) If Data1="" Then Data1 = " " Response.Write " <TD ALIGN=LEFT VALIGN=TOP Width='70%'>" & Data1 & "</TD>" & CRLF End If Response.Write "</TR>" Next Response.Write "</TABLE>"
Response.Write "<TABLE WIDTH='100%' BORDER=1>" & CRLF Response.Write "<TR><TH ALIGN=LEFT VALIGN=TOP Width='30%'>Parametr</TH>" & CRLF Response.Write " <TH ALIGN=LEFT VALIGN=TOP Width='70%'>Hodnota</TH>" & CRLF Response.Write "</TR>" & CRLF Response.Write "<TR><TD ALIGN=LEFT VALIGN=TOP Width='30%'>Buffer</TD>" & CRLF Response.Write " <TD ALIGN=LEFT VALIGN=TOP Width='70%'>" & Response.Buffer & "</TD>" & CRLF Response.Write "</TR>" & CRLF Response.Write "<TR><TD ALIGN=LEFT VALIGN=TOP Width='30%'>CacheControl</TD>" & CRLF Response.Write " <TD ALIGN=LEFT VALIGN=TOP Width='70%'>" & Response.CacheControl & "</TD>" & CRLF Response.Write "</TR>" & CRLF Response.Write "<TR><TD ALIGN=LEFT VALIGN=TOP Width='30%'>Charset</TD>" & CRLF Response.Write " <TD ALIGN=LEFT VALIGN=TOP Width='70%'>" & Response.Charset & "</TD>" & CRLF Response.Write "</TR>" & CRLF Response.Write "<TR><TD ALIGN=LEFT VALIGN=TOP Width='30%'>ContentType</TD>" & CRLF Response.Write " <TD ALIGN=LEFT VALIGN=TOP Width='70%'>" & Response.ContentType & "</TD>" & CRLF Response.Write "</TR>" & CRLF Response.Write "<TR><TD ALIGN=LEFT VALIGN=TOP Width='30%'>Expires</TD>" & CRLF Response.Write " <TD ALIGN=LEFT VALIGN=TOP Width='70%'>" & Response.Expires & "</TD>" & CRLF Response.Write "</TR>" & CRLF Response.Write "<TR><TD ALIGN=LEFT VALIGN=TOP Width='30%'>ExpiresAbsolute</TD>" & CRLF Response.Write " <TD ALIGN=LEFT VALIGN=TOP Width='70%'>" & Response.ExpiresAbsolute & "</TD>" & CRLF Response.Write "</TR>" & CRLF Response.Write "<TR><TD ALIGN=LEFT VALIGN=TOP Width='30%'>IsClientConnected</TD>" & CRLF Response.Write " <TD ALIGN=LEFT VALIGN=TOP Width='70%'>" & Response.IsClientConnected & "</TD>" & CRLF Response.Write "</TR>" & CRLF Response.Write "<TR><TD ALIGN=LEFT VALIGN=TOP Width='30%'>PICS</TD>" & CRLF Response.Write " <TD ALIGN=LEFT VALIGN=TOP Width='70%'>--- nelze číst</TD>" & CRLF Response.Write "</TR>" & CRLF Response.Write "<TR><TD ALIGN=LEFT VALIGN=TOP Width='30%'>Status</TD>" & CRLF Response.Write " <TD ALIGN=LEFT VALIGN=TOP Width='70%'>" & Response.Status & "</TD>" & CRLF Response.Write "</TR>" & CRLF Response.Write "</TABLE>" & CRLF
Num1 = Request.Cookies.Count Response.Write "<P>Počet členů: " & Num1 & CRLF Response.Write "<TABLE WIDTH='100%' BORDER=1>" & CRLF Response.Write "<TR><TH ALIGN=LEFT VALIGN=TOP Width='30%'>Klíč</TH>" & CRLF Response.Write " <TH ALIGN=LEFT VALIGN=TOP Width='70%'>Hodnota</TH>" & CRLF Response.Write "</TR>" & CRLF For I=1 to Num1 Par1 = Request.Cookies.Key(I) Response.Write "<TR><TD ALIGN=LEFT VALIGN=TOP Width='30%'>" & Par1 & "</TH>" & CRLF If Request.Cookies(Par1).HasKeys Then Response.Write " <TD ALIGN=LEFT VALIGN=TOP Width='70%'>" & CRLF Num2 = Request.Cookies(Par1).Count Response.Write " Počet prvků: " & Num2 & CRLF For J=1 to Num2 Data1 = Request.Cookies(Par1).Key(J) & " = " & Request.Cookies(Par1)(J) Response.Write " <BR>" & Data1 & CRLF Next Response.Write " </TD>" & CRLF Else Data1 = Request.Cookies(Par1) If Data1="" Then Data1 = " " Response.Write " <TD ALIGN=LEFT VALIGN=TOP Width='70%'>" & Data1 & "</TD>" & CRLF End If Response.Write "</TR>" Next Response.Write "</TABLE>"
Response.Write "<TABLE WIDTH='100%' BORDER=1>" & CRLF Response.Write "<TR><TH ALIGN=LEFT VALIGN=TOP Width='30%'>Parametr</TH>" & CRLF Response.Write " <TH ALIGN=LEFT VALIGN=TOP Width='70%'>Hodnota</TH>" & CRLF Response.Write "</TR>" & CRLF Response.Write "<TR><TD ALIGN=LEFT VALIGN=TOP Width='30%'>ScriptTimeout</TD>" & CRLF Response.Write " <TD ALIGN=LEFT VALIGN=TOP Width='70%'>" & Server.ScriptTimeout & "</TD>" & CRLF Response.Write "</TR>" & CRLF Response.Write "</TABLE>" & CRLF
Response.Write "<TABLE WIDTH='100%' BORDER=1>" & CRLF Response.Write "<TR><TH ALIGN=LEFT VALIGN=TOP Width='30%'>Parametr</TH>" & CRLF Response.Write " <TH ALIGN=LEFT VALIGN=TOP Width='70%'>Hodnota</TH>" & CRLF Response.Write "</TR>" & CRLF Response.Write "<TR><TD ALIGN=LEFT VALIGN=TOP Width='30%'>CodePage</TD>" & CRLF Response.Write " <TD ALIGN=LEFT VALIGN=TOP Width='70%'>" & Session.CodePage & "</TD>" & CRLF Response.Write "</TR>" & CRLF Response.Write "<TR><TD ALIGN=LEFT VALIGN=TOP Width='30%'>LCID</TD>" & CRLF Response.Write " <TD ALIGN=LEFT VALIGN=TOP Width='70%'>" & Session.LCID & "</TD>" & CRLF Response.Write "</TR>" & CRLF Response.Write "<TR><TD ALIGN=LEFT VALIGN=TOP Width='30%'>SessionID</TD>" & CRLF Response.Write " <TD ALIGN=LEFT VALIGN=TOP Width='70%'>" & Session.SessionID & "</TD>" & CRLF Response.Write "</TR>" & CRLF Response.Write "<TR><TD ALIGN=LEFT VALIGN=TOP Width='30%'>Timeout</TD>" & CRLF Response.Write " <TD ALIGN=LEFT VALIGN=TOP Width='70%'>" & Session.Timeout & "</TD>" & CRLF Response.Write "</TR>" & CRLF Response.Write "</TABLE>" & CRLF
Num1 = Session.Contents.Count Response.Write "<P>Počet členů: " & Num1 & CRLF Response.Write "<TABLE WIDTH='100%' BORDER=1>" & CRLF Response.Write "<TR><TH ALIGN=LEFT VALIGN=TOP Width='30%'>Klíč</TH>" & CRLF Response.Write " <TH ALIGN=LEFT VALIGN=TOP Width='70%'>Hodnota</TH>" & CRLF Response.Write "</TR>" & CRLF For I=1 to Num1 Par1 = Session.Contents.Key(I) Response.Write "<TR><TD ALIGN=LEFT VALIGN=TOP Width='30%'>" & Par1 & "</TH>" & CRLF Data1 = Session.Contents(Par1) If Data1="" Then Data1 = " " Response.Write " <TD ALIGN=LEFT VALIGN=TOP Width='70%'>" & Data1 & "</TD>" & CRLF Response.Write "</TR>" Next Response.Write "</TABLE>"
Num1 = Session.StaticObjects.Count Response.Write "<P>Počet členů: " & Num1 & CRLF Response.Write "<TABLE WIDTH='100%' BORDER=1>" & CRLF Response.Write "<TR><TH ALIGN=LEFT VALIGN=TOP Width='30%'>Klíč</TH>" & CRLF Response.Write " <TH ALIGN=LEFT VALIGN=TOP Width='70%'>Hodnota</TH>" & CRLF Response.Write "</TR>" & CRLF For I=1 to Num1 Par1 = Session.StaticObjects.Key(I) Response.Write "<TR><TD ALIGN=LEFT VALIGN=TOP Width='30%'>" & Par1 & "</TH>" & CRLF Data1 = Session.StaticObjects(Par1) If Data1="" Then Data1 = " " Response.Write " <TD ALIGN=LEFT VALIGN=TOP Width='70%'>" & Data1 & "</TD>" & CRLF Response.Write "</TR>" Next Response.Write "</TABLE>"
Copyright © 2000 Radim Farana