<%@ Language = "VBScript" %>
<%
Option Explicit
Dim sServername, sServerinst, sPhyspath, sServerVersion
Dim sServerIP, sRemoteIP
Response.Buffer = True
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"))
sRemoteIP = LCase(Request.ServerVariables("REMOTE_ADDR"))
%>
<html>
<head>
<title>ASPテスト</title>
</head>
<body>
<h2>ASPテスト</h2>
<table>
<tr>
<td>Servername</td>
<td><%=sServername%></td>
</tr>
<tr>
<td>Serverinst</td>
<td><%=sServerinst%></td>
</tr>
<tr>
<td>Physpath</td>
<td><%=sPhyspath%></td>
</tr>
<tr>
<td>ServerVersion</td>
<td><%=sServerVersion%></td>
</tr>
<tr>
<td>ServerIP</td>
<td><%=sServerIP%></td>
</tr>
<tr>
<td>RemoteIP</td>
<td><%=sRemoteIP%></td>
</tr>
</table></body></html>
このコードをコピーして「メモ帳」に貼り付けて、必要なら修正して下さい。