下列代码保存为ASP文件就可以了

<tableborder=0cellpadding=0cellspacing=1bgcolor="#d0c0F0">

<tr>

<td><tableborder=0cellpadding=3cellspacing=0bgcolor="#F0F0F8">

<tRbgcolor="#d0c0f0">

<td><b>VariableName</b></td>

<td><b>Value</b></td>

</tr>

<%

Withresponse

ForEachsKeyInRequest.ServerVariables

.Write"<tR>"&vbCrLf

.WritevbTab&"<tdvalign=""top""><b>"&sKey&"</b></td>"&vbCrLf

.WritevbTab&"<td>"&Request.ServerVariables(sKey)&"</td>"&vbCrLf

.Write"</tR>"&vbCrLf

Next

EndWith

%>

</table></td>

</tr>

</table>