Skip to content

Instantly share code, notes, and snippets.

@maxfield-allison

maxfield-allison/test-asp.asp

Created May 11, 2022 15:28
Show Gist options
  • Save maxfield-allison/3b9e013c8aee60c308c8731fa31db12f to your computer and use it in GitHub Desktop.
Save maxfield-allison/3b9e013c8aee60c308c8731fa31db12f to your computer and use it in GitHub Desktop.
Download ZIP
quick and dirty web server status page
Raw
test-asp.asp
<html>
<body>
<H1>SERVER - <%
Set objWSHNetwork = Server.CreateObject("WScript.Network")
Response.Write objWSHNetwork.ComputerName
%></H1>
<br>
<p>
<b>HTTPS:</b>
<%Response.Write(Request.ServerVariables("HTTPS"))%>
</p>
<H2>IP Info</H2>
<p>
<b>CLIENT-IP:</b>
<%Response.Write("""" & Request.ServerVariables("HTTP_CLIENT_IP") & """")%>
</p>
<p>
<b>X-Forwarded-For:</b>
<%Response.Write("""" & Request.ServerVariables("HTTP_X_FORWARDED_FOR") & """")%>
</p>
<p>
<b>Remote_Addr:</b>
<%Response.Write("""" & Request.ServerVariables("REMOTE_ADDR") & """")%>
</p>
<p>
<br>
<h2>All Variables</h2>
</p>
<%
for each x in Request.ServerVariables
response.write("<B>" & x & ":</b> " & """" & Request.ServerVariables(x) & """" & "<p />")
next
%>
</body>
</html>
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment