asp 实现显示所有的服务器变量值的函数

193 阅读 0 评论 128 点赞

我是靠谱客的博主稳重音响，最近开发中收集的这篇文章主要介绍asp 实现显示所有的服务器变量值的函数，觉得挺不错的，现在分享给大家，希望可以做个参考。

概述

<%
'******************************
'函数：ShowServerVar(VarName)
'参数：VarName，如提供变量名，则显示该变量值，如果参数为空则显示所有变量值
'作者：阿里西西
'日期：2007/7/13
'描述：显示所有的服务器变量值，返回值:对应值的字符串
'示例：<%=ShowServerVar(VarName)%>
'******************************
Function ShowServerVar(VarName)
   dim dest
   if VarName="" then
      for each dest in Request.ServerVariables
         ShowServerVar=ShowServerVar&"<li>Request.ServerVariables("""&dest&""")="&Request.ServerVariables(dest)&"</li>"&vbcrlf
      next
   else
      ShowServerVar=Request.ServerVariables(VarName)
   end if
End function
%>