编程思路：
Request对象有一个重要的对象集合，ServerVariables.该对象保存了客户端发送到服务器端的相关信息以及服务器端的环境变量。服务器端的环境变量主要有：SERVER_NAME,SERVER_PORT,SERVER_PROTOCOL,SERVER_SOFTWARE等。
<%@ 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>