키를 구하는 소스

Dim strDirold : strDirold = 기존폴더명
<%
  For each item in Request.ServerVariables
    response.write item
  Next
%>




  <%for each key in Request.ServerVariables %>
  
  <%next%>

  

    
variable
    
value
  

    
<%=key%>
    

      <%
        ' 만약 키 value 가 있다면 찍고 없으면 공백을 찍는다
        if Request.serverVariables(key) = "" then
          response.write ""
        else
          response.write request.servervariables(key)
        end if
      %>