آژانس هواپیماییexchanging

aspinfo

شروع موضوع توسط tishtar ‏23 فوریه 2004 در انجمن asp , ASP.NET

  1. tishtar

    tishtar کاربر تازه وارد

    تاریخ عضویت:
    ‏16 ژانویه 2003
    نوشته ها:
    41
    تشکر شده:
    0
    محل سکونت:
    Iran
    خيلي دنبال همچين كدي بودم . مثل هموني كه تو php استفاده ميكنيم .
    براي من كه كاربرد داشت . كد رو اينجا ميگذارم - اميد وارم به درد بقيه هم بخوره .


    کد:
    <%
    '// Call aspinfo()
    aspinfo()
    
    
    Sub aspinfo()
    Dim strVariable, strASPVersion
    Dim strCookie, strKey, strSession
    
    'Retrieve the version of ASP
    strASPVersion = ScriptEngine & " Version " & _
    ScriptEngineMajorVersion & "." & _
    ScriptEngineMinorVersion
    %>
    <!DOCTYPE HTML Public "-//W3C//DTD HTML 4.01 Transitional//EN">
    <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>
    
    
    <hr>
    
    
    <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=doublequote30%doublequote bgcolor=doublequote#FFFFAEdoublequote align=doublequoteleftdoublequote>" & strVariable & "</th>")
    Response.write("<td bgcolor=doublequote#FFFFD9doublequote align=doublequoteleftdoublequote>" & Request.ServerVariables(strVariable) & "&nbsp;</td>")
    Response.write("</tr>")
    Next 'strVariable
    %>
    </table>
    
    
    <hr>
    
    
    <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=doublequote30%doublequote bgcolor=doublequote#FFFFAEdoublequote align=doublequoteleftdoublequote>" & strCookie & "</th>")
    		Response.write("<td bgcolor=doublequote#FFFFD9doublequote align=doublequoteleftdoublequote>" & Request.Cookies(strCookie) & "&nbsp;</td>")
    		Response.write("</tr>")
    	Else
    		For Each strKey In Request.Cookies(strCookie)
    			Response.write("<tr>")
    			Response.write("<th width=doublequote30%doublequote bgcolor=doublequote#FFFFAEdoublequote align=doublequoteleftdoublequote>" & strCookie & "(" & strKey & ")</th>")
    			Response.write("<td bgcolor=doublequote#FFFFD9doublequote align=doublequoteleftdoublequote>" & Request.Cookies(strCookie)(strKey) & "&nbsp;</td>")
    			Response.write("</tr>")
    		Next
    	End If
    Next
    %>
    </table>
    
    
    <hr>
    
    
    <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=doublequote30%doublequote bgcolor=doublequote#FFFFAEdoublequote align=doublequoteleftdoublequote>" & strSession & "</th>")
    		Response.write("<td bgcolor=doublequote#FFFFD9doublequote align=doublequoteleftdoublequote>" & Session(strSession) & "&nbsp;</td>")
    		Response.write("</tr>")
    Next
    %>
    </table>
    
    
    <hr>
    
    
    <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
    %>