下列代码保存为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>
免责声明：本站文章均来自网站采集或用户投稿，网站不提供任何软件下载或自行开发的软件！
如有用户或公司发现本站内容信息存在侵权行为，请邮件告知！ 858582#qq.com
桃源资源网 Design By www.nqtax.com
暂无“查看所有的Server Variables的环境变量”评论...