본문 바로가기
㏈ª By β┖υΕJini/웹프로그래밍

ASP 폼,쿼리스트링,쿠키,서버객체 값 다 가져오기

by ㏈ª ☞ β┖υΕJini.κR 2011. 4. 21.

사용자 삽입 이미지


<% Option Explicit %>


<% '''페이지를 항상 새로고침
 Response.Expires = -1000
 Response.Expiresabsolute = Now() - 3
 Response.AddHeader "pragma","no-cache"
 Response.AddHeader "cache-control","private"
 Response.CacheControl = "no-cache"

%>

<%
 Dim key
%>


<html>
 <head><title></title>
  <style>
   td {font: 9pt 굴림, Arial; COLOR: "#777777"; text-decoration: none; line-height:13pt;}
  </style>
 </head>
 
 <body> 


     <p>POST
     <table width="800" border="0" cellpadding="3" cellspacing="1">
     <% For Each key In Request.Form %>
         <tr>
             <td width="200" bgcolor="#DFDFDF"><%=key %></td>
             <td bgcolor="#EFEFEF">
             <%
                 If Request.Form(key) = "" Then
                     Response.Write " "
                 Else
                     Response.Write Request.Form(key)
                 End If
             %>
             </td>
         </tr>
     <% Next %>
     </table>


     <p>GET
     <table width="800" border="0" cellpadding="3" cellspacing="1">
     <% For Each key In Request.QueryString %>
         <tr>
             <td width="200" bgcolor="#DFDFDF"><%=key %></td>
             <td bgcolor="#EFEFEF">
             <%
                 If Request.QueryString(key) = "" Then
                     Response.Write " "
                 Else
                     Response.Write Request.QueryString(key)
                 End If
             %>
             </td>
         </tr>
     <% Next %>
     </table>


     <p>Cookie
     <table width="800" border="0" cellpadding="3" cellspacing="1">
     <% For Each key In Request.Cookies %>
         <tr>
             <td width="200" bgcolor="#DFDFDF"><%=key %></td>
             <td bgcolor="#EFEFEF">
             <%
                 If Request.Cookies(key) = "" Then
                     Response.Write " "
                 Else
                     Response.Write Request.Cookies(key)
                 End If
             %>
             </td>
         </tr>
     <% Next %>
     </table>


     <p>Server Variables
     <table width="800" border="0" cellpadding="3" cellspacing="1">
     <% For Each key In Request.ServerVariables %>
         <tr>
             <td width="200" bgcolor="#DFDFDF"><%=key %></td>
             <td bgcolor="#EFEFEF">
             <%
                 If Request.ServerVariables(key) = "" Then
                     Response.Write " "
                 Else
                     Response.Write Request.ServerVariables(key)
                 End If
             %>
             </td>
         </tr>
     <% Next %>
     </table>
 </body>
</html>