<%@ Language=VBScript %>
<%
Option Explicit
Dim Sv
%>
<HTML>
<Head><title>显示服务器变量</title></Head>
<BODY>
<table colspan=8 cellpadding=5 border=0>
<tr>
<td align=CENTER bgcolor="#800000" width=20%> <font style="ARIAL NARROW" color="#ffffff" size="2">环境变量名</font></td>
<td align=CENTER width=80% bgcolor="#800000"> <font style="ARIAL NARROW" color="#ffffff" size="2">结果</font></td>
</tr>
<%
WITH Response
for each Sv In Request.ServerVariables
.Write "<tr>"
.Write "<td bgcolor='f7efde' align=CENTER> <font style='ARIAL NARROW' size='2'>"
.Write Sv
.Write "</font></td>"
.Write "<td bgcolor='f7efde' align=CENTER> <font style='ARIAL NARROW' size='2'>"
.Write Request.ServerVariables(Sv)
.Write "</font></td></tr>"
next
END WITH
%>
</table></BODY></HTML>