查看所有的Server Variables的环境变量
(编辑:jimmy 日期: 2024/12/27 浏览:3 次 )
下列代码保存为ASP文件就可以了
<table border=0 cellpadding=0 cellspacing=1 bgcolor="#d0c0F0">
<tr>
<td><table border=0 cellpadding=3 cellspacing=0 bgcolor="#F0F0F8">
<tR bgcolor="#d0c0f0">
<td><b>Variable Name</b></td>
<td><b>Value</b></td>
</tr>
<%
With response
For Each sKey In Request.ServerVariables
.Write "<tR>" & vbCrLf
.Write vbTab & "<td valign=""top""><b>" & sKey & "</b></td>" & vbCrLf
.Write vbTab & "<td>" & Request.ServerVariables(sKey) & "</td>" & vbCrLf
.Write "</tR>" & vbCrLf
Next
End With
%>
</table></td>
</tr>
</table>
<table border=0 cellpadding=0 cellspacing=1 bgcolor="#d0c0F0">
<tr>
<td><table border=0 cellpadding=3 cellspacing=0 bgcolor="#F0F0F8">
<tR bgcolor="#d0c0f0">
<td><b>Variable Name</b></td>
<td><b>Value</b></td>
</tr>
<%
With response
For Each sKey In Request.ServerVariables
.Write "<tR>" & vbCrLf
.Write vbTab & "<td valign=""top""><b>" & sKey & "</b></td>" & vbCrLf
.Write vbTab & "<td>" & Request.ServerVariables(sKey) & "</td>" & vbCrLf
.Write "</tR>" & vbCrLf
Next
End With
%>
</table></td>
</tr>
</table>
下一篇:ASP常用函数:XMLEncode