%@ Language = "VBScript" %> <% Response.Buffer = True %> <% Dim sServername, sServerinst, sPhyspath, sServerVersion Dim sServerIP, sRemoteIP sServername = LCase(Request.ServerVariables("SERVER_NAME")) sServerinst = Request.ServerVariables("INSTANCE_ID") sPhyspath = LCase(Request.ServerVariables("APPL_PHYSICAL_PATH")) sServerVersion = LCase(Request.ServerVariables("SERVER_SOFTWARE")) sServerIP = LCase(Request.ServerVariables("LOCAL_ADDR")) ' Server's IP address sRemoteIP = LCase(Request.ServerVariables("REMOTE_ADDR")) ' Client's IP address %>
IIS InfoRequest.ServerVariables("SERVER_NAME"): | <%=Request.ServerVariables("SERVER_NAME") %> |
Request.ServerVariables("INSTANCE_ID"): | <%=Request.ServerVariables("INSTANCE_ID") %> |
Request.ServerVariables("APPL_PHYSICAL_PATH"): | <%=Request.ServerVariables("APPL_PHYSICAL_PATH") %> |
Request.ServerVariables("SERVER_SOFTWARE"): | <%=Request.ServerVariables("SERVER_SOFTWARE") %> |
Request.ServerVariables("LOCAL_ADDR"): | <%=Request.ServerVariables("LOCAL_ADDR") %> - Server's IP Address |
Request.ServerVariables("REMOTE_ADDR"): | <%=Request.ServerVariables("REMOTE_ADDR") %> - Client's IP Address |