faqts : Computers : Programming : Languages : Asp : ASP/VBScript

+ Search
Add Entry AlertManage Folder Edit Entry Add page to http://del.icio.us/
Did You Find This Entry Useful?

41 of 50 people (82%) answered Yes
Recently 8 of 10 people (80%) answered Yes

Entry

is there any ASP equivalent for PHP phpinfo() function?

Feb 27th, 2003 05:09
Sachin P, dewa m widyakumara,


<%
    aspinfo()
    Sub aspinfo()
    Dim strVariable, strASPVersion
    Dim strCookie, strKey, strSession
    'Retrieve the version of ASP
    strASPVersion = ScriptEngine & " Version " & _
    ScriptEngineMajorVersion & "." & _
    ScriptEngineMinorVersion
    %>
     <HTML>
    <HEAD>
    <style type="text/css"><!--
    a { text-decoration: none; }
    a:hover { text-decoration: underline; }
    h1 { font-family: arial, helvetica, sans-serif; font-size: 18pt; 
font-weight: bold;}
    h2 { font-family: arial, helvetica, sans-serif; font-size: 14pt; 
font-weight: bold;}
    body, td { font-family: arial, helvetica, sans-serif; font-size: 
10pt; }
    th { font-family: arial, helvetica, sans-serif; font-size: 10pt; 
font-weight: bold; }
    //--></style>
    <TITLE>aspinfo()</TITLE></HEAD>
    <BODY>
    <DIV align="center">
    <TABLE width="80%" border="0" bgcolor="#000000" cellspacing="1" 
cellpadding="3">
    <TR>
    	<TD align="center" valign="top" bgcolor="#FFFFAE" align="left" 
colspan="2">
    		<H3>ASP (<%= strASPVersion %>)</H3>
    	</TD>
    </TR>
    </TABLE>
    <BR>
    <HR>
    <BR>
    <H3>Server Variables</H3>
    <TABLE width="80%" border="0" bgcolor="#000000" cellspacing="1" 
cellpadding="3">
    <%
    For Each strVariable In Request.ServerVariables
    Response.write("<TR>")
    Response.write("<TH width=""30%"" bgcolor=""#FFFFAE"" 
align=""left"">" & strVariable & "</TH>")
    Response.write("<TD bgcolor=""#FFFFD9"" align=""left"">" & 
Request.ServerVariables(strVariable) & " </TD>")
    Response.write("</TR>")
    Next 'strVariable
    %>
    </TABLE>
    <BR>
    <HR>
    <BR>
    <H3>Cookies</H3>
    <TABLE width="80%" border="0" bgcolor="#000000" cellspacing="1" 
cellpadding="3">
    <%
    For Each strCookie In Request.Cookies
    	if Not Request.Cookies(strCookie).HasKeys Then
    		Response.write("<TR>")
    		Response.write("<TH width=""30%"" bgcolor=""#FFFFAE"" 
align=""left"">" & strCookie & "</TH>")
    		Response.write("<TD bgcolor=""#FFFFD9"" 
align=""left"">" & Request.Cookies(strCookie) & " </TD>")
    		Response.write("</TR>")
    	Else
    		For Each strKey In Request.Cookies(strCookie)
    			Response.write("<TR>")
    			Response.write("<TH width=""30%"" 
bgcolor=""#FFFFAE"" align=""left"">" & strCookie & "(" & strKey & ")
</TH>")
    			Response.write("<TD bgcolor=""#FFFFD9"" 
align=""left"">" & Request.Cookies(strCookie)(strKey) & " </TD>")
    			Response.write("</TR>")
    		Next
    	End if
    Next
    %>
    </TABLE>
    <BR>
    <HR>
    <BR>
    <H3>Session Cookies</H3>
    <TABLE width="80%" border="0" bgcolor="#000000" cellspacing="1" 
cellpadding="3">
    <%
    For Each strSession In Session.Contents
    		Response.write("<TR>")
    		Response.write("<TH width=""30%"" bgcolor=""#FFFFAE"" 
align=""left"">" & strSession & "</TH>")
    		Response.write("<TD bgcolor=""#FFFFD9"" 
align=""left"">" & Session(strSession) & " </TD>")
    		Response.write("</TR>")
    Next
    %>
    </TABLE>
    <BR>
    <HR>
    <BR>
    <H3>Other variables</H3>
    <TABLE width="80%" border="0" bgcolor="#000000" cellspacing="1" 
cellpadding="3">
    <TR><TH width="30%" bgcolor="#FFFFAE" 
align="left">Session.sessionid</TH><TD bgcolor="#FFFFD9"><%= 
Session.sessionid %></TD></TR>
    <TR><TH width="30%" bgcolor="#FFFFAE" 
align="left">Server.MapPath</TH><TD bgcolor="#FFFFD9"><%= 
Server.MapPath ("/") %></TD></TR>
    </TABLE>
    </DIV>
    </BODY>
    </HTML>
    <%
    End Sub
    %>



© 1999-2004 Synop Pty Ltd